Schnell und einfach wäre so etwas:
Public Sub ExportSheets(wbk As Workbook, sPath As String) Dim sht As Worksheet For Each sht In wbk.Worksheets sht.Select sht.SaveAs sPath & sht.Name & ".txt", XlFileFormat.xlTextMac Next sht wbk.Close MsgBox "Done exporting." End Sub
Unter Windows würden Sie dies aufrufen, indem Sie ExportSheets ActiveWorkbook, "C:\Data\"
im unmittelbaren Fenster eingeben .
Hinweis: Ich schließe die Arbeitsmappe, wenn sie fertig ist, da die Arbeitsmappe jetzt die zuletzt gespeicherte Textdatei und nicht die ursprüngliche Arbeitsmappe ist.