---

Hallo,

Irgendwie stehe ich gerade auf dem Schlauch.

Ich möchte per VBA ein File öffnen. Es ist aber ein Excel - File sondern ein PDF. Das PDF soll entsprechend in seiner Applikation geöffnet werden.

Mit dem Shell bekomme ich zwar den Acrobat Reader auf, aber nicht das gewünschte PDF.

******************
Dim Ergebnis
Ergebnis = Shell("C:\Programme\Adobe\Reader 8.0\Reader\AcroRd32.exe", 1)
*****************

Kann mir jemand auf die Sprünge helfen?

Gruss
Mike

------------------

The Power Of Dreams Schreib mal wieder

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Mike,

Gib dem (Shell)String nach der *.exe ein Leerzeichen mit und danach hängste Pfad+Name des zu öffnenden Dokumentes mit ran.
also:

Code:

---

Shell "C:\Programme\programm.exe c:\pfad\file.ext", 1

---

Oder aber:

Code:

---

Sub y()
    Dim pdfFile
    pdfFile = Application.GetOpenFilename("pdf-Files (*.pdf), *.pdf", , , , 0)
    If pdfFile <> False Then Shell "C:\Programme\Adobe\Acrobat 5.0\Acrobat\acrobat.exe " & pdfFile, 1
End Sub

---

HTH, Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Nancy,

Manchmal ist die Lösung einfacher als man denkt, leider aber in der Hilfe von Excel nichts gefunden.

Funktioniert wunderbar. Verwende den direkten Zugriff auf eine File.

Hintergrund: Ich benötige immer wieder die gleichen Files für meine tägliche Arbeit. Somit hab ich mir eine XLA - Datei angelegt, welche eine Form enthält. Darüber öffne ich mir die entsprechenden Dokumente. Bisher nur Excel - Dateien, welche in Excel direkt geöffnet werden können. Nun ist das erste nicht Excel - File dazugekommen.

Danke für die Hilfe

Gruss
Mike

------------------

The Power Of Dreams Schreib mal wieder

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Nancy,

tolle Sache

Zitat:

---

"C:\Programme\Adobe\Acrobat 5.0\Acrobat\acrobat.exe " & pdfFile, 1

---

Dies ist nur ein Versuch, daß Leerzeichen nach '...exe' hervorzuheben ;-) Will den IE über einen Button aufrufen, sieht dann so aus (und funzt):

Code:

---

Private Sub CommandButton1_Click()
Shell "C:\Programme\Internet Explorer\IEXPLORE.EXE" & " " & "http://www.wasauchimmer.htm", vbMaximizedFocus
End Sub

---

------------------
Gruß,
Frederik

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP