Nach PC Umzug Problem

[Beltason]

Hallo Leute,

vor geraumer Zeit hat mir einer einen Code geschrieben, wo nach Feierabend eine Excel Datei als PDF in einem Ordner gespeichert wird.

Sub aktivesBlattToPdf()
Dim objSh As Object
Set objSh = CreateObject("WScript.Shell")
ChDir "E:\Dokumente PDF\PDF Sicherung Tagesabschluß\2019\03" 'anpassen 'oder thisworkbook.path
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Range("F5").Value & Format(Now, "DD.MM.YYYY.hh.mm.ss") & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
objSh.Popup "Vielen Dank für deine PDF Speicherung!", 3, "", 64
Set objSh = Nothing
End Sub


Das funktioniert jetzt nicht mehr! Wir sind auf ein neues Laptop umgezogen. Was läuft da falsch?

Danke für Hilfe..

[cysu11]

Hi, 
Wenn alle Ordner usw. passe , was kommt denn da für eine Fehlermeldung?
ich vermute sonst, dass du früher die 32bit Version hattes und jetzt die 64bit Version?


LG
Alexandra

[RPP63]

Moin!
Mac? Dann funktioniert WScript natürlich nicht!
Was soll die Zeile überhaupt im Code?
Die wird doch gar nicht benötigt.

Gruß Ralf

[Kuwer]

Hallo Ralf,

Was soll die Zeile überhaupt im Code?
Die wird doch gar nicht benötigt.

vielleicht für die sich selbst beendende MsgBox?

Gruß Uwe

[RPP63]

Ändert aber nix am Rest meiner Aussage …
Falls Mac, dann wäck!

[Beltason]

Vielen Dank für die vielen Antworten. Das neue Laptop wurde wieder zurück geschickt.
Entsprach nicht unseren Anforderungen. Wenn der neue kommt, kann ich die Tipps testen. Danke an alle...

[schauan]

Hallöchen,

Mac?

Gibt's denn auf dem Mac E:\...\... ? Ich glaube, eher nicht

Auch wenn E:\ und der Pfad auf dem Laptop sind, muss es trotzdem nicht funktionieren Schaue mal, ob Deine Datei unter Dokumente liegt …

Prinzip beim Wechseln von Laufwerken und Pfaden:

Code:

Sub test()
ChDrive "F:"
ChDir "F:\Work\"
ThisWorkbook.SaveAs Filename:="Test.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub

[RPP63]

Moin André!
Ist (auch) richtig, ändert aber immer noch nichts an meiner Anmerkung!
Gerne aber zum dritten Mal:
Auf einem Mac funktioniert der Code nicht!

Gruß Ralf

[schauan]

Moin Ralf,

2007 gibt es für einen Mac glaube auch nicht.
Gibt's denn überhaupt einen Mac? Zumindest hier bei. TE hab ich noch keinen gefunden.  :21:
Würde ansonsten bedeuten, er emuliert Windows bzw hat eine VM. Und da gibt's kein Wscript?

[Beltason]

Hallo Leute,
ich greife das Thema noch mal auf.
Nach dem nun neues Laptop hier ist, habe ich immer noch folgendes Problem. Der unten stehende Code hat immer funktioniert. Er machte aus dem Tabellenblatt ein PDF in einem Ordner meiner Wahl. Jetzt auf dem neuen Laptop, kommt zwar keine Fehlermeldung (auch die msg Box erscheint) jedoch ist in dem Ordner dann kein PDF drin...auf 2 fremden Laptop funktioniert alles Fehlerfrei. Ist in dem code was falsch oder woran liegt es? Und ich habe keinen Mac condern Win10

Sub aktivesBlattToPdf()
Dim objSh As Object
Set objSh = CreateObject("WScript.Shell")
ChDir "E:\PDF Sicherung Tagesabschluß" 'anpassen 'oder thisworkbook.path
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Range("F5").Value & Format(Now, "DD.MM.YYYY.hh.mm.ss") & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
objSh.Popup "Vielen Dank für deine PDF Speicherung!", 3, "", 64
Set objSh = Nothing
End Sub