✔ Excel VBA - Makros auf Server gespeicherten Excel Dateien starten

[Yaslaw]

Auf welcher Zeile (bitte die Zeile dazu auch posten) kommt der Fehler?

 

[jerry0110]

Application.Run "Zieldatei.xlsm!Email_versenden"

 

[Yaslaw]

Und jetzt zeig mal dein ganzer Code.
Und hast du im Email_versenden eine Error-Behandlung drin?
Ev. kommt der Fehler auch aus der Funktion.

 

[jerry0110]

Sub ExternesMakroStarten()
Dim wb As Workbook
Set wb = Workbooks.Open("C:\Users\x.xxx\Desktop\Neuer_Ordner\Zieldatei.xlsm", , True)
Application.Run "Zieldatei.xlsm!Email_versenden"
wb.Close
End Sub

 

[Yaslaw]

Und hast du im Email_versenden eine Error-Behandlung drin?
Ev. kommt der Fehler auch aus der Funktion.

 

[jerry0110]

Sub Email_versenden()

Dim strPDF As String, strPDF2 As String
Dim OutlookApp As Object, strEmail As Object

myDate = ThisWorkbook.Worksheets("Detaillansicht Mitarbeiter").Range("T1")

Set OutlookApp = CreateObject("Outlook.Application")
Set strEmail = OutlookApp.CreateItem(0)

ThisWorkbook.Sheets("Dashboards").Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\oda-san1\KPI´s\2018\" & Format(myDate, "mmmm") & "\" & Format(myDate, "YYYY_MM") & "_Zieldatei " & Format(myDate, "YYYY") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False _

ThisWorkbook.Sheets(Array("Detaillansicht Aufträge VR", "Detailansicht Angebote VR", "Detailansicht Verkaufsbesuch VR", "Detailansicht Telefonate VR_TS", "Detail. Termintage_Forecast")).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\oda-san1\KPI´s\2018\" & Format(myDate, "mmmm") & "\" & Format(myDate, "YYYY_MM") & "_Zieldatei " & Format(myDate, "YYYY") & " Detaillierte Aufstellung.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False

strPDF = "\\oda-san1\KPI´s\2018\" & Format(myDate, "mmmm") & "\" & Format(myDate, "YYYY_MM") & "_Zieldatei " & Format(myDate, "YYYY") & ".pdf"
strPDF2 = "\\oda-san1KPI´s\2018\" & Format(myDate, "mmmm") & "\" & Format(myDate, "YYYY_MM") & "_Zieldatei " & Format(myDate, "YYYY") & " Detaillierte Aufstellung.pdf"

With strEmail
.To = ""
.CC = ""
.Subject = "KPI Auswertung " & Format(myDate, "mmmm YYYY")
.body = "Guten Tag zusammen," & Chr(13) & _
"" & Chr(13) & _
"anbei übersende ich Ihnen die KPI´s für den " & Format(myDate, "mmmm YYYY") & "." & Chr(13) & _
"" & Chr(13) & _
"" & Chr(13) & _
"" & Chr(13)

.Attachments.Add strPDF
.Attachments.Add strPDF2
.Attachments.Add "\\oda-san1\KPI´s\Forecast\" & Format(myDate, "YYYY") & "\" & Format(myDate, "mmmm") & "\" & "Forecast " & Format(myDate, "mmmm YYYY") & ".xlsx"
.Display

End With

Set OutlookApp = Nothing
Set strEmail = Nothing
End Sub

 

[jerry0110]

Kannst du mit dem Code was anfangen?

 

[Yaslaw]

Nun, du hast also keine Fehlerbehandlung in deinem Code. Ist fast ein Muss für Funktionen, die du von aussen aufrufst.
Ich kann die nicht sagen, ob der Code in deiner aufrufenden Funktion ExternesMakroStarten() oder in Email_versenden() auftaucht.

 

[jerry0110]

Wenn dann kann es nur eine Funktion von Excel selber sein.
Wenn ich das Makro "Email_versenden" alleine aufrufe, dann läuft das ohne Probleme durch.
Er öffnet auch die Datei mit dem Makro "ExternesMakroStarten". Aber dann bricht er mit dem o. g. Fehler ab.
Es scheint so, als ob er das Makro nicht starten will.

 

[Yaslaw]

Ist die Sub Email_versenden() in einem eigenen Modul oder hast du es dem Projekt hinterlegt?