Datum

Titel

25.04.2024 23:47:55

Datum ausweisen, wenn definierte Summe erreicht ist

25.04.2024 21:40:53

Excel Datenquelle aus dem Web mit Anmeldung?

25.04.2024 21:21:16

Zellkommentar in UserForm anzeigen und bearbeiten

25.04.2024 21:13:13

Kalenderwochen addieren

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1716to1720

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

PDF in verzeichnis suchen und öffnen

Forumthread: PDF in verzeichnis suchen und öffnen
4 Beiträge zu diesem Forumthread
Anzeige
262 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Excel Dialoge
Top 100 Forumthreads

19.10.2019 19:45:43

Manuel

Hallo Leute,
Ich benötige bitte ein Makro wo eine PDF Datei (Name wird aus Listenfeld ausgelesen, ohne pdf Endung) im Verzeichnis T:\A\B\ in unterschiedlichen unterordner gesucht und anschließend ausgeführt wird.
Bitte um Vorschläge
Besten Dank im Voraus
Manuel

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: PDF in verzeichnis suchen und öffnen

19.10.2019 19:50:43

Hajo_Zi
AW: PDF in verzeichnis suchen und öffnen

19.10.2019 20:11:14

Nepumuk
AW: PDF in verzeichnis suchen und öffnen

19.10.2019 23:29:12

Manuel
AW: PDF in verzeichnis suchen und öffnen

20.10.2019 09:44:08

Luschi

AW: PDF in verzeichnis suchen und öffnen

19.10.2019 19:50:43

Hajo_Zi

Hallo Manuel,
Ordner auslesen
http://hajo-excel.de/gepackt/vba2007/ordner_auslesen_hyperlink2007.zip

AW: PDF in verzeichnis suchen und öffnen

19.10.2019 20:11:14

Nepumuk

Hallo Manuel,
Aufrufen musst du das so:

Call Suchen(ListBox.Text)

Option Explicit

Private Declare Function SearchTreeForFile Lib "imagehlp.dll" ( _
    ByVal RootPath As String, ByVal InputPathName As String, _
    ByVal OutputPathBuffer As String) As Long
Private Declare Function ShellExecuteA Lib "shell32.dll" ( _
    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

Private Const MAX_PATH As Long = 260
Private Const SW_MAXIMIZE As Long = 3
Private Const FOLDER_PATH As String = "T:\A\B\"

Public Sub Suchen(ByVal pvstrFilename As String)
    Dim strPath As String * MAX_PATH
    Dim lngReturn As Long
    lngReturn = SearchTreeForFile(FOLDER_PATH, pvstrFilename & ".pdf", strPath)
    If lngReturn = 0 Then
        Call MsgBox("Datei nicht gefunden.", vbExclamation, "Hinweis")
    Else
        strPath = Left$(strPath, InStr(strPath, vbNullChar) - 1)
        Call ShellExecuteA(Application.hwnd, "OPEN", strPath, vbNullString, vbNullString, SW_MAXIMIZE)
    End If
End Sub

Gruß
Nepumuk

AW: PDF in verzeichnis suchen und öffnen

19.10.2019 23:29:12

Manuel

Danke euch
Leider funktioniert keines der beiden.
Gibt es hier keine einfachere Lösung mittels vba ? Die code sind schon sehr komplex 😅

AW: PDF in verzeichnis suchen und öffnen

20.10.2019 09:44:08

Luschi

Hallo Manuel,


Leider funktioniert keines der beiden.

das kann nich einfach nicht glauben. Die Lösung von Nepumuk klappte bei mit auf Anhieb. Zeige doch mal Deinen Code dazu; sicher hast Du den Pfad nicht angepaßt, bei mir sieht der jetzt so aus:
Private Const FOLDER_PATH As String = "K:\Daten\Buecher\Access\A_2002\AccessXP_Vba\"
Gruß von Luschi
aus klein-Paris