25.09.2017, 12:40
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.
Kann mir jemand weiterhelfen, warum dies nicht funktioniert?
Liebe Grüße
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.CloseKann mir jemand weiterhelfen, warum dies nicht funktioniert?
Liebe Grüße