Zweite Arbeitsmappe mit VBA unsichtbar öffnen, inhalt als PDF speichern, schließen

[Spike87]

Hallo,
Ich möchte gerne aus einer ersten Arbeitsmappe heraus (1) eine zweite Arbeitsmappe (2), mit Passwortschutz, unsichtbar öffnen und ein Worksheet "AuditLog" bzw die genutzte Range dieses Worksheets als PDF/a exportieren und an Stelle xy speichern.

Das unsichtbare öffnen, reinschreiben und speichern funktioniert bereits.

Hier der Code den ich bereits habe, leider führt da ganze weder zum Absturz noch zum gewünschten Ergebnis. Es passiert gar nichts. 

Code:

[Lineaudittrail = Letzte genutzte Zeile]        
[audittrail = Position&Name der Datei]

Dim wb As Excel.Workbook

Set wb = Application.Workbooks.Open(audittrail, Password:="test")

ChDir "C:\Users\test"
Worksheets("AuditLog").Range("A1:M" & Lineaudittrail).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "AuditTrail", Quality:= _
       xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
   
 
   wb.Save
    wb.Close

Kann mir jemand weiterhelfen, warum dies nicht funktioniert?
Liebe Grüße

[schauan]

Hallöchen Spike87,

wenn es weder einen Fehler gibt noch etwas passiert, könnte es sein, das die Datei irgendwo abgelegt wird, nur nicht da, wo Du es erwartest.
Schreibe mal zum Dateinamen den kompletten Pfad davor und gib eventuell auch mal .pdf dazu und schaue, was dann passiert.

[Spike87]

An welcher Stelle meinst du den Dateinamen? Bei chdir wird der sonst mit angegeben, ist jetzt aber aus Beispeilgründen anonymisiert.

Hat sonst noch vielleicht jemand einen Vorschlag?

Liebe Grüße

[Kuwer]

Hallo,

füge nach der ChDir-Zeile diese Zeile ein:

MsgBox CurDir

Was wird für ein Pfad angezeigt? Stimmt er mit deinen Erwartungen überein?

Gruß Uwe

[schauan]

Hallöchen,

der Dateiname wird in Deinem Code da angegeben:

... Filename:= _
    "AuditTrail" ...

[Spike87]

Hallo,

Das größte Problem war, dass die Excel Datei einfach nicht möglich war im PDF Format zu speichern (Auch nicht händisch). Scheinbar ist das ein bekannter Bug in Excel, nachdem ich die Datei neu erstellt hatte und ein paar Parameter verbessert habe, hat es ohne Weiteres funktioniert.

Zudem fehlte beim Dateinamen noch der Ablagepfad.

Vielen Dank für die Hilfe und einen schönen Tag noch!