AW: csv-Spechermeldeung deaktivieren
12.07.2012 17:17:31
fcs
Hallo Franky,
du brauchst doch nicht für jede Datei ein eigenes Makro.
Hier ein eines für alle Makro.
CSV-Dateien werden ohne Meldung gespeichert, für andere Dateien wird der Dateiauswahl-Dialog angezeigt.
Gruß
Franz
Sub CSV_Speichern()
'Speichert csv-Dateien oder öffnet "Speichern unter"-Dialog mit CSV als Vorgabe
Dim wbAktiv As Workbook, wksAktiv As Worksheet, strName As String
Set wbAktiv = ActiveWorkbook
Set wksAktiv = ActiveSheet
If LCase(Right(wbAktiv.Name, 4)) = ".csv" Then
Application.DisplayAlerts = False
wbAktiv.Save
Application.DisplayAlerts = True
Else
If wbAktiv.Path = "" Then
strName = VBA.CurDir & Application.PathSeparator & ActiveWorkbook.Name & ".xls"
Else
strName = ActiveWorkbook.FullName
End If
With Application.FileDialog(msoFileDialogSaveAs)
.Title = "Name der CSV-Datei auswählen/eingeben"
.InitialFileName = Left(strName, InStrRev(strName, ".")) & "csv"
If .Show = -1 Then
Application.DisplayAlerts = False
wksAktiv.SaveAs Filename:=.SelectedItems(1), FileFormat:=xlCSVWindows, _
Local:=True 'oder Fileformat:=xlCSV
Application.DisplayAlerts = True
End If
End With
End If
End Sub