|
| |
VB.NET - Fortgeschrittene| Re: CSV to XLSX | |  | | Autor: Blackbox | | Datum: 02.08.16 17:27 |
| Hallo,
Du kannst alternativ zu Workbooks.Open auch die Methode Workbooks.OpenText verwenden.
Diese hat sehr viele Parameter, mit der sich das verwendete CSV-Schema sehr gut anpassen lässt.
Hier gibt es auch Parameter für das Tausender-Symbol usw. | |
| CSV to XLSX | | | | Autor: Knetschi1305 | | Datum: 29.07.16 12:24 |
| Hallo zusammen,
ich würde gerne mal wieder Eure Hilfe in Anspruch nehmen wollen.
Ich möchte gerne via VB.Net alle CSV Dateien eines Ordners im das XLSX Format abspeichern. Soweit hab ich das auch schon erreicht. Mein eigentliches Problem besteht darin, dass alle Werte immernoch via Semikolom getrennt in der ersten Spalte stehen und eben nicht getrennt wurden und in entsprechend einzelnen Spalten abgelegt werden. Anbei mein Code mit welchen ich die Datei als XLSX Datei speichere. Vielleicht habt Ihr ja bitte eine Idee wie das funktionieren könnte. Besten dank schon mal im Voraus.
VG Knetschi1305
For Each items As String In IO.Directory.GetFiles(strOrdner)
If IO.Path.GetExtension(items) = ".csv" Then
strDatei = strOrdner & IO.Path.GetFileName(items)
objExcel = New Excel.Application
objExcel.Workbooks.Open(Filename:=strDatei)
Pathfile = strDatei.Replace("csv", "xlsx")
With objExcel
.ActiveWorkbook.SaveAs(Filename:=Pathfile,_ _
FileFormat:=XlFileFormat.xlWorkbookDefault, _
CreateBackup:=False)
.ActiveWorkbook.Close()
End With
End If
Next | |
| Re: CSV to XLSX | | | | Autor: Blackbox | | Datum: 31.07.16 19:23 |
| Hallo,
-->objExcel.Workbooks.Open(Filename:=strDatei)
richtig: objExcel.Workbooks.Open(Filename:=strDatei,,FORMAT!!!!)
Du musst beim Öffnen das jeweilige Format vorgeben. Hier eine Liste:
Value
Delimiter 1
Tabs 2
Commas 3
Spaces 4
Semicolons 5
Nothing 6
Custom character (see the Delimiter argument)
Somit also beschreiben, womit deine CSV die Spalten trennt. | |
| Re: CSV to XLSX | | | | Autor: Knetschi1305 | | Datum: 01.08.16 10:09 |
| Hallo,
vielen Dank erstmal. Habe folgendes abgeändert.
objExcel.Workbooks.Open(Filename:=strDatei, Format:=5) Das sollte das richtige Format sein da meine CSV Dateien alle Semikolon getrennt sind.
Leider funtioniert das nicht. Es steht immer noch alles in der ersten Spalte, habe auch mal die anderen Optionen getestet. Mit Format 1 und 3 wird es am Komma getrennt aber leider mit Format 5 nicht am Semikolon. Was könnte das noch sein?
So sieht dies in der CSV Datei aus: 100;000A53514303817EE10000000AFD73AF;CE757E4C5F2A0C0CE10000000AFD730E;PP_A80000_20130301_F80026_20130401
Beitrag wurde zuletzt am 01.08.16 um 10:15:07 editiert. | |
| Re: CSV to XLSX | | | | Autor: Knetschi1305 | | Datum: 01.08.16 11:28 |
| Anbei nochmals die Werte für die Trennzeichen.
1 = Tab
2 = Komma
3 = Spaces
4 = Semikolon
5 = Nothing
6 = Custom character (see the Delimiter argument)
Leider aber wirkt sich Format:=4 auch nicht aus. | |
| Re: CSV to XLSX | | | | Autor: Blackbox | | Datum: 01.08.16 11:32 |
| Hallo,
das Funktioniert wahrscheinlich nur dann, wenn Du die Quelldatei vom Präfix CSV in TXT umbenennst,
also Quelldatei.csv in Quelldatei.txt
Genauso hat es bei mir eben funktioniert. | |
| Re: CSV to XLSX | | | | Autor: Knetschi1305 | | Datum: 01.08.16 12:01 |
| | Hab vielen Dank, so funktioniert es bei mir auch indem ich die Datei in ".txt" umbenennne. | |
| Re: CSV to XLSX | | | | Autor: Knetschi1305 | | Datum: 02.08.16 14:53 |
| Jetzt hab ich aber doch noch ein kleines Problem. Und zwar werden Dezimalzahlen zum Beispiel 30,00000 jetzt als 3.00.000 dargestellt. Also das Komma wird als Tausendertrennzeichen angesehen. Ich habe der Excel Application den "DecimalSeparator = "," zugewiesen, leider keine Änderung.
Hat vielleicht jemand dies schon mal erlebt und auch gelöst? Besten dank im Voraus | |
| Re: CSV to XLSX | | | | Autor: Knetschi1305 | | Datum: 02.08.16 15:29 |
| Hallo, ich glaube die Lösung gefunden zu haben.
Ich habe folgende Zeile:
objExcel.Workbooks.Open(Filename:=strNewFile, [ReadOnly]:=True, Format:=4) durch folgende ersetzt:
objExcel.Workbooks.OpenText(Filename:=strNewFile, Semicolon:=True)[/ und so funktionierte es dann auch. | |
| Re: CSV to XLSX | | | | Autor: effeff | | Datum: 03.08.16 14:07 |
| Oder man öffnet die Textdatei, splittet zeilenweise den Zeileninhalt und fügt die einzelnen Teile dann in ein Excel-Sheet ein...
EALA FREYA FRESENA | |
| Re: CSV to XLSX | | | | Autor: Knetschi1305 | | Datum: 03.08.16 14:09 |
| Ja Danke Euch. Habe es wie gesagt mit folgender Zeile gelöst:
objExcel.Workbooks.OpenText(Filename:=strNewFile, Semicolon:=True) Knetschi1305 | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
sevAniGif (VB/VBA) 
Anzeigen von animierten GIF-Dateien
Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. Weitere InfosTipp des Monats Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
| |
|
Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Mai 2024
Sie sind aktuell nicht angemeldet.