Office: Laufzeitfehler '1004': Die Methode 'Close' für das Objekt '_Workbook' ist fehlgeschl.

Wahlo · 25. Juni 2017

Hallo zusammen,

ich habe ein Makro, welches früher (ältere Office-Version) einwandfrei durchlief.

Dabei wähle ich aus einem verschiedene Dateien, die dann durch die Ausführung des Makros "Formatierung" formatiert und anschließend unter einem neuen Namen abgespeichert werden sollen.

Nun erscheint obige Fehlermeldung.

Kann mir jemand helfen?
Vielen Dank vorab.

Grüße
Wahlo

Code:

Option Explicit

Const Pfad As String = "P:AX ExportGVL"

Public Sub AX_Dateien_zur_Formatierung_auswählen()

Dim vntFile As Variant
Dim objWorkbook As Workbook

With Application.FileDialog(msoFileDialogFilePicker) 'Dialog um File oder Ordner auszuwählen etc.

.Title = "Bitte alle zu formatierenden Dateien auswählen"
.AllowMultiSelect = True
.InitialFileName = Pfad

With .Filters
If .Count > 0 Then Call .Clear 'Dialog: auszuwählende Dateiformate löschen
' .Add "Excel 2010", "*.xlsx" ''Dialog: auszuwählende Dateiformate hinzufügen
' .Add "Excel 2003", "*.xls"
.Add "Alle", "*.*"
End With

If .Show = -1 Then
For Each vntFile In .SelectedItems
Set objWorkbook = Workbooks.Open(vntFile) 'jede oben ausgewählte Datei wird geöffnet, formatiert und im Ordner bearbeitet gespeichert
Call Formatierung
Application.DisplayAlerts = False
Call objWorkbook.Close(SaveChanges:=True, Filename:=Pfad & "bearbeitet" & objWorkbook.Name)
Set objWorkbook = Nothing
Application.DisplayAlerts = True
Next
Else

MsgBox "Keine Datei ausgewählt.", vbExclamation, "Hinweis"

End If
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

aloys78 · 27. Juni 2017

Hallo Wahlo,

was soll die Call-Anweisung ?

Eine Möglichkeit:
Code:

objWorkbook.SaveAs Filename:=Pfad & "bearbeitet" & objWorkbook.Name
ActiveWorkbook.Close
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bei Filename auf den Backslash achten, der wird hier nicht angezeigt.

Gruß
Aloys

drambeldier · 27. Juni 2017

Moin,

der Editor lässt sich durch Verdoppelung überlisten: \

aloys78 · 27. Juni 2017

Hallo Ralf,

gut zu wissen !

Gruß
Aloys

Wahlo · 27. Juni 2017

Hallo zusammen,

vielen Dank für die Antwort.
Nun erscheint selbige Fehlermeldung, allerdings mit "Die Methode 'SaveAS' für das Objekt '_Workbook' ist ...

Woran kann das liegen?

Danke vorab!
Viele Grüße
wahlo

Office: Laufzeitfehler '1004': Die Methode 'Close' für das Objekt '_Workbook' ist fehlgeschl.

Laufzeitfehler '1004': Die Methode 'Close' für das Objekt '_Workbook' ist fehlgeschl.

Laufzeitfehler '1004': Die Methode 'Close' für das Objekt '_Workbook' ist fehlgeschl.

Laufzeitfehler '1004': Die Methode 'Close' für das Objekt '_Workbook' ist fehlgeschl.

Laufzeitfehler '1004': Die Methode 'Close' für das Objekt '_Workbook' ist fehlgeschl. - Similar Threads - Laufzeitfehler '1004' Methode

Laufzeitfehler 1004 "Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen".

Laufzeitfehler 5 und 1004

Laufzeitfehler '1004': Die Methode 'Run' für das Objekt'_Application' ist fehlgeschla

Fehlermeldung "Laufzeitfehler 1004!" Methode "Range" fehlgeschlagen

Laufzeitfehler 1004

Laufzeitfehler 1004 mit Paste-Methode

Laufzeitfehler 1004 die Methode saveas für das objekt _Workbook ist fehlgeschlagen