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.

• Über
• Letzte Artikel

Enno Wulff

SAP Berater & Entwickler bei Inwerken AG

Moin Moin! Ich heiße Enno und bin der Erfinder, Redakteur und Trickser im Tricktresor. Die Artikel im Tricktresor sollen Euch das Leben einfacher machen und dienen mir als Gedächtnisstütze. Denn an vieles, was ich einmal heraus gefunden habe, kann ich mich später nicht mehr erinnern und suche erneut. Dagegen hilft der Tricktresor. Viel Spaß!

Letzte Artikel von Enno Wulff (Alle anzeigen)

• 7. December: Excel Racing Simulation – Root Vole Race - 7. Dezember 2024
• 5. December: ABAPConf - 5. Dezember 2024
• 4. December: Only a lazy developer is a good developer - 4. Dezember 2024