Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1292to1296
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1292to1296
1292to1296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pfad für Exe finden

Pfad für Exe finden
10.01.2013 19:34:03
ing.grohn
Hallo Forum,
in meiner Excel-Anwendung rufe ich für die PDF-Files den Acrobat Reader auf. Eigentlich funktioniert das auch!
Aber: auf einem Rechner ist der Pfad so (ohne) auf einem anderen Rechner so (mit Hochkomma): 
Sub PdfOeffnen(Pfad As String)
Shell "C:\Program Files (x86)\Adobe\Reader 10.0\Reader\AcroRd32.exe " _
& Pfad, vbNormalFocus
'Shell "C:\Program Files\Adobe\Reader 10.0\Reader\acrord32.exe " _
& Pfad, vbNormalFocus
End Sub

Hat jemand ne Idee, den richtigen Pfad automatisch zu finden?
Für Antworten recht herzlichen Dank!!
Mit freundlichen Grüßen
ALbrecht

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

Betreff
Datum
Anwender
Anzeige
AW: Pfad für Exe finden
10.01.2013 19:48:48
Hajo_Zi
Hallo Albrecht,
mache es so da ist der Ordner uninteressant. 
Datei öffnen Word, Powerpoint oder sonstwas
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

Anzeige
AW: Pfad für Exe finden
10.01.2013 19:52:24
Thomas
Hallo Albrecht,
ich rufe in einem Prog nur die *.exe auf, ohne Dateipfad. Wird vom Prog einwandfrei angenommen.
Gruß
Thomas

AW: Pfad für Exe finden
10.01.2013 20:01:04
ing.grohn
Hallo Hajo,
einfach genial!!
Vielen Dank! (auch an Ramses)
Mit freundlichen Grüßen
Albrecht

Viel. Dk an Hajo + Thomas o.T.
10.01.2013 20:12:48
ing.grohn

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige