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.

image_pdfimage_print

Leave a Comment