Daten übergeben
27.03.2006 10:52:14
Franz
ich möchte aus einer Excel DAtei Daten in eine neue Datei übergeben. Die übergebene Datei soll als csv gespeichert werden. Warum funktioniert das Programm nicht.
Ich bin erst ein VBA EInsteiger und bitte um Hilfe!!
https://www.herber.de/bbs/user/32301.xls
Vielen Dank
Franz
Sub CSVerstellen()
Application.DisplayAlerts = False
Application.SheetsInNewWorkbook = 1
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="Zinsen"
Windows("test.xls").Activate
Worksheets("Datei für Import").Select
Cells.Select
Selection.Copy
Windows("Zinsen").Activate
Worksheets("Tabelle1").Select
Cells.Select
Selection.Paste
ActiveWorkbook.SaveAs Filename:="C:\Eigene Dateien\Zinsen", _
FileFormat:=xlCSV, CreateBackup:=False
Workbooks("Zinsen").Close
Application.DisplayAlerts = True
End Sub