Exelblatt als txt exportieren
18.05.2013 20:14:46
Bubble
mein Ziel ist es aus einer Exelmappe (xlsm-Format) mit mehreren Arbeitsblättern, das gerade aktivierte als txt-Datei mit Tabstop Trennung zu exportieren. Da ich mich mit VBA nicht wirklich gut auskenne, habe ich ein anderes Makro als Vorlage genommen, welches wunderbar funktioniert und es versucht etwas umzubauen.
Das Original speichert die komplette Exelmappe mit Makros unter einem anderen Namen,(aber dem selben Pfad wie das Original) der sich aus dem Inhalt einer Zelle ergibt und wechselt dann auf das erste Blatt, der soeben gespeicherten Datei.
Sub DIFF_export()
ActiveSheet.SaveAs ThisWorkbook.Path & "\" & Range("E10"), FileFormat:=xlText
' ermittelt den pfad der aktuell geöffneten Datei und fügt den neuen Namen hinzu und _
speichert als txt
ActiveWorkbook.Sheets(1).Select
Range("E4").Select
' geht zurück zu der Tabelle aus der heraus gespeichert wird
MsgBox "Die Überstunden wurde gespeichert unter dem Name:" & vbLf & vbLf & Sheets("Export"). _
_
_
Range("E10").Text & vbLf & vbLf & "Datei kann im nächsten Monat importiert werden.", , " _
Speichern erfolgreich"
' Gibt ein Fenster aus, in dem nochmal der Erfolg und der Dateiname bestätigt werden
End Sub
In der Zelle E10 des Blattes steht zum Beispiel "Diff_05_2013.txt", die soll der Dateiname sein. Ich habe zuerst den Makrorecorder laufen lassen und das Blatt als txt abgespeichert. Da kam folgendes heraus:ChDir "E:\Eigene Dateien\mein Pfad"
ActiveWorkbook.SaveAs Filename:= _
"E:\Eigene Dateien\Eigene Dokumente\mein Pfad\Dplan Vorlage.txt", _
FileFormat:=xlText, CreateBackup:=False
Daraufhin habe ich mit dem FileFormat:=xtText experimentiert, aber es klappt nicht. Momentan gibt es immer einen 1004 Laufzeitfehler. Weiterhin möchte ich nicht das die erzeugte txt-Datei geöffnet wird, sondern das ich wieder auf dem Blatt lande, aus dem ich vorher exportiert habe.
Vielen dank im Voraus für Eure Hilfe
Bubble