Fehlersuche Excelmakro
Hallo zusammen,
mein Excel Makro macht Probleme und ich komme nicht weiter. Es soll mir das aus der Mappe das Tabellenblatt namens "Datev_export" (und nur das) als CSV-Datei im gleichen Ordner wie die Ursprungsdatei speichern.
Wenn ich es ausführe, speichert er jedoch nur das aktive bzw. das erste Tabellenblatt als CSV Datei. Wo ist mein Fehler?
mein Excel Makro macht Probleme und ich komme nicht weiter. Es soll mir das aus der Mappe das Tabellenblatt namens "Datev_export" (und nur das) als CSV-Datei im gleichen Ordner wie die Ursprungsdatei speichern.
Wenn ich es ausführe, speichert er jedoch nur das aktive bzw. das erste Tabellenblatt als CSV Datei. Wo ist mein Fehler?
Sub SaveAsCSV()
Dim ws As Worksheet
Dim savePath As String
' Pfad für die CSV-Datei
savePath = ThisWorkbook.Path & "\Datev_export.csv"
' Auswahl Tabellenblatt
Set ws = ThisWorkbook.Sheets("Datev_export")
' Speichern als CSV-Datei
ws.SaveAs Filename:=savePath, FileFormat:=xlCSV, CreateBackup:=False
End Sub
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 6525349631
Url: https://administrator.de/contentid/6525349631
Ausgedruckt am: 22.11.2024 um 16:11 Uhr
5 Kommentare
Neuester Kommentar
Hallo
Kann eigentlich keinen Fehler sehen, einzig nicht so schön ist, dass die aktive Arbeitsmappe nach dem Ausführen des Makros jetzt Datev_export.csv heisst, ich vermute mal, das willst du so nicht.
Probier mal den folgenden Code
Gruss
Kann eigentlich keinen Fehler sehen, einzig nicht so schön ist, dass die aktive Arbeitsmappe nach dem Ausführen des Makros jetzt Datev_export.csv heisst, ich vermute mal, das willst du so nicht.
Probier mal den folgenden Code
Sub Export_CSV()
Dim ws As Worksheet
Dim savePath As String
' Pfad für die CSV-Datei
savePath = ThisWorkbook.Path & "\Datev_export.csv"
' Auswahl Tabellenblatt
Set ws = ThisWorkbook.Sheets("Datev_export")
ws.Copy
ActiveSheet.SaveAs Filename:=savePath, FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close True
End Sub
Gruss
Sub Export_CSV()
Dim ws As Worksheet, savepath As String
savepath = ThisWorkbook.Path & "\Datev_export.csv"
Set ws = ThisWorkbook.Sheets("Datev_export")
With Workbooks.Add
ws.Copy Before:=.Sheets(1)
.SaveAs savepath, FileFormat:=xlCSVWindows, CreateBackup:=False
.Close False
End With
End Sub