Guten Abend,
hier habe ich einen Code, der mir eine Exceldatei in csv umwandelt. Dabei wird immer nur das erste Tabellenblatt konvertiert, außer, ich speichere die Exceldatei so, dass beim Speichern nicht das erste Tabellenblatt geöffnet ist - ich verzweifele!
Bitte helft mir, dass immer nur ein entsprechend definiertes Tabellenblatt (Beispiel "Tabelle1") in csv umgewandelt wird und dies nicht vom vorherigen Speichervorgang abhängig ist!Vermutlich irgendetwas mit: XL.Worksheets("Tabelle1") ??? Leider habe ich nur wenig Ahnung...
Herzlichen Dank!
Hier mein Code (VB-Script):
hier habe ich einen Code, der mir eine Exceldatei in csv umwandelt. Dabei wird immer nur das erste Tabellenblatt konvertiert, außer, ich speichere die Exceldatei so, dass beim Speichern nicht das erste Tabellenblatt geöffnet ist - ich verzweifele!
Bitte helft mir, dass immer nur ein entsprechend definiertes Tabellenblatt (Beispiel "Tabelle1") in csv umgewandelt wird und dies nicht vom vorherigen Speichervorgang abhängig ist!Vermutlich irgendetwas mit: XL.Worksheets("Tabelle1") ??? Leider habe ich nur wenig Ahnung...
Herzlichen Dank!
Hier mein Code (VB-Script):
Visual Basic-Quellcode
- OrdnerEin = "."
- OrdnerAus = "."
- AbZeile = 1
- AbSpalte = 1 'Spalte A
- Feldanzahl = 9
- Endzeile = 1390
- Set XL = CreateObject("Excel.Application")
- Set fso = CreateObject("Scripting.FileSystemObject")
- For Each Datei In fso.GetFolder(OrdnerEin).Files
- If LCase(fso.GetExtensionName(Datei.Name)) = "xlsx" Then
- XL.Workbooks.Open Datei.Path
- Zeile = AbZeile
- Aus = ""
- Do While Zeile<Endzeile
- Satz = XL.Cells(Zeile, AbSpalte)
- For i = 1 To Feldanzahl - 1
- Satz = Satz & ";" & XL.Cells(Zeile, AbSpalte + i)
- Next
- Aus = Aus & vbCrLf & Satz
- Zeile = Zeile + 1
- Loop
- fso.CreateTextFile(OrdnerAus & "\" & fso.GetBaseName(Datei.Name) & ".csv").Write Mid(Aus, 3)
- XL.ActiveWorkbook.Close False
- End If
- Next
- XL.Quit
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „OKIAM“ ()