Live-Forum - Die aktuellen Beiträge
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
Anzeige
Archiv - Navigation
1488to1492
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
1488to1492
1488to1492
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA, pdf Dateien in listbox einlesen und öffnen

VBA, pdf Dateien in listbox einlesen und öffnen
20.04.2016 08:54:28
Michael
Guten Morgen liebe VBA Gemeinde, wieder stehe ich vor einem Problem was ich auch mit Internet Recherche nicht gelöst bekomme.
Ich möchte aus folgenden Ordner pdf Dateien in eine Listbox einlesen und diese aus der Listbox heraus auch öffnen könnnen.
Diese Listbox befindet sich in einer Userform und der Pfad wo sich die Dateien befinden lauetet: C:\Users\work\Documents\Test\Dateien.
Könnte mir da vielleicht jemand helfen?
Schöne Grüsse
Michael

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA, pdf Dateien in listbox einlesen und öffnen
20.04.2016 09:43:40
ChrisL
Hi Michael
Private Sub ListBox1_Click()
Const sPfad As String = "C:\Users\work\Documents\Test\Dateien\"
ActiveWorkbook.FollowHyperlink sPfad & ListBox1.Value
End Sub


Private Sub UserForm_Initialize()
Const sPfad As String = "C:\Users\work\Documents\Test\Dateien\"
Dim sDatei As String
sDatei = Dir(sPfad & "\*.pdf")
Do While sDatei  ""
ListBox1.AddItem sDatei
sDatei = Dir()
Loop
End Sub

cu
Chris

AW: VBA, pdf Dateien in listbox einlesen und öffnen
20.04.2016 11:37:03
Michael
Hallo Chris, vielen Dank für dein schnelle Antwort! Klappt auch super, aber ich möchte jetzte mehrere cmd Buttons für mehrere Orner erstellen und das klappt so wie es wollte nicht.....siehe unten.
Oder gibt es eine konfortablere Lösung eine Textbox wie einen Explorer zu verwenden indem man mit Doppelklick Ordner und dann Dateien öffnet.
Gruß Michael
Private Sub UserForm_Initialize()
'################################################################# FUS ######################### _
Const sPfad As String = "D:\Sicherung 18.02.2016\Michael\BV\ERV\FUS\"
Dim sDatei As String
sDatei = Dir(sPfad & "\*.pdf")
Do While sDatei  ""
ListEDV.AddItem sDatei
sDatei = Dir()
Loop
'################################################################# MDR ######################### _
Const sPfad As String = "D:\Sicherung 18.02.2016\Michael\BV\ERV\MDR\"
sDatei = Dir(sPfad & "\*.pdf")
Do While sDatei  ""
ListEDV.AddItem sDatei
sDatei = Dir()
Loop
End Sub

Anzeige
AW: VBA, pdf Dateien in listbox einlesen und öffnen
20.04.2016 12:53:04
ChrisL
Hi Michael
Im Prinzip müsstest du nur die Konstante in eine normale Variable ändern...
Dim sPfad As String
sPfad = "C:....."
Das Problem hast aber beim öffnen, weil die Pfad-Information fehlt. Darum die andere Variante:
Sub t()
Dim flname As Variant
flname = Application.GetOpenFilename("PFD-Datei (*.pdf),*.pdf")
If flname = False Then
Exit Sub
Else
ActiveWorkbook.FollowHyperlink flname
End If
End Sub

cu
Chris

AW: VBA, pdf Dateien in listbox einlesen und öffnen
22.04.2016 08:20:20
Michael
Guten Morgen und hallo Chris,
komme erst jetzt wieder dazu weiter zu basteln.
Leider ist es nicht das was ich mir vorstelle!
Ich möchte die PDF Dateien in die Listbox einlesen und dann mit einem Doppelklick oder Ok Befehl öffnen.
Jetzt habe ich aber mehrere Ordner wo sich Pdf Dateien befinden und die ich einzeln einlesen möchte in dem ich einen CommandButton MDR, SDR und MMW anklicke.
D:\Sicherung 18.02.2016\Michael\BV\ERV\MDR\
D:\Sicherung 18.02.2016\Michael\BV\ERV\SDR\
D:\Sicherung 18.02.2016\Michael\BV\ERV\MMW\
Wäre das möglich?
Gruß Michael

Anzeige
AW: VBA, pdf Dateien in listbox einlesen und öffnen
22.04.2016 10:18:29
ChrisL
Hi Michael
Na gut...
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With ListBox1
ActiveWorkbook.FollowHyperlink .List(.ListIndex, 0) & .List(.ListIndex, 1)
End With
End Sub


Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "0cm;10cm"
Call LoadLB("D:\Sicherung 18.02.2016\Michael\BV\ERV\MDR\")
Call LoadLB("D:\Sicherung 18.02.2016\Michael\BV\ERV\SDR\")
Call LoadLB("D:\Sicherung 18.02.2016\Michael\BV\ERV\MMW\")
End Sub

Private Sub LoadLB(sPfad As String)
Dim sDatei As String
sDatei = Dir(sPfad & "*.pdf")
Do While sDatei  ""
With ListBox1
.AddItem
.List(.ListCount - 1, 0) = sPfad
.List(.ListCount - 1, 1) = sDatei
sDatei = Dir()
End With
Loop
End Sub

cu
Chris

Anzeige
AW: VBA, pdf Dateien in listbox einlesen und öffnen
22.04.2016 17:52:50
Michael
Hallo Chris,
das klappt super, nur möchte ich nicht alle drei Ordnerinhalte gleichzeitig in die Listbox einlesen! Ich habe drei CommandButtons MDR, SDR und MMW. Wenn ich jetzt MDR klicke soll dieser Inhalt in die Listbox geladen werden! Und mit den anderen dasselbe.
Gruß Michael

AW: VBA, pdf Dateien in listbox einlesen und öffnen
24.04.2016 13:18:12
Michael
Ich verschiebe die Frage mal in den Ordner noch Offen.
Gruß Michael

AW: VBA, pdf Dateien in listbox einlesen und öffnen
25.04.2016 08:40:13
ChrisL
Hi Michael
Private Sub CommandButton1_Click()
Call LoadLB("D:\Sicherung 18.02.2016\Michael\BV\ERV\MDR\")
End Sub


Private Sub CommandButton2_Click()
Call LoadLB("D:\Sicherung 18.02.2016\Michael\BV\ERV\SDR\")
End Sub


Private Sub CommandButton3_Click()
Call LoadLB("D:\Sicherung 18.02.2016\Michael\BV\ERV\MMW\")
End Sub


Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With ListBox1
ActiveWorkbook.FollowHyperlink .List(.ListIndex, 0) & .List(.ListIndex, 1)
End With
End Sub

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "0cm;10cm"
End Sub


Private Sub LoadLB(sPfad As String)
Dim sDatei As String
sDatei = Dir(sPfad & "*.pdf")
Do While sDatei  ""
With ListBox1
.AddItem
.List(.ListCount - 1, 0) = sPfad
.List(.ListCount - 1, 1) = sDatei
sDatei = Dir()
End With
Loop
End Sub

cu
Chris

Anzeige
AW: VBA, pdf Dateien in listbox einlesen und öffnen
25.04.2016 18:06:47
Michael
Hallo Chris, vielen Dank für deine Hilfe!
Klappt jetzt so wie ich mir das vorgestellt habe.
Gruß Michael

365 Forumthreads zu ähnlichen Themen

datenimport aus excel in excel
caot

Hi mal wieder!
ich hab mal wieder ne frage:
es sind ca 1200 Excel Dateien aus denen jeweils aus ein paar Zeilen und Spalten die Werte in eine Exceldatei eingelesn werden sollen.
Die Ursprungsdateien sind laufend nummeriert... und dann
kommt noch ein name als nummer- name.xls <...
09.08.2008 11:22:00
Thread-ID: 1000469
3 Beiträge
Anzeige
daten aus Arbeitsmappe einlesen
Peter

Hallo,
kurze Fragestellung an die Experten. Habe mir einen Code zusammengebastelt, der in einer geöffneten Arbeitsmappe, bestimmte Daten aus einer anderen noch "unbestimmten" Arbeitsmappe importieren soll. Funktioniert auch, jedoch kommt mir der Code zu unübersichtlich und auch "unsauber" v...
19.08.2008 13:25:00
Thread-ID: 1002916
3 Beiträge
Daten aus einer Zelle auf mehrere Zellen aufteilen
Gordon

Moin,
ich habe hier einer Zelle (A10) eine bis mehrere Zeichenketten, die jewiels durch ein ";" getrennt werden.
Nun soll jeweils jede Zeichenkette auf drei Zellen aufgespilltet werden:
A1 = Die ersten 10 Zeichen der 1.Kette
B1 = Die nächsten 10 Zeichen der 1.Kette
C1 = Die...
23.08.2008 22:57:00
Thread-ID: 1004183
15 Beiträge
Anzeige
Datenvergleich und danach ausgegebene Info
Merle

Guten morgen alle zusammen!
Hab mal wieder eine Frage. Kriege ständig irgendwelche Listen, die ich zusammenfassen soll.
Hier ein Beispiel meiner Liste:
https://www.herber.de/bbs/user/55376.xls
Ich hätte es gerne, dass wenn ich in der Liste in Tabelle1, nur die Bez. D127 aus dem...
15.09.2008 08:58:00
Thread-ID: 1009662
2 Beiträge
Daten aus Userfom in eine ausgeblendete Tabelle
Ramon

Hallo alle zusammen,
ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
Userform in eine Tabelle schreiben.
In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
"data_booked" oder in "data_planned" geschrieben werden, u...
16.09.2008 12:28:00
Thread-ID: 1010054
5 Beiträge
Daten aus Zellbereich in eine neue Arbeitsmappe
André

Für eine "Tägliche Auswertung" suche ich ein Makro.
Meine erste Idee war es, hier im Forum zu suchen, ob es da nicht schon was gibt. Leider erfolglos. Ich hab zwar Makros gefunden, die ein neues Wks erstellen mit genau den Vorgaben, die ich brauche und ein Makro zum Zellenbereich kopieren,...
26.09.2008 10:23:00
Thread-ID: 1012532
3 Beiträge
Daten aus Tabelle in eine andere Tabelle
Cornelia

Ich habe 2 Tabellen mit dem gleichen Aufbau.
Tabelle 1 soll die Daten eingetragen werden. Von mehreren Leuten. Deshalb eben seperat.
Tabelle 2 soll die Daten aus Tabelle 1 übernehmen. Jeweils ein Blatt mit identischen Blattnamen aus Tabelle 1. Bisherige Lösung von mir in jede Zelle rein...
01.10.2008 08:11:00
Thread-ID: 1013510
6 Beiträge
Daten aus Inputbox in Zellen untereinander lesen
Peter

Hallo
Bin neu hier, und auch ein Anfänger in VBA, habe folgendes Problem.
Ich möchte, das Datum über eine InputBox in die Zellen untereinander schreiben lassen, also wenn ich am Freitag was Schreibe soll das Datum in A1 stehen, beim nächsten Aufruf der InputBox, soll das Datum in A2 ges...
09.10.2008 20:00:59
Thread-ID: 1015445
3 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
2
14
3
1
4
2
5
2
5
6
4
4
2
1
1
6
1
4
4
1
1
8
2