Office: Dateien in Listbox auflisten und durch Dbl-Click öffnen

Helfe beim Thema Dateien in Listbox auflisten und durch Dbl-Click öffnen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo liebe Gemeinschaft, ich habe mir in den Letzten Tagen einen Code zusammen geschrieben, indem aus einem Verzeichnis die PDF Dateien in einer... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Tobschr, 1. Juli 2013.

Seite 1 von 2

TOBSCHR

Tobschr

Dateien in Listbox auflisten und durch Dbl-Click öffnen

Hallo liebe Gemeinschaft,

ich habe mir in den Letzten Tagen einen Code zusammen geschrieben, indem aus einem Verzeichnis die PDF Dateien in einer ListeBox dargestellt werden. Durch einen Doppelklick öffnen sich dann diese Dateien. Die Listbox befindet sich in einer Userform und erscheint nach klicken eines Buttons.
Eine Große Leuchte bin ich nicht in Sachen VBA. Aber immerhin es geht ersteinmal.

So nun mein Problem:
Nun möchte ich aber mehrere Buttons machen. Und hinter jedem Button soll ein anderer Pfad hinterlegt sein, woraus mir die Dateien angezeigt werden.

Hab es schon mit zwei Buttons hin bekommen. Aber habe jedes mal den Kompletten Code kopiert und angepasst. Das muss doch einfacher gehen, oder? Eine Userform und mehrere Buttons mit hinterlegtem Pfad.

Wer kann helfen?

Code:

Private Sub Vertrieb_Click()
VertriebForm.Show
End Sub

**********************
in der Userform geschrieben:
**********************

Private Sub Schließen_Click()
VertriebForm.Hide
End Sub

Private Sub Userform_Initialize()

Dim sFile As String
Dim sPath As String

' Pfad festlegen
sPath = "Y:\Projektarbeit Kirchner\QM\02_Geschäftsprozesse GP\GP01_Vertrieb\*.*"

' alle Dateien ermitteln
sFile = Dir$(sPath & "*.pdf")
Do Until sFile = ""
If sFile "." And sFile ".." Then
ListBox1.AddItem sFile
End If
sFile = Dir$
Loop

End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim strPath As String, strFile As String
strPath = "Y:\Projektarbeit Kirchner\QM\02_Geschäftsprozesse GP\GP01_Vertrieb\"
strFile = ListBox1.Text
If Dir(strPath & strFile) "" Then
Open_File strPath & strFile, 1
End If
End Sub

************************
im Modul geschrieben:
************************

Option Explicit
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
Public Sub Open_File(strFileName As String, windowType As Integer)
ShellExecute 0, "Open", strFileName, "", "", windowType
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Tobschr, 1. Juli 2013

#1
ALOYS78

aloys78

Hallo,

in einem Modul sPath als globale Variable definieren.
Code:

Public sPath as String
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und für jeden Commandbutton folgenden Code mit entsprechender Abänderung für den jeweiligen Pfad vorsehen
Code:

Private Sub CommandButton1_Click()
sPath = "Y:\Projektarbeit Kirchner\QM\02_Geschäftsprozesse GP\GP01_Vertrieb\*.*" 'Pfad für Button 1
VertriebForm.Show
VertriebForm.Hide
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Aloys

aloys78, 2. Juli 2013

#2
TOBSCHR

Tobschr

Hallo Aloys,

danke für die schnelle Antwort. habe die Änderungen angepasst. Doch leider zeigt er mir bei beiden Buttons die PDF-Dateien aus einem und demselben Verzeichnis an.(aus dem Vertriebs-Verzeichnis) *rolleyes.gif*

Obwohl zwei verschiedene Verzeichnisse angegeben sind.

Und wie ist das dann eigentlich beim öffnen (Auswahl durch Doppelklick)?
Dort habe ich doch auch noch einmal auf de Pfad verwiesen?

Code:

Private Sub Produktion_Click()
sPath = "Y:\Projektarbeit Kirchner\QM\02_Geschäftsprozesse GP\GP02_Produktion\*.*"
VertriebForm.Show
End Sub

Private Sub Vertrieb_Click()
sPath = "Y:\Projektarbeit Kirchner\QM\02_Geschäftsprozesse GP\GP01_Vertrieb\*.*"
VertriebForm.Show
End Sub

********************
Userform
********************
Private Sub Schließen_Click()
VertriebForm.Hide
End Sub

Private Sub Userform_Initialize()

Dim sFile As String

' alle Dateien ermitteln
sFile = Dir$(sPath & "*.pdf")
Do Until sFile = ""
If sFile "." And sFile ".." Then
ListBox1.AddItem sFile
End If
sFile = Dir$
Loop

End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim strPath As String, strFile As String
strPath = "Y:\Projektarbeit Kirchner\QM\02_Geschäftsprozesse GP\GP02_Produktion\"
strFile = ListBox1.Text
If Dir(strPath & strFile) "" Then
Open_File strPath & strFile, 1
End If
End Sub

****************
Modul
****************
Public sPath As String

Option Explicit
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
Public Sub Open_File(strFileName As String, windowType As Integer)
ShellExecute 0, "Open", strFileName, "", "", windowType
End Sub

Public sPath As String
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Tobias

Tobschr, 2. Juli 2013

#3
ALOYS78

aloys78

Dateien in Listbox auflisten und durch Dbl-Click öffnen

Hallo Tobias,

Und wie ist das dann eigentlich beim öffnen (Auswahl durch Doppelklick)?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn ich dich richtig verstanden habe, ist Auslöser der Auswahl ein CommandButton. Dort wird sPath als globale Variable gefüllt. In allen übrigen Routinen (kann) muß die Anweisung sPath= pfad-name entfernt werden.

Doch leider zeigt er mir bei beiden Buttons die PDF-Dateien aus einem und demselben Verzeichnis an.(aus dem Vertriebs-Verzeichnis)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sollte dieses Problem dann immer noch auftreten, dann prüfe mal, ob ab dem 2 Button die Userform_Initialize Prozedur aufgerufen wird. Wenn nein (Spekulation), dann würde ich VertriebForm.Hide durch Unload VertriebForm ersetzen.

Gruß
Aloys

aloys78, 2. Juli 2013

#4
TOBSCHR

Tobschr

OK das mit Unload UserForm hat gefunzt.

Das öffnen der angezeigten Dateien geschieht mit einem Doppelklick auf die Auswahl in der Listbox. Kein Extra Button. Und da kommt der Fehler: Fehler beim Kombilieren: Anweisung außerhalb eines Type-Blocks ungültig

Code:

Private Sub Schließen_Click()
Unload VertriebForm
End Sub

Private Sub Userform_Initialize()

Dim sFile As String

' alle Dateien ermitteln
strFile = Dir$(strPath & "*.pdf")
Do Until strFile = ""
If strFile "." And strFile ".." Then
ListBox1.AddItem strFile
End If
strFile = Dir$
Loop

End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
strFile As String
strFile = ListBox1.Text
If Dir(strPath & strFile) "" Then
Open_File strPath & strFile, 1
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Tobschr, 2. Juli 2013

#5
ALOYS78

aloys78

Hallo Tobias,

Das öffnen der angezeigten Dateien geschieht mit einem Doppelklick auf die Auswahl in der Listbox. Kein Extra Button.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das ist klar !

Und da kommt der Fehler: Fehler beim Kombilieren: Anweisung außerhalb eines Type-Blocks ungültig
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Fehler kommt also in der Prozedur Private Sub ListBox1_DblClick.

Hast du die globale Variable sPath auch bei der Definition in strPath umbenannt ?

Ansonsten teste mal folgenden Code für das Öffnen der pdf-Datei:
Code:

Dim strPath As String
'strPath = vorgegeben in CommandButtonx-Routine
Dim strFile As String
strFile = ListBox1.Text
If Dir(strPath & strFile) "" Then
ThisWorkbook.FollowHyperlink strPath & strFile
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Aloys

aloys78, 3. Juli 2013

#6
TOBSCHR

Tobschr

Hallo Aloys,

also in meinem Code gibt es keine sPath mehr. Alles in strPath umbenannt.
Dein Code funktioniert leider auch nicht. Es kommt zwar keine Fehlermeldung, aber es passiert nix beim Doppelklick.

Ich habe in einem Modul noch folgendes drin stehen:

Code:

Public strPath As String

Option Explicit
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
Public Sub Open_File(strFileName As String, windowType As Integer)
ShellExecute 0, "Open", strFileName, "", "", windowType
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hab es aber schon mit und ohne probert. NIX.

Tobschr, 3. Juli 2013

#7
TOBSCHR

Tobschr

Dateien in Listbox auflisten und durch Dbl-Click öffnen

He Aloys,

habs hinbekommen.

Im Pfad (StrPath) am ende das *.* weglassen und im Private Sub ListBox1_DblClick das StrFile as String weg gelassen. Geht alles.

Aber ein Problem hab ich noch.

Wen die Listbox sich öffnet. Und keine Datei ausgewählt ist. Und man klickt doppelt in den weißen Bereich, öffnet sich der Order in dem sich die gelisteten Dateien befinden. Das soll möglichst nicht sein.

Wo in meinem Code kann ich denn das ändern?

Code:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

strFile = ListBox1.Text
If Dir(strPath & strFile) "" Then
Open_File strPath & strFile, 1
End If
End Sub

***************
Modul
***************

Public strPath As String

Option Explicit
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
Public Sub Open_File(strFileName As String, windowType As Integer)
ShellExecute 0, "Open", strFileName, "", "", windowType
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Tobschr, 3. Juli 2013

#8
ALOYS78

aloys78

Hallo Tobias,

Es kommt zwar keine Fehlermeldung, aber es passiert nix beim Doppelklick.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Eine Ferndiagnose ist schwierig !

Wenn beim DoppelClick auf die ListBox nichts passiert, dann mach doch mal ein Debug mit Einzelschritt in der Prodezur Private Sub ListBox1_DblClick und check die einzelnen Ergebnisse.
Was steht in strPath, in strFile und wie verläuft die Dir-Anweisung ?

Gruß
Aloys

aloys78, 3. Juli 2013

#9
TOBSCHR

Tobschr

He Aloys,

habs hinbekommen.

Im Pfad (StrPath) am ende das *.* weglassen und im Private Sub ListBox1_DblClick das StrFile as String weg gelassen. Geht alles.

Aber ein Problem hab ich noch.

Wen die Listbox sich öffnet. Und keine Datei ausgewählt ist. Und man klickt doppelt in den weißen Bereich, öffnet sich der Order in dem sich die gelisteten Dateien befinden. Das soll möglichst nicht sein.

Wo in meinem Code kann ich denn das ändern?

Code:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

strFile = ListBox1.Text
If Dir(strPath & strFile) "" Then
Open_File strPath & strFile, 1
End If
End Sub

***************
Modul
***************

Public strPath As String

Option Explicit
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
Public Sub Open_File(strFileName As String, windowType As Integer)
ShellExecute 0, "Open", strFileName, "", "", windowType
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Tobschr, 3. Juli 2013

#10
LUSCHI

Luschi

Hallo Tobschr,

mach es so: Code:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

If Me.ListBox1.ListIndex = -1 Then
Exit Sub
End If

'Dein weiterer Code

'wichtig
Me.ListBox1.ListIndex = -1
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß von Luschi
aus klein-Paris

Luschi, 3. Juli 2013

#11
TOBSCHR

Tobschr

Jungs ich bin durchweg begeistert. Ein ganz großes Lob.
Funktioniert alles Tadellos.

Aber jeden tag kommen weitere Wünsche hinzu. Und meine VBA Kentnisse neigen sich dem Ende wie ihr merkt.

der Code zum befüllen der Listbox ist mittlerweile wie folgt:
Code:

Private Sub Userform_Initialize()

Dim sFile As String

' alle Dateien ermitteln
strFile = Dir$(strPath & "*.pdf")
Do Until strFile = ""
If strFile "." And strFile ".." Then
ListBox1.AddItem strFile
End If
strFile = Dir$
Loop

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nun wäre mein Wunsch das auch Dateien (PDF) angezeigt werden die in den Ordnern darunter liegen, falls es da Ordner gibt. Aber die Ordner selbst sollen nicht angezigt werden. Funktioniert das mit dem Befehl "Dir" überhaupt noch?

Und die Listbox soll nun wenn möglich zweispaltig sein. In der ersten Spalte sollen Dateiname + Endung, wie es jetzt schon der Fal ist. Und in der zweiten Spalte soll das Änderungsdatum der Datei stehen.

Tobschr, 3. Juli 2013

#12
TOBSCHR

Tobschr

Dateien in Listbox auflisten und durch Dbl-Click öffnen

So das Problem mit der zweispaltigen ListBox wäre auch geklärt.
ColumnCount auf 2 gesetzt und
Code:

strFile = Dir$(strPath & "*.pdf")
Do Until strFile = ""
If strFile "." And strFile ".." Then
'eintragen in die Listbox
ListBox1.AddItem strFile
ListBox1.List(i, 1) = Format(FileDateTime(strPath & "\" & strFile), "dd.mm.yyyy")
i = i + 1
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bleibt nur noch das verflixte Problem mit den Unterordnern. *frown.gif*

Tobschr, 7. Juli 2013

#13
ALOYS78

aloys78

Hallo Tobias,

Bleibt nur noch das verflixte Problem mit den Unterordnern
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Da wäre es mE gut, wenn du den gesamten Code für die Userform hier präsentieren würdest.

Gruß
Aloys

aloys78, 8. Juli 2013

#14
TOBSCHR

Tobschr

Hallo Aloys,

hier der komplette Code.

Code:

Private Sub Vertrieb_Click()
strPath = "Y:\Projektarbeit Kirchner\QM\02_Geschäftsprozesse GP\GP01_Vertrieb\"
VertriebForm.Show
End Sub

Private Sub Produktion_Click()
strPath = "Y:\Projektarbeit Kirchner\QM\02_Geschäftsprozesse GP\GP02_Produktion\"
VertriebForm.Show
End Sub

Private Sub Versand_Click()
strPath = "Y:\Projektarbeit Kirchner\QM\02_Geschäftsprozesse GP\GP03_Versand\"
VertriebForm.Show
End Sub

Private Sub Arbeitsvorbereitung_Click()
strPath = "Y:\Projektarbeit Kirchner\QM\02_Geschäftsprozesse GP\GP04_Arbeitsvorbereitung und Produktionsplanung\"
VertriebForm.Show
End Sub

*************
Userform
*************

Private Sub Schließen_Click()
Unload VertriebForm
End Sub

Private Sub Userform_Initialize()

Dim strFile As String

' alle Dateien ermitteln
strFile = Dir$(strPath & "*.pdf")
Do Until strFile = ""
If strFile "." And strFile ".." Then
'eintragen in die Listbox
ListBox1.AddItem strFile
ListBox1.List(i, 1) = Format(FileDateTime(strPath & "\" & strFile), "dd.mm.yyyy")
i = i + 1

End If
strFile = Dir$
Loop

End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

If Me.ListBox1.ListIndex = -1 Then
Exit Sub
End If
strFile = ListBox1.Text
If Dir(strPath & strFile) "" Then
Open_File strPath & strFile, 1
End If

Me.ListBox1.ListIndex = -1
End Sub

***********
Modul
***********
Public strPath As String

Option Explicit
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

Public Sub Open_File(strFile As String, windowType As Integer)
ShellExecute &H3, "Open", strFile, "", "", windowType
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Tobias

Tobschr, 8. Juli 2013

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Dateien in Listbox auflisten und durch Dbl-Click öffnen

Die Seite wird geladen...

Dateien in Listbox auflisten und durch Dbl-Click öffnen - Similar Threads - Dateien Listbox auflisten
VBA7, Declare Function FindWindow Lib
in Microsoft Excel Hilfe
VBA7, Declare Function FindWindow Lib: Hallo Allerseits, Frage: Anpassung eines bereits Geschrieben Codes (Forum). Würde ich gern verwenden da es gut Passt. Quelle> VBA Beispiele Seite Datei schließen - Hajo's Excelseiten Datei>...
Name der Datei durch Excel geändert
in Microsoft Excel Hilfe
Name der Datei durch Excel geändert: Hallo und guten Abend, Die Datei wird mittels Button (VBA) zwischen gesichert. Das Makro sichert zuvor die Datei und erstellt zus. eine Sicherungsdatei mit der Erweiterung Beispiel-"Sich"....
Zugriff auf nicht vorhandene Datei seitens Excel
in Microsoft Excel Hilfe
Zugriff auf nicht vorhandene Datei seitens Excel: Hallo, wann immer ich in Excel Daten in eine Zelle gebe, dauert es ca. 1-2 Minuten, bevor Excel die weitere Bearbeitung freigibt. Unten links gibt es den Hinweis "Zugriff auf Datei erfolgt". Dies...
Makro öffnet unerwartete Datei
in Microsoft Excel Hilfe
Makro öffnet unerwartete Datei: Hallo Forum, ich brächte euer Schwarmwissen. Arbeite mit Excel eine Auftragsbearbeitung. Dort habe ich mir einen Button mit Makro erstellt und nutze diesen schon lange. Das Makro generiert ein...
Große Textdatei - Formate entschlacken
in Microsoft Word Hilfe
Große Textdatei - Formate entschlacken: Hallo, ich arbeite seit längerem mit einer ziemlich großen Datei (mittlerweile 2000 Seiten), die sozusagen mein Zettelkasten ist. Alles ist leicht auffindbar durch Überschriften (2 Ebenen) und...
Excel 2010 - Link zum Start Video-Datei mit Listbox und CB in Userform erstellen
in Microsoft Excel Hilfe
Excel 2010 - Link zum Start Video-Datei mit Listbox und CB in Userform erstellen: Hallo zusammen, ich will in Excel 2010 mittels VB in einer Userform eine Video-Datei auswählen und mittels eines Command-Button das Video starten. Die Videos liegen in einem Unterordner mit...
PDF-Datei in der Listbox auswählen und Datei löschen
in Microsoft Excel Hilfe
PDF-Datei in der Listbox auswählen und Datei löschen: Guten morgen zusammen. Ich habe folgenden Code in einer UserForm Option Explicit Const Ordnerpfad As String = "C:\test\" '<<< \ Schrägstrich am Ende nicht vergessen Private Sub...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden