Mit folgendem Makro speichere ich eine Datei im csv Format:
Sub SpeichernCSV()
Dim exportfile1$
exportfile1 = InputBox("Bitte geben Sie den Dateinamen ein!", , "H:\Arbeit\*.csv")
If exportfile1 = "" Then Exit Sub
ActiveWorkbook.SaveAs exportfile1, FileFormat:= _
xlCSVMSDOS, CreateBackup:=False
ActiveWorkbook.Close
DoEvents
DoEvents
Windows("KleineLabor.xls").Activate
Sheets("KleineLabor").Select
Range("O1").Select
End Sub
Ich erhalte jedoch am Schluß immer die Meldung, dass die Datei nicht im ExcelFormat gespeichert ist und es wird enem die Möglichkeit geboten,dies noch zu tun.
Wie bekomme ich diese Meldung bitte weg.
Ich möchte,dass gleich nach dem Speichern der csv Datei diese ohne Speicherungsabfrage geschlossen wird.
Wo kann hier bei meinem Makro der Fehler bitte liegen?
Danke
Josef