ActiveWorkbook.SaveAs verzeichnis & "\" & DateiName
ActiveWorkbook.Save
Error run-time 1004
Sub nn()
Dim strFilename As String
strFilename = "E:\Test.xls"
ActiveWindow.SaveAs Filename:=strFilename, FileFormat:=-4143
'oder
strFilename = "E:\Test.xlsx"
ActiveWindow.SaveAs Filename:=strFilename, FileFormat:=51
'oder
strFilename = "E:\Test.xlsm"
ActiveWindow.SaveAs Filename:=strFilename, FileFormat:=52
End Sub
'oder automatisch
Sub nnn()
Dim strFilename As String, strExt As String, lngFF As Long
strFilename = "E:\Test"
getFileExtAndFormat ActiveWorkbook, strExt, lngFF
ActiveWorkbook.SaveAs Filename:=strFilename & strExt, FileFormat:=lngFF
End Sub
Function getFileExtAndFormat(ByRef WB As Workbook, ByRef strExt As String, ByRef lngFormat As Long)
With WB
If Val(Application.Version) < 12 Then
strExt = ".xls": lngFormat = -4143
Else
Select Case WB.FileFormat
Case 51: strExt = ".xlsx": lngFormat = 51
Case 52:
If .HasVBProject Then
strExt = ".xlsm": lngFormat = 52
Else
strExt = ".xlsx": lngFormat = 51
End If
Case 56: strExt = ".xls": lngFormat = 56
Case Else: strExt = ".xlsb": lngFormat = 50
End Select
End If
End With
End Function
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen