Hallöchen,
ich habe mal eine Frage. Ich versuche derzeit über ein Makro eine CSV Datei zu speichern und die Abfragen zu umgehen.
Nun die CSV wird zwar ohne Abfrage geschlossen aber gespeichert wird nichts...wie muss ich dabei vorgehen, damit es funktioniert?
ich habe mal eine Frage. Ich versuche derzeit über ein Makro eine CSV Datei zu speichern und die Abfragen zu umgehen.
Nun die CSV wird zwar ohne Abfrage geschlossen aber gespeichert wird nichts...wie muss ich dabei vorgehen, damit es funktioniert?
Visual Basic-Quellcode
- Sub CSVSave()
- Application.ScreenUpdating = False
- Application.DisplayAlerts = False
- cntwb = 0
- For Each wb In Workbooks
- If wb.Windows(1).Visible = True Then cntwb = cntwb + 1
- Next wb
- Set wb = ActiveWorkbook
- If cntwb = 1 Then
- wb.SaveAs FileFormat:=xlCSV
- Application.Quit
- wb.Saved = True
- Else
- With wb
- .SaveAs FileFormat:=xlCSV
- .Close
- .Saved = True
- End With
- End If
- Application.DisplayAlerts = True
- Application.ScreenUpdating = True
- End Sub