Button speichern unter Problem

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub Schaltfläche3_Klicken() With Application.FileDialog(msoFileDialogFolderPicker) .AllowMultiSelect = False .ButtonName = "Speichern unter" .InitialFileName = "V:\" .Title = "Ordner auswählen" .Show If .SelectedItems.Count = 1 Then _ ActiveWorkbook.SaveAs Range("B2").Value & ".xls" End With End Sub

Public Sub Schaltfläche3_Klicken() With Application.FileDialog(msoFileDialogFolderPicker) .AllowMultiSelect = False .ButtonName = "Speichern unter" .InitialFileName = "V:\" .Title = "Ordner auswählen" If .Show = -1 Then 'OK/Auswählen wurde gewählt ActiveWorkbook.SaveAs .SelectedItems(1) & "\" & Range("B2").Value & ".xls", _ FileFormat:=-4143 '-4143 = xlWorkbookNormal End If End With End Sub

Hallo Thomas,
Das Makro funktioniert in allen Excelversionen, die das FileDialog-Objekt unterstützen (ich denke ab Excel 2000).
Seit Excel 2007 ist ein völlig neues Dateiformat eingeführt worden.
Deshalb ist es ggf. erforderlich das Dateiformat vorzugeben unter dem die datei gespeichert werden soll.
Die Daeteinamens-Erweiterung beim vorgegebenen Namen ist nicht unbedingt erforderlich, wenn das Dateiformat vorgeben wird. Excel fügt diese automatisch an.
Falls flexibilität für ältere und neuere Excelversionen erforderlich ist, dann sollte man das Makro wie folgt aufbauen. Für neuere Excel-Versionen sollte dann das Format entsprechend vorgegeben werden.
Gruß
Franz

Public Sub Schaltfläche3_Klicken()
Dim lngFileFormat As XlFileFormat
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.ButtonName = "Speichern unter"
.InitialFileName = "V:\"
.Title = "Ordner auswählen"
If .Show = -1 Then 'OK/Auswählen wurde gewählt
If Val(Left(Application.Version, 2)) > 11 Then
'Excel 2007 und neuer
'            lngFileFormat = -4143 'xlWorkbookNormal - älteres Dateiformat 2003 und älter
lngFileFormat = 56 'xlExcel8 = Excel 2003 und älter
'            lngFileFormat = 51 'xlOpenXMLWorkbook - 2007 und neuer
'            lngFileFormat = 52 'xlOpenXMLWorkbookMacroEnabled '2007 und neuer mit Makros
'            lngFileFormat = ActiveWorkbook.FileFormat 'Format wie aktive Datei
Else
'Excel 2003 und älter
lngFileFormat = -4143 'xlWorkbookNormal - älteres Dateiformat 2003 und älter
End If
ActiveWorkbook.SaveAs .SelectedItems(1) & "\" & Range("B2").Value, _
FileFormat:=lngFileFormat
End If
End With
End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread