Makro-PDF-sendkeys-kill
07.10.2008 12:04:04
Marcus
kein neues Problem für euch, aber ich komme mit der Suche nicht wirklich voran und nachdem ich jetzt 4 x die falschen Dinge ausprobiert habe, möchte ich nicht mehr probieren!
Mein Problem:
Jeden Tag 90 Excel-Dateien, die in ein PDF-Dokument konvertiert werden müssen.
Läuft auch mit Makro, aber ich muss pro Datei 3 x klicken (Pfad, speichern und schließen).
Ich bin mir sicher, dass ich mir das sparen kann.
Hier mein Code:
Sub PDF()
Dim drucker As String, strFile_ps As String, strFile_pdf As String 'brauche ich das?
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For a = 1 To 90
Workbooks.Open Filename:= "C:\Tag 1.xls"
' Die 1 wird durch "a" ersetzt
Application.ActivePrinter = "PDF-XChange 2.5 auf Ne04:"
ActiveWorkbook.PrintOut Copies:=1, ActivePrinter:="PDF-XChange 2.5 auf Ne04:", _
Collate:=True
' Alternativ könnte ich auch Adobe anbieten!
' Hier müsste jetzt irgendetwas eingefügt werden!
ActiveWindow.Close
Workbooks("meine Datei.xls").Activate
Next a
End Sub
sendkeys und kill habe ich ausprobiert, aber nicht hinbekommen! Vielleicht ist das was ich gefunden habe auch veraltet. Toll wäre es, wenn die Lösung nicht nur mit Excel 2003, sondern auch mit 2000 läuft!
Ein kleiner Schritt für euch, ein großer für mich:-)
Vielen Dank im voraus an alle die sich die Mühe machen!
gruß
Marcus