Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1248to1252
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
1248to1252
1248to1252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle PDF´s aus Ordner und Unterordner auslesen!

Alle PDF´s aus Ordner und Unterordner auslesen!
Thomas
Einen schönen guten Morgen,
unter Ordner auslesen hab ich nicht das gefunden was ich suche, daher wende ich mich Hilfe suchend an euch.
Ich will aus "C:\...\...\Miete und NK\" alle PDF Dateien auslesen. In Miete und NK befinden sich Unterordner\Unteroerdner und aus denen sollen alle in eine Tabelle aufgelistet werden.
Ich hoffe es kann mir jemand Helfen ob mit einem Code oder einem Link der mich weiter bringt.
Gruß Thomas aus Stuttgart
AW: Alle PDF´s aus Ordner und Unterordner auslesen!
19.02.2012 11:13:29
ransi
Hallo Thomas 

oder einem Link der mich weiter bringt
Gib im Archiv (http://xlarchiv.herber.de/)mal "filesearch excel 2007"ein.
Da kommt dann so einiges.
Wenn du damit nicht klarkommst, ruhig nochmal melden.
ransi
AW: Alle PDF´s aus Ordner und Unterordner auslesen!
19.02.2012 11:42:06
Thomas
Hallo Ransi,
die Datei von Hajo nutz ich schon hin und wieder zum suchen und ich hab nun auch mal nach PDF gesucht das geht ja dachte es geht nur bei Exceldateien nun weiss ich das ich auch Pdf damit suchen kann.
Was mich aber bei der ganzen Sache stört ist das ich das Verzeichnis,User.... den ganzen Pfad bis zu Miete und NK auswählen muss.
Ich will immer nur diesen Ordner und darin alle Pdf´s haben ohne das ich anklicken muss wo ich suche.
Von mir aus leg ich den Pfad in A1 an bis Miete und NK und der Code listet mir dann aus den Unterordner alle PDF´s auf. Es sind nur PDF´s darin gespeichert nichts anderes.
Gruß Thomas aus Stuttgart
Anzeige
AW: Alle PDF´s aus Ordner und Unterordner auslesen!
19.02.2012 12:25:31
ransi
HAllo Thomas
ICH kenne Hajos Suchalgorithmus nicht.
Ich nutze den Code von Nepumuk
Schau dir mal die Beispieldatei an.
Da kannst du den Startpfad vorgeben.
https://www.herber.de/bbs/user/78993.xls
ransi
Alle PDF´s aus Ordner und Unterordner auslesen!
19.02.2012 12:27:26
Anton
Hallo Stuttgart ,
probier sowas:
Code:

Private Declare Function OemToCharA Lib "user32.dll" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long        
Public Function ASCIItoANSI(ByVal Text As String) As String    
  Call OemToCharA(Text, Text)  
  ASCIItoANSI = Text
End Function  
Sub pdf_auflisten()
  Dim objShell As Object, objExec As Object  
  Dim vntRet As Variant, strFolder As String, strTMP As String    
  strFolder = "C:\...\...\Miete und NK\" 'anpassen
  Set objShell = CreateObject("WScript.Shell")  
  ChDrive Left(strFolder, 1)
  ChDir strFolder
  Set objExec = objShell.Exec("cmd /c dir /s /b *.pdf")
  strTMP = ASCIItoANSI(objExec.StdOut.ReadAll)  'Idee von Bernd (bst)
  vntRet = Split(strTMP, vbCrLf)
  If UBound(vntRet) > 0 Then Tabelle1.Range("A1").Resize(UBound(vntRet) + 1, 1) = Application.Transpose(vntRet)  
  Set objShell = Nothing  
End Sub  


mfg Anton
Anzeige
AW: Alle PDF´s aus Ordner und Unterordner auslesen!
19.02.2012 12:40:33
Thomas
Hallo Ransi und Anton,
Ransi bei deinem Beispiel muss ich wie bei Hajo auch bis zum Ordner "Miete und NK" alles durchklicken das will ich nicht.
Anton, dein Code hab ich in die Tabelle eingetragen und den Pfad C:\User\...\... ergänzt aber da kommt die Meldung Pfad nicht gefunden.
Gruß Thomas aus Stuttgart
Sorry, Anton Schreibfehler meinerseits!
19.02.2012 12:54:00
Thomas
Anton,
es geht nun.
Großen Dank an euch und wünsch noch einen schönen Sonntag.
Gruß Thomas aus Stuttgart
Wie kann man nur den Dateinamen anzeigen? OT!
19.02.2012 12:59:12
Thomas
nur den Dateinamen anzeigen
19.02.2012 13:11:17
Anton
Hallo Thomas,
so:
Code:

Private Declare Function OemToCharA Lib "user32.dll" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long        
Public Function ASCIItoANSI(ByVal Text As String) As String    
  Call OemToCharA(Text, Text)  
  ASCIItoANSI = Text
End Function  
Sub pdf_auflisten()
  Dim objShell As Object, objExec As Object  
  Dim vntRet As Variant, strFolder As String, strTMP As String    
  strFolder = "C:\...\...\Miete und NK\" 'anpassen
  Set objShell = CreateObject("WScript.Shell")  
  ChDrive Left(strFolder, 1)
  ChDir strFolder
  Set objExec = objShell.Exec("cmd /c dir /s /b *.pdf")
  strTMP = ASCIItoANSI(objExec.StdOut.ReadAll)   'Idee von Bernd (bst)
  vntRet = Split(strTMP, vbCrLf)
  If UBound(vntRet) > 0 Then  
    zeile = 1
    Tabelle1.Range("A1").Resize(UBound(vntRet) + 1, 1) = Application.Transpose(vntRet)
    For Each datei In vntRet  
      Tabelle1.Cells(zeile, 2) = Mid(datei, InStrRev(datei, "\") + 1)
      zeile = zeile + 1
    Next
  End If  
  Set objShell = Nothing  
End Sub  


mfg Anton
Anzeige
Pfad anpassen ...
19.02.2012 12:59:51
Anton
Hallo Thomas,
du musst den Pfad direkt angeben, etwa so:"E:\Temp\Simon\ascii\ascii\ascii\bin".
mfg Anton
AW: Pfad anpassen ...
19.02.2012 13:39:55
Thomas
Hallo Anton,
es lag nur an dem "s" bei Users wo ich vergessen hatte.
Dein Code scheibt nun den Dateinamen in Spalte B soweit so gut. Ich hab das getauscht aber lässt sich das noch entfernen aus den Zellen C:\....\.....\Miete und NK so das nur noch die Unterordner angezeigt werden?
Also Unterordner\Unterordner\Dateiname der PDF.
Gruß Thomas aus Stuttgart
AW: Pfad anpassen ...
19.02.2012 13:49:43
Anton
Hallo Thomas,

strTMP = ASCIItoANSI(objExec.StdOut.ReadAll)  'Idee von Bernd (bst)
strTMP = Replace(strTMP, strFolder, "")
vntRet = Split(strTMP, vbCrLf)
...
mfg Anton
Anzeige
AW: Pfad anpassen ...
19.02.2012 13:44:43
Thomas
Hallo Anton,
es lag nur an dem "s" bei Users wo ich vergessen hatte.
Dein Code scheibt nun den Dateinamen in Spalte B soweit so gut. Ich hab das getauscht aber lässt sich das noch entfernen aus den Zellen C:\....\.....\Miete und NK so das nur noch die Unterordner angezeigt werden?
also Unterordner\Unterordner\Dateinamen der PDF.
Gruß Thomas aus Stuttgart
AW: Pfad anpassen ...
19.02.2012 14:17:36
Thomas
Hallo Anton,
klasse das funzt und ich hab das nun auch auf A3 angepasst so das ich Überschriften einbauen kann.
Den Dateinamen zerleg ich per Formel als kleine Hausaufgabe oder Übung.
Nochmal schönen Sonntag und auch ein dankeschön.
Gruß Thomas aus Stuttgart
Anzeige

307 Forumthreads zu ähnlichen Themen

Dateien aus Unterverzeichnissen auslesen
Michael

Hallo zusammen,
ich habe ein Verzeichnis mit mehreren Unterverzeichnissen und möchte alle Dateien inkl. der Filestruktur ausgelesen bekommen. Habt ihr sowas schon mal gesehen?
Viele Grüße
Michael
05.02.2009 18:28:00
Thread-ID: 1047464
4 Beiträge
Anzeige
Excel Dateien aus Ordner auslesen (Fragebogen)
Bene

Hallo zusammen!
Ich schreibe momentan an meiner Diplomarbeit und brauche in dem Zusammenhang unbedingt eure Unterstützung in Sachen VBA-Programmierung.
Ich habe nicht wirklich Ahnung von VBA und bastel jetzt schon seit einer ganzen Weile an meinem Problem herum. Im Forum konnte ich lei...
05.08.2009 11:36:40
Thread-ID: 1093693
6 Beiträge
Bilder aus einem Ordner auslesen
RR

Hallo zusammen,
Bin neu hier und habe mal eine Frage an die
Profis über VBA
Folgendes Problem.
Besteht die möglichkeit das wenn ich einen Commandbutton drücke (oder beim öffnen der Tabelle) das eine Userform oder soetwas ähnliches aufgeht wo ich dann den Ordner aussuchen kann sp...
07.10.2009 16:28:26
Thread-ID: 1107899
15 Beiträge
Anzeige
Dateienamen in Ordner auf Website auslesen
Fettertiger

Hallo zusammen,
ich hatte schon vor längere Zeit einen Post zu diesem Thema ins Forum gestellt, nur damals leider keine brauchbare Antwort erhalten. Vielleicht sind jetzt ein paar Cracks aus dem Urlaub zurück und können mir bei dem wahrscheinlich trivialen Problem helfen:
Eines meiner T...
25.09.2010 23:09:40
Thread-ID: 1178945
3 Beiträge
Dateien aus verzeichniss auslesen (incl. Unterver.
Alex

HAllo Forum,
Ich möchte z.B alle PDF Dateien aus einem Verzeichniss incl. Unterverzeichnissen in ein Array einlesen.
Leider komme ich mit der Suche nicht zurecht.
Kann jemand helfen ?
15.09.2011 15:14:05
Thread-ID: 1230026
2 Beiträge
VBA Verzeichnis auswählen
PeTeR

Hallo VBA-Freaks,
ich suche nach einem Dialog zur Auswahl eines Verzeichnisses (nicht Datei!), aber mit Anzeige der darin enthaltenen Dateien.
Getopenfilname - muss ich eine Datei auswählen!
FileDialog(msoFileDialogFolderPicker) - sehe ich die Dateien im Verzeichnis nicht!
Viele...
04.12.2013 09:27:16
Thread-ID: 1341172
3 Beiträge
Subordnerpfade aus mehreren Ordner auslesen
Jack

Hallo Leute,
folgendes:
Mein Ziel wäre es mehrere Verzeichnisse: z.B
K:\Ordner1
K:\Ordner2
K:\Ordner3
auszulesen und dessen Subordner(am besten mit kompletten Pfad z.B. "K:\Ordner1\Bla") in Excel auflistet
Sodass am Ende, das bei rauskommt:
K:\Ordner1\Bla1
...
21.06.2014 12:19:25
Thread-ID: 1366775
5 Beiträge
VBA 5 Dateien auswählen, umbennen und speichern
D.Hensel

Hallo, habe ein Problem mit folgendem Makro. Erhalte einen Debug Fehler bei " wb5.Sheets(1).copy Before:=wb1.Sheets(1)" Wenn ich Before und after lösche, dann gehts. Dann öffnet er aber mehrere Dateien. Ziel des Makros ist das man 5 Dateien auswählt, das Makro diese öffnet und im selben Work...
25.08.2014 14:02:09
Thread-ID: 1378050
3 Beiträge
Anzeige

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
3
6
5
14
1
2
1
2
4
2
5
3
1
1
4
3
1
6
2
4
6
6
7
2
14