Erstellen der csv-Datei aus Excel über Makro


exlApp.Workbooks("GWK.xls").Sheets("csvGWK").Select
ActiveWorkbook.SaveAs FileName:=Arbeitsverzeichnis & "\csvGWK.csv", FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.SaveAs FileName:=Arbeitsverzeichnis & "\GWK.xls", FileFormat:=xlNormal, CreateBackup:=False
ActiveWorkbook.Close (True)