Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1412to1416
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
Inhaltsverzeichnis

Exploerer Dateien kopieren

Exploerer Dateien kopieren
07.03.2015 18:25:03
walter
Hallo allerseits,
ich möchte gern aus dem Exploerer Dateien auslesen,
um diese mit den vorhandenen Dateien zu vergleichen.
Ich habe per Google dies gefunden:
Sub ATest()
Dim strDatei As String
Dim lngZ As Long
ActiveSheet.Columns(1) = ""
Application.ScreenUpdating = False
strDatei = Dir("D:\Install\")
Do Until strDatei = ""
lngZ = lngZ + 1
ActiveSheet.Cells(lngZ, 1) = strDatei
strDatei = Dir
Loop
Application.ScreenUpdating = True
End Sub
Das Problem:
1. Ich würde gern den Pfad erweitern
C:\Gemeinschaft\Haus\Kosten\ ... 2012\2013 u.s.w.
und dann weitere Unterverzeichnisse auswählen
Die Daten sollten in die Tabelle: "Kosten" in die Spalte I ab Zeile2
kopiert werden.
Die vorhandenen Daten sind in der Spalte G ab Zeile 2 vorhanden.
Es sind Excel Dateien aber auch Word.
Es sollte immer nur der Text verglichen werden also ohne Endung.
Würde mich freuen wenn jemand sowas vorhanden hat.
Danke im Voraus,
mfg Walter k

18
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Exploerer Dateien kopieren
07.03.2015 18:45:36
walter
Hallo,
habe jetzt das Kopieren als Makro erweitert und es klappt.
Allerdings kann ich nur aus einem Verzeichnis und nicht variabel auswählen.
Call Spalte_I_löschen
' ActiveSheet.Columns(9) = ""
Application.ScreenUpdating = False
strDatei = Dir("C:\Gemeinschaft\Haus\Kosten\2012\")
Do Until strDatei = ""
lngZ = lngZ + 1
ActiveSheet.Cells(lngZ + 1, 9) = strDatei
strDatei = Dir
Loop
Application.ScreenUpdating = True
gruß
walter kw

Ja aber kann nicht Makro sehen
08.03.2015 09:31:08
walter
Guten Morgen Chandler,
ja aber ich muss dieses Makro ja erweitern, komm nicht in VB rein.
gruß
walter kw

Ja aber kann nicht Makro sehen
08.03.2015 10:52:09
walter
Guten Morgen Chandler,
ja aber ich muss dieses Makro ja erweitern, komm nicht in VB rein.
gruß
walter kw

Ja aber kann nicht Makro sehen
08.03.2015 11:12:05
walter
Guten Morgen Chandler,
ja aber ich muss dieses Makro ja erweitern, komm nicht in VB rein.
gruß
walter kw

Jetzt komm ich nicht weiter, brauch einen Profi
08.03.2015 12:47:47
walter
Hallo Fachfrauen und Männer,
habe jetzt das folgende Makro zusammengebastelt.
Es wird der Explorer auf gerufen, kann dann das weiter Unterverzeichnis
aktivieren aber dann geht es leider nicht weiter, habe mal 2011 ausgewählt, danach
wird nicht kopiert.
gruß
walter kw
Public Sub DateienAuflistenUndHyperlinken()
Dim strDatei, lstrExt() As String
Dim lngZ As Long
ChDrive "C:\"
ChDir "C:\Gemeinschaft\Haus\Kosten\2012.weitere Unterverzeichnisse.."
strDatei = Application.GetOpenFilename("Excel/Word-Files (*.xls*;*.doc*), *.xls;*.doc*")
If strDatei = False Then Exit Sub
Do Until strDatei = ""
lngZ = lngZ + 1
ActiveSheet.Cells(lngZ + 3, 11) = strDatei
strDatei = Dir
Loop
End Sub

Anzeige
Jetzt komm ich nicht weiter, brauch einen Profi
08.03.2015 12:49:38
walter
Hallo Fachfrauen und Männer,
habe jetzt das folgende Makro zusammengebastelt.
Es wird der Explorer auf gerufen, kann dann das weiter Unterverzeichnis
aktivieren aber dann geht es leider nicht weiter, habe mal 2011 ausgewählt, danach
wird nicht kopiert.
gruß
walter kw
Public Sub DateienAuflistenUndHyperlinken()
Dim strDatei, lstrExt() As String
Dim lngZ As Long
ChDrive "C:\"
ChDir "C:\Gemeinschaft\Haus\Kosten\2012.weitere Unterverzeichnisse.."
strDatei = Application.GetOpenFilename("Excel/Word-Files (*.xls*;*.doc*), *.xls;*.doc*")
If strDatei = False Then Exit Sub
Do Until strDatei = ""
lngZ = lngZ + 1
ActiveSheet.Cells(lngZ + 3, 11) = strDatei
strDatei = Dir
Loop
End Sub

Anzeige
AW: Jetzt komm ich nicht weiter, brauch einen Profi
08.03.2015 13:15:39
Daniel
Hi
da fehlt das initiale DIR() vor der DO-Schleife
strDatei = Dir(Left(strDatei, InstrRev(strDatei, "\")) & "*.*")
wenn du nur excel- und Worddokumente in der Auflistung haben willst, würde ich das mit einer Abfrage in der Schleife machen:
If strDatei like "*.doc* or strDatei like ".xls*" Then
Gruß Daniel

Daniel, es wird nicht ausgelesen
08.03.2015 17:50:28
walter
Guten Abend Daniel,
es ist das gleiche wie vorher, ich kann Verzeichnis auswählen aber es
wird nicht das Verzeichnis ausgelesen.
Ich kann nur Explorer schließen bzw. wenn ich auf öffnen geh Datei auswählen.
gruß
walter kw

Anzeige
Danke für die Datei aber
08.03.2015 17:52:35
walter
Hallo chandler,
danke für die offene Datei.
Kommischerweise werden nicht alle Verzeichnisse angezeigt.
z.b. __Office
gruß
walter kw

Es klappt !!! Daniel ! --))
08.03.2015 18:00:40
walter
Hallo Daniel,
doch es klappt, wenn man die 1. Datei auswählt und öffnen anklickt, werden die
Dateien vom Exploerer in die Tabelle kopiert.
Danke
Gruß
walter kw

Hallo chandler
08.03.2015 18:59:12
walter
Hallo chandler,
schau ich mir an sieht zumindest GEIL aus !!!
Super...
melde mich !
gruß
walter kw

Anzeige
AW: Hallo chandler
12.03.2015 07:14:15
Hajo_Zi
warum offen?
Gruß Hajo

Hallo Hajp, habe am 8.3. 13:30 geschlossen
12.03.2015 09:15:36
walter

AW: Hallo Hajp, habe am 8.3. 13:30 geschlossen
12.03.2015 09:19:57
Hajo_Zi
da hast Du den Beitrag aber als offen markiert, das sollte man nicht bei geschlossen.
Gruß Hajo

Hajo, Danke für den Hinweis !
12.03.2015 09:45:43
walter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige