Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Mit Makro mehrere pdf erstellen

Forumthread: Mit Makro mehrere pdf erstellen

Mit Makro mehrere pdf erstellen
10.04.2003 09:44:49
Markus
Liebes Forum,

weiß jemand, wie ich mit Excel innerhalb eines Makros eine externe Anwendung ansteuern kann, da man jeweils einen Dateinamen eingeben muss?

Das würde ich gerne automatisch machen.

Danke und Grüße
Markus

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
SENDKEYS
10.04.2003 10:05:57
Andreas Walter

Das 100% identische Problem habe ich mit dem Produkt PDFfactory und SENDKEYS gelöst. Wenn man Acrobat hat, geht es glaube ich einfacher und besser (aber teurer).

Weil man nicht zu viel im voraus mit SENDKEYS schicken darf, sonst verschluckt sich die Anwendung, müsste ich kunstliche Pausen mit Application.Wait einbauen.

Andreas Walter


Anzeige
Re: SENDKEYS
10.04.2003 10:55:37
Markus

Hallo Andreas,

ich arbeite mit Acrobat (in der ARbeit). Ich werde aber die Funktion mit Sendkeys gleich ausprobieren.

Vielen Dank erstmal.

Markus

Re: SENDKEYS
10.04.2003 11:29:40
Markus

Hallo Andreas,

ich habe es jetzt ausprobiert, allerdings funktioniert es nicht, da der Makro unterbrochen wird, wenn Acrobat auf die Eingabe wartet.

Das bedeutet, der Schritt zur Eingabe des Dateinamens wird erst garnicht ausgeführt, sondern erst, wenn der Drucken-Schritt beendet ist. Allerdings dann ist es natürlich zu spät.

Ist das bei Ihnen auch so? Haben Sie das Problem anderweitig gelöst?

Gruß
Markus

Anzeige
Re: SENDKEYS
10.04.2003 11:52:30
Andreas Walter

Nutz mal
Application.Wait Now + TimeValue("00:00:10")
für 10 Sekunden

Ich weiss nicht, wie es prinzipiell mit Adobe funktioniert.
Mit PDFfactory hat man einen Drucker installiert.
Ich wähle den Drucker, mit
Application.ActivePrinter=

Und Dann

SendKeys "%dd{Enter}", True

Application.Wait Now + TimeValue("00:00:10")


SendKeys "%s" & Sheets("Zeit").Range("A44").Value & _
Worksheets(counter).Name & ".pdf{Enter}", True

Damit wird der Name aus irgendwleche Zellen gesetzt

Application.Wait Now + TimeValue("00:00:10")

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige