Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Beliebige Datei unter best. Pfad öffnen

Forumthread: Beliebige Datei unter best. Pfad öffnen

Beliebige Datei unter best. Pfad öffnen
04.10.2004 16:28:15
Matthias
Hallo.
habe ein VBA-technisches Problem. Ich versuche unter einem bestimmten Pfad eine Datei zu öffnen. Es muss aber nicht immer ein .xls sein, es kann sich dabei auch um .pdf .doc oder .mpp handeln.
Kann mir jemand helfen. Jetzt schon ein Dankeschön
Gruß Matthias :-)
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Beliebige Datei unter best. Pfad öffnen
08.10.2004 21:20:16
Holger
Hallo Matthias,
ich denke das ist die Lösung. Habe ich aus einem Beitrag per Recherche gefunden.
"Hallo Excelfans
Nun habe ich eine Lösung gefunden, wie man Dateien verschiedener Anwendungen aus Excel aufrufen kann, ohne den Pfad der Anwendung wissen zu müssen. Einfach die folgenden Codezeilen in ein Modul eingeben und den Dateinamen angeben.
Der letzte Parameter gibt an wie das Fenster angezeigt wird (maximiert, minimiert usw.)
Das ganze mit Private Declare Function.... gehört in eine Zeile, mit der Darstellung klappt's nicht so ganz
Private 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 testen()
Call ShellExecute(1, "Open", "c:\temp\Dateiname.pdf", 0&, 0&, 1)
End Sub



Gruß,

Holger
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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