Excelblätter exportieren

Falls Sie die Daten aus einer Excel-Datei exportieren wollen, dann geht das in der Regel recht einfach: Speichern unter… Format wählen und schon ist die Datei gespeichert. Wenn jedoch mehrere Excel-Blätter exportiert werden sollen, dann kann man dies mit einem kleinen Makro erledigen.
Makro
Das Makro sieht dann folgendermaßen aus:
Sub Export()
Dim wb As Excel.Workbook
Dim sh As Excel.Worksheet
Dim i As Integer, sheets As Integer
Set wb = ActiveWorkbook
sheets = wb.sheets.Count
For i = 1 To sheets
wb.sheets(i).Range(„A1“, „A1“).EntireRow.Delete
wb.sheets(i).SaveAs „C:/export“ & wb.sheets(i).Name & „.txt“, XlFileFormat.xlTextWindows
Next
i = i – 1
MsgBox (i & “ Blätter exportiert“)
End Sub
In diesem Fall werden die Blätter im Textformat exportiert.
Tipp
Sie können die erzeugten Text-Dateien übrigens einfach zu einer Textdatei zusammen fügen. Rufen Sie in der Eingabeaufforderung den folgenden Befehl auf:
copy sheet1.txt + sheet2.txt + sheet3.txt sheet_all.txt
Es werden dann alle genannten Dateien zu einer Datei „sheet_all.txt“ zusammen gefügt.
- ALV-Grid Tabelle direkt ändern - 3. März 2023
- Subscreen-Bereiche anzeigen - 23. Februar 2023
- Komplexe Datenobjekte editieren - 23. Januar 2023