Problembeschreibung
Wenn Sie ein Makro Visual Basic for Applications in Microsoft Excel ausführen, wird möglicherweise die folgende oder ähnliche Fehlermeldung angezeigt:
Laufzeitfehler '1004':
Fehler der Methode 'SaveAs' des _Worksheet'.
Ursache
Dieses Verhalten kann auftreten, wenn beide der folgenden Bedingungen zutreffen:
-
Sie verwenden ein Makro Visual Basic for Applications, um ein Arbeitsblatt zu speichern.
-und- -
Sie geben das Dateiformat als Konstante xlWorkbookNormal an.
Der folgende Code führt z. B. dazu, dass dieser Fehler auftritt:
Sub A()
Dim myNewSheet As Worksheet
Set myNewSheet = ActiveSheet
FileNameBin = "c:\ABC"
myNewSheet.SaveAs Filename:=FileNameBin, FileFormat:=xlWorkbookNormal
End Sub
Problemumgehung
Microsoft stellt Programmierungsbeispiele nur zur Veranschaulichung zur Verfügung, ohne die Gewährleistung, die entweder ausgedrückt oder impliziert ist, einschließlich, aber nicht beschränkt auf, implizierte Garantien der Handelsierbarkeit und/oder Eignung für einen bestimmten Zweck. In diesem Artikel wird davon ausgegangen, dass Sie mit der gezeigten Programmiersprache und den Tools zum Erstellen und Debuggen von Prozeduren vertraut sind. Microsoft-Supportprofis können Ihnen helfen, die Funktionalität eines bestimmten Verfahrens zu erläutern, aber sie ändern diese Beispiele nicht, um zusätzliche Funktionen bereitzustellen oder Prozeduren zu erstellen, die Ihren speziellen Anforderungen entsprechen.
Wenn Sie nur über eingeschränkte Programmierkenntnisse verfügen, sollten Sie sich an einen Microsoft Certified Partner oder Microsoft Advisory Services wenden. Weitere Informationen finden Sie auf den folgenden Microsoft-Websites:
Microsoft Certified Partners – https://partner.microsoft.com/global/30000104
Microsoft Advisory Services – http://support.microsoft.com/gp/advisoryservice
Weitere Informationen zu den verfügbaren Supportoptionen und zur Kontaktaufnahme mit Microsoft finden Sie auf der folgenden Microsoft-Website:http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS
Um dieses Verhalten zu ändern, ändern Sie die Dateiformatspezifikation von der Konstante xlWorkbookNormal in 1. Der Beispielcode funktioniert normal, wenn er in geändert wird:
Sub A()
Dim myNewSheet As Worksheet
Set myNewSheet = ActiveSheet
FileNameBin = "c:\ABC"
myNewSheet.SaveAs Filename:=FileNameBin, FileFormat:=1
End Sub
HINWEIS Obwohl Sie ein Arbeitsblatt speichern, werden alle Arbeitsblätter in der ausgewählten Arbeitsmappe gespeichert, wenn das Dateiformat auf xlWorkbookNormal oder 1 festgelegt ist.
Status
Microsoft hat bestätigt, dass es sich hierbei um ein Problem bei den in diesem Artikel genannten Microsoft-Produkten handelt.
