ich bin neu, mir fehlen sicher auch einige Grundlagen.. werde daran arbeiten und habe um mein Ziel zu erreichen viel im Forum gelesen und hänge an einer trivialen Stelle.
Meine Lösung wirkt sicher irgendwie ungalant und zusammengestoppelt.
Anforderung:
Workbook mit n Worksheets mit n Spalten und n Zeilen
Worksheetinhalte sollen in jeweils separate TXTs gespeichert werden. Ausnahme: Erstes Tabellenblatt.
Name der TXTs wie Worksheet.
Zelleninhalte einer Zeile (n Spalten) als Zeile in der TXT ohne Trennzeichen.
Soweit so gut.. siehe Beispielcode.
Im Beispielcode habe ich den Versuch auskommentiert, das Verzeichnis dynamisch zu definieren. "Dorthin wo auch die Ursprungsdatei liegt"
Es hat nicht funktioniert.
'Speichere alle Tabellenblätter als TXT-Files ab.
'Alle Zellen einer Zeile werden zu einem Zeilen-String OHNE Trennzeichen zusammengefügt
Sub SaveTXTwithoutDelimiter()
Dim Bereich As Range, Zeile As Range, Zelle As Range
Dim wks As Worksheet
Dim strTemp As String
Dim strFilename As String
Dim strPath As String
strPath = "/Users/antonkunze/Downloads/"
'strPath = Application.ActiveWorkbook.Path & "/"
Const Extension As String = ".txt"
Application.ScreenUpdating = False
For Each wks In ActiveWorkbook.Worksheets
If wks.Index > 1 Then
wks.Copy
Set Bereich = ActiveSheet.UsedRange
dateiname = ActiveSheet.Name
Open strPath & strFilename & Extension For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
strTemp = strTemp & Zelle.Text
Next Zelle
Print #1, strTemp
strTemp = ""
Next Zeile
Close #1
Set Bereich = Nothing
ActiveWorkbook.Close SaveChanges:=False
End If
Next wks
Application.ScreenUpdating = True
End Sub