Alle Arbeitsmappen in einer txt-Datei exportieren
04.05.2016 17:36:45
Alex
kann jemand mir evtl. weiterhelfen?
Ich möchte alle Arbeitsmappen mit der Benneung "_1-_12" mit jeweils dem Inhalt von "B11:I40" und "C7" in einer txt-Datei in einem Pfad exportieren. (siehe Beispiel)
Hab im Netz was gefunden was mir aber die kompletten Arbeitsblätter in einzelnen txt dateien exportiert und den gesamten inhalt, vielleicht hat jemand eine Idee wie man das entsprechend ändern kann.
Vielen Dank im Voraus.
https://www.herber.de/bbs/user/105397.xlsm _
a>
Sub Tabellen_als_Text_speichern()
Dim wkb_Q As Workbook, wks_Q As Worksheet, bolOK As Boolean
Set wkb_Q = ActiveWorkbook
Application.ScreenUpdating = False
'Alle Tabellenblatt in der Arbeitsmappe als Text-Datei speichern
For Each wks_Q In wkb_Q.Worksheets
Application.StatusBar = wks_Q.Index & ". Blatt von " _
& wkb_Q.Worksheets.Count & " Wird gespeichert"
bolOK = fncSave_as_Text( _
strPfad:="C:\Users\Public\Test\", _
wks:=wks_Q, _
lngFileFormat:=23, _
bolRename:=True) 'Parameter ggf. anpassen
If Not bolOK Then
MsgBox "Makro wird wegen Fehler abgebrochen", _
vbOKOnly, "Speichern als Text-Datei"
Exit For
End If
Next
Application.ScreenUpdating = True
Application.StatusBar = False
If bolOK Then
MsgBox "Fertig!", vbInformation + vbOKOnly, "Speichern als Text-Datei"
End If
End Sub
Anzeige