Ich fahre täglich Auswertungen, die aus meinen Excel Kennzahlen eine PDF erstellen.
Die erstellte PDF soll dann automatisch im SharePoint in einem bestimmten Ordner abgespeichert werden. Das funktioniert auch soweit alles ganz gut. Die PDF wird erstellt und im SharePoint abgelegt und danach erscheint eine Fehlermeldung:
Laufzeitfehler 1004 die Methode saveas für das objekt _Workbook ist fehlgeschlagen.
Mein Code lautet:
Dim pdfName As String
Dim heute As Long
Dim login As String
Dim KS As Integer
Dim kw As Integer
Sheets("Config").Select
kostenstelle = Range("C2").Value
heute = CLng(Range("C4").Value)
werk = Range("C5").Value
kw = Range("C3").Value
'Pdf aus Übersichts Sheet erstellen
Sheets("Übersicht").Select
'Link zum Sharepoint Ordner je nach Werk,Kostenstelle und Kalenderwoche
With Sheets("Config")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
("https://intranet.testotis.com/location/de/calibrationservices/CSUebergreifendeThemen/Produktivitätskennzahlen%20CS/Freigegebene%20Dokumente/Shopfloor-Management/Labor/Auswertungen/" & werk & "/" & kostenstelle & "/" & "KW" & kw & "/" & .Range("C2") & "_" & .Range("C4") & ".pdf") _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End With
Vielen Dank für Eure Hilfe !!!
Grüße