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?

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

Please also mark the comments that contributed to the solution of the article

Content-Key: 6525349631

Url: https://administrator.de/contentid/6525349631

Printed on: April 28, 2024 at 01:04 o'clock

5 Comments

Latest comment

Hallo
Alo, wenn ich nur 1 Arbeitsmappe offen habe, und das Makro ausführe, speichert es wie gewollt das Tabelleblatt als CSV ab.
Hast du ev mehrere Arbeitsmappen geöffnet?
Wo hast du das Makro gespeichert, unter Modul?, oder unter diese Arbeitsmappe?, oder in einer personal.xlsb?

Gruss

Hallo!

es kann sein, dass ich mehrere Arbeitsmappen geöffnet habe. Es ist unter Modul gespeichert. Ist das richtig so?

Danke!

Ist es denn nun das aktive ODER das erste Tabellenblatt? Beides kann doch wohl nicht sein oder?

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

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

Cheers briggs

German Question Microsoft Office VB for Applications

Hotly discussed

Developer diary: Release 6.1admtech

End of availability for classic Teams clientDani