VBA Laufzeitfehler 1004
18.08.2017 10:47:07
Andrej
Seit der Umstellung auf Office 2016 gibts nur Probleme.
Ich habe hier Ein Makro:
Private Sub Excel_ausführen_Click()
On Error GoTo Err_Excel_ausführen_Click
Dim oApp As Object
Dim pfad As String
Dim pfad1 As String
Dim objExcel As Object
pfad = CurrentProject.Path
pfad1 = pfad & "\Übersicht1.xls"
Set oApp = GetObject(pfad1)
oApp.Application.Visible = True
'oApp.Parent.Windows(1).Visible = True
DoCmd.OutputTo acOutputForm, "Abfrage FO 4-1 Zus", acFormatXLS, pfad & "\Übersicht.xls", _
False
Set objExcel = GetObject(, "Excel.Application")
objExcel.Run "Makro1", pfad1
Exit_Excel_ausführen_Click:
Exit Sub
Err_Excel_ausführen_Click:
MsgBox Err.Description
Debug.Print Err.Number
Resume Exit_Excel_ausführen_Click
End Sub
Es hat mit Office 2010 super funktioniert und bleibt jetzt immer an der Stelle
'oApp.Parent.Windows(1).Visible = True
und
objExcel.Run "Makro1", pfad1
stehen.
Beim ersten kommt die Fehlermeldung : "Index außerhalb des gültigen Bereichs." Fehlernummer 9. Deswegen habe ich das auskommentiert damit der weiterläuft. Doch beim zweiten bleibt es wieder stehen mit der Fehlermeldung:
"Das Makro 'Makro1' kann nicht ausgeführt werden. Das Makro ist möglicherweise in dieser Arbeitsmappe nicht verfügbar, oder alle Makros wurden deaktiviert." Fehler 1004.
Das Makro ist vorhanden. Die Datei ist vorhanden. Also woran kann es liegen?