Arbeitsblätter als Unicode TXT speichern

Hallo zusammen,
ersteinmal vielen Dank für die Aufnahme im Forum. Ich heisse Basti, bin 30 Jahre und komme aus NRW. Ich arbeite in einer Werbeargentur als Projektmanager. Privat beschäftige ich mich seit längerem mit Excel und probiere diverses aus um mich weiterzubilden. Soweit erstmal Infos zu mir.
Nun zu meinem Anliegen:
Ich habe mehere Excel-Arbeitsmappen mit mehreren Tabellenblättern (Menge der Blätter je Mappe unterschiedlich).
Gibt es die Möglichkeit das Excel alle Arbeitsblätter mit nur einem Klick einzeln als Unicode-TXT Datei abspeichert? Als Abspeicherungsname soll der Name des Arbeitsblattes genutzt werden. Eventuell ist sowas ja als Marko möglich, leider ist mein Wissenstand was Makros angeht nicht sehr hoch.
Ich hoffe ich konnte mein Anliegen detailiert genug formulieren und Ihr könnt mir weiterhelfen.
Vielen Dank und beste Grüße
Basti

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Mappe_als_Unicode_Text() Dim lngI As Long Dim lngJ As Long lngJ = ActiveSheet.Index For lngI = 1 To Sheets.Count Sheets(lngI).Select ActiveWorkbook.SaveAs Filename:=Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\" & _ Sheets(lngI).Name & ".txt", _ FileFormat:=xlUnicodeText, CreateBackup:=False Next lngI Sheets(lngJ).Select End Sub

Sub Mappe_als_Unicode_Text() Dim lngI As Long Dim lngJ As Long lngJ = ActiveSheet.Index For lngI = 1 To Sheets.Count Sheets(lngI).Select ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & _ Sheets(lngI).Name & ".txt", _ FileFormat:=xlUnicodeText, CreateBackup:=False Next lngI Sheets(lngJ).Select End Sub

Hallo Basti,
nachfolgend ein Makro, das du ggf. noch ein wenig an deine Bedürfnisse Anpassen muss - z.B. Verzeichnis in dem die Textdateien gespeichert werden sollen.
Gruß
Franz

'Makro in einem allgemeinen Modul - z.B. der persönlichen Makro-Arbeitsmappe
'dann besteht auch die Möglichkeit, ein Menüband anzupassen/anzulegen und das _
Makro einer Schaltfläche zuzuweisen
Sub SaveAsUnicode()
Dim wkb As Workbook
Dim wks As Worksheet
Dim wkbUnicode As Workbook
Dim bolSpeichern As Boolean, strName As String
Set wkb = ActiveWorkbook
Application.ScreenUpdating = False
For Each wks In wkb.Worksheets
wks.Copy
Set wkbUnicode = ActiveWorkbook
strName = wkb.Path & Application.PathSeparator & wks.Name & ".txt"
bolSpeichern = True
If Dir(strName)  "" Then
If MsgBox("Datei ist schon vorhanden!" & vbLf & strName & vbLf & vbLf _
& "Datei überschreiben?", vbQuestion + vbYesNo, _
"Unicode-Text-Datei erstellen") = vbYes Then
bolSpeichern = False
End If
End If
Application.DisplayAlerts = False
If bolSpeichern = True Then
wkbUnicode.SaveAs Filename:=strName, _
FileFormat:=42, Local:=True '42 = xlUnicodeText
End If
wkbUnicode.Close savechanges:=False
Application.DisplayAlerts = True
Next
Application.ScreenUpdating = True
End Sub

Beliebteste Forumthreads (12 Monate)

Arbeitsblätter als Unicode TXT speichern

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Arbeitsblätter als Unicode TXT speichern

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread