Office: (Office 2013) PDF-Datei mittels VBA öffnen

Hallo VBAler,

anbei eine kleine Tabelle mit folgendem Code:

Dieser bewirkt folgendes:
Es wird überprüft, ob ein Haken gesetzt ist und ob in Spalte B etwas steht.
Wenn das so ist, dann wird folgenden msgbox angezeigt

Speicherort der Excel-Datei + + Inhalt von Zelle A3 + + + Inhalt der aktiven Zelle + .pdf

Das macht der Code auch so wie ich es möchte.
(bin sehr stolz auf mich, dass ich das so hinbekommen habe *Smilie )

Jetzt möchte ich aber, dass die Datei geöffnet wird.
ich weiß, dass es mit 'ShellExecute' geht, aber ich habe keinerlei Ahnung was ich da schreiben muss.

Kann mir einer von euch bitte helfen?

Danke im Vorraus!

Gruß, Michael

:)

 

Hallo Michael,

Datei öffnen Word, Powerpoint oder sonst was
Option Explicit
Declare Function ShellExecute Lib "SHELL32.DLL" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Sub Open_File(strFileName As String, windowType As Integer)
ShellExecute 0, "Open", strFileName, "", "", windowType
End Sub

Sub test()
'1 = vbNormalFocus
'2 = Minimized
'3 = Maximized
Open_File "c:\DeineDatei.txt", 1
End Sub
‘ von Ramses Rainer

 

Hallo,

ich habe das jetzt einmal so zusammengefasst:

jetzt kommt aber immer: Fehler beim Kompilieren: Konstanten, Zeichenfolge (....)

Gruß, Michael

 

ich habe meinen Beitrag noch geändert da / fehlte, das ist bei Dir drin.
Ich habe das Zeichen 2x eingegeben damit es sichtbar wird.
Warum Du das zusammengefast hast ist mir nicht klar Die Prozedur Open_File hast Du ersetzt, keine Ahnung womit.

 

Hallo,

ich stehe gerade ein wenig auf dem Schlauch.

Den Smiley hatte ich schon aus dem Codevorschlag gelöscht.

Was bei mir ist, dass die vorhin geschriebene Meldung kommt und der Text

ab "Declare ... bis ...as Long" blau hinterlegt wird.

Michael

 

Hallo Michael,

blau habe ich im VBA Editor noch nicht gesehen.

nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten

 

Hallo,

anbei die Datei.

Michael

 

ich bin dann raus, da meine Beiträge nicht komplett gelesen werden.
Das wird schon seinen Grund haben.

 

Hallo Hajo,

der Nachbau sieht nicht wie das Original aus...klar!

Bitte Original verlinken...klar!

Wie?
Auf den Link klicken...klar...VBA-Code-Seite...hm...ich schaue wieder wie ein Schwein ins Uhrwerk.

Also schicke ich doch an Anhang meine Datei.

Damit kann man doch sicherlich auch etwas anfangen?

Ich dachte, dass das Forum dazu da ist, den weniger VBA-begabten zu helfen.
Habe ich mich da geirrt?

Gruß, Michael

 

Hallo Michael,

schau dir diesen Link an, das sollte dir helfen.

http://www.herber.de/forum/archiv/12...A_oeffnen.html

 

Hallo,

anbei mein Code, der fast perfekt funktioniert:

Der Pfad wird korrekt erkannt, die Datei wird korrekt erkannt (beides über die msgboxen getestet)
aber leider werden im Pfad ALLE PDF-Dateien geöffnet.
Es soll aber nur die PDF-Datei geöffnet werden, deren Dateiname = Inhalt der aktiven Zelle ist.

Kann mir bitte hierzu jemand helfen?

 

Hallo Michel,

ich habe dir die Sub ein bisschen geändet, damit nur eine PDF-Datei geöffnet wird. Zusätzlich habe ich noch eine Prüfung eingebaut, damit bei fehlender Datei bzw. falschem Pfad eine Fehlermeldung ausgegeben wird. "ShellExecute" tut einfach nix, wenn nichts gefunden wird.

Code:

Grüße,
evus