VBA · Excel

Aktives Excel-Blatt als CSV exportieren

Erstellt eine Kopie des aktiven Arbeitsblatts und speichert sie als UTF-8-CSV.

VBA

Sub BlattAlsCSV()
    Dim ziel As String
    ziel = ThisWorkbook.Path & "" & ActiveSheet.Name & ".csv"
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:=ziel, FileFormat:=xlCSVUTF8
    ActiveWorkbook.Close SaveChanges:=False
End Sub

Hinweis: Vor dem Einsatz mit einer Kopie testen; vorhandene Dateien können überschrieben werden.

VBAExcelCSVExport

← Zur Codebibliothek Unterstützung anfragen