Office: (Office 2016 Mac) VBA Code Funktioniert nicht

Hallo Leute
habe ein Code von einem Lieben User bekommen. Obwohl es beim ersten mal funktioniert hat geht es nicht mehr. Da ich den User nicht erreichen kann (er hat wahrscheinlich viel zu tun :-) )
möchte ich euch fragen was ich falsch mache.
Wenn ich den Code auf meinem Mac ausführe wird die Datei gedruckt und nicht als PDF gespeichert. Auf einem Windows Rechner bringt er Laufzeitfehler 1004.
Wäre euch sehr dankbar wenn ihr mir sagen könnt was falsch läuft

Option Explicit

Sub AktivesBlatt_Als_PDF()

Dim DatumVal As Date
Dim strDatum As String, strKalWoche As String
Dim strDateiname As String, strPfad As String

With ActiveSheet

DatumVal = .Range("C2").Value
strDatum = Format$(DatumVal, "DD.MM.YYYY")
strKalWoche = "KW " & WorksheetFunction.IsoWeekNum(DatumVal)

strDateiname = "Schichtbuch vom " & strDatum & ". " & strKalWoche
strPfad = "/Volumes/ScanDisk1/1094 Central Point Master/Als XLSM Daten/PDF /"

.ExportAsFixedFormat Type:=xlTypePDF, _
FileName:=strPfad & strDateiname, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

End With
End Sub

 

Hallo,

da ich keinen Mac besitze, sondern nur einen Windows-Rechner, habe ich den bei dir enthaltenen Pfad
strPfad = "/Volumes/ScanDisk1/1094 Central Point Master/Als XLSM Daten/PDF /"
durch einen bei mir gültigen Pfad ersetzt. Es hat funktioniert ohne Fehlermeldung und hat anschließend die PDF-Datei als PDF geöffnet und angezeigt.
Das 1. Mal verwendete ich die unter Windows üblichen "\" als Trennzeichen im Pfad - und es hat funktioniert.
Das 2. Mal verwendete ich die unter Windows nicht üblichen "/" als Trennzeichen im Pfad - und es hat auch funktioniert - wenngleich ich einen gespeicherten Dateinamen erhielt, wie er in URLs üblich ist (Leerzeichen wurden durch "%20" dargestellt).

Sieht man deinen strPfad-Pfad an, so fällt auf, dass das letzte Verzeichnis "PDF" mit einem Leerzeichen am Ende enthalten ist, also mit "PDF ". Wie weit das beim Mac erlaubt ist, weiß ich nicht. Unter Windows kann ich mir sehr plausibel vorstellen, dass dies nicht möglich ist, weil der an den Parameter "FileName:" mittels "strPfad & strDateiname" übergebene String dann zwei File-Parameter repräsentiert, was natürlich in der ".ExportAsFixedFormat"-Methode nicht möglich ist - deshalb auch der Abbruch mit dem ziemlich allgemeinen Runtime-Objekt-Fehler 1004.

Ferner hoffe ich, dass du, als du das Makro unter Windows laufen hast lassen, den Pfad in "strPfad" korrekt an die Windows-Umgebung angepasst hast. Denn so wie er momentan in dieser Variablen enthalten ist, kann ich mir nicht vorstellen, dass dies unter Windows funktioniert.

Ferner hoffe ich, dass du (egal ob Mac oder Windows) Schreibberechtigung in das Verzeichnis "PDF" hast.

 

Hallo Anton
tausend dank an dich. Es funktioniert jetzt.
Das Leerzeichen am ende vom PDF war der grund. Warum die PDF Datei unter Mac und Windows nicht Automatisch geöffnet wird habe ich noch nicht verstanden.
Nochmals vielen vielen dank. Ich würde gerne wissen ob ich irgendwie mit dir Kontakt aufnehmen kann
falls ich noch fragen habe bei meinem Projekt.

Gruß Polat