Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1472to1476
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

Ordner öffnen um alle enthaltenen Dateien zu liste

Ordner öffnen um alle enthaltenen Dateien zu liste
01.02.2016 13:35:38
Robert
Hallo,
ich habe im Büro ein Excel Tool geerbt und müßte dieses nun anpassen. Leider ist der Code nicht auskommentiert und es gibt auch keine Dokumentation.
Hier gibt es folgende Zielen
Dim objShell As Object
Dim varDir As Variant
...(weitere Variablen)...
Set objShell = CreateObject("Shell.Application")
Set varDir = objShell.BrowseForFolder(0, "Konsolidierungsdateien importieren:", &H4000, ActiveWorkbook.Path)
Hier möchte ich nun ActiveWorkbook durch einen anderen Pfad (fest) ersetzen, wobei dann noch ein variabler Unterordner (mit Datumsbezeichnung) gewählt werden soll.
Könnt Ihr mir helfen?
Danke
Robert

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ordner öffnen um alle enthaltenen Dateien zu liste
01.02.2016 15:59:11
Anton
Hallo Robert,
meinst du so?:
Dim ein_anderer_Pfad
ein_anderer_Pfad = "C:\Temp"' anpassen
Set varDir = objShell.BrowseForFolder(0, "Konsolidierungsdateien importieren:", &H4000, ein_anderer_Pfad)

mfg Anton

Test oT
02.02.2016 11:05:35
Anton

AW:
03.02.2016 16:57:09
Anton
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige