Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zugriff auf Datei mit variablem Namen

Zugriff auf Datei mit variablem Namen
22.03.2006 14:40:03
Henning
Hallo erstmal.
Mein Problem: Ich möchte auf verschiedene Excel-Dateien zugreifen, die jedoch einen variierenden Dateinamen besitzen. Zum Beispiel lautet der Pfad Nr.1: "F:\Eigene Dateien\Schule\Arbeiten1\*.xls".
Nr.2: "F:\Eigene Dateien\Schule\Arbeiten2\*.xls".
Der Pfad zur Datei ist eindeutig, jedoch der Dateiname selbst nicht.
Es befindet sich in jedem Ordner "Arbeiten" nur eine Exceldatei, jedoch wie bereits erwähnt, mit variierendem Namen.
Das Sternchen versteht VBA nicht.
Kann mir da jemand weiterhelfen?
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zugriff auf Datei mit variablem Namen
22.03.2006 14:51:16
IngGi
Hallo Henning,
so frägt er nach dem gewünschten Pfad und öffnet anschließend die darin befindliche Excel-Datei.

Sub Datei_Oeffnen()
Dim fso As Object
Dim fo As Object
Dim f As Object
Dim strPfad As String
strPfad = InputBox("Bitte den Pfad eingeben")
If Right(strPfad, 1) <> "\" Then strPfad = strPfad & "\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fo = fso.GetFolder(strPfad)
For Each f In fo.Files
If Right(f.Name, 4) = ".xls" Then
Workbooks.Open Filename = strPfad & f.Name
End If
Next 'f
End Sub
Gruß Ingolf
Anzeige
AW: Zugriff auf Datei mit variablem Namen
22.03.2006 14:53:51
ChrisL
Hallo Henning

Sub test()
MsgBox xlsDateiSuchen
End Sub


Function xlsDateiSuchen() As String
Dim fso As Object
Dim i As Integer
Set fso = Application.FileSearch
With fso
.NewSearch
.LookIn = "F:\Eigene Dateien\Schule\Arbeiten1\"
.FileType = msoFileTypeExcelWorkbooks
.SearchSubFolders = False
If .Execute() > 0 Then
xlsDateiSuchen = .FoundFiles(1)
End If
End With
Gruss
Chris

Anzeige
AW: Zugriff auf Datei mit variablem Namen
24.03.2006 09:29:51
Henning
Danke. Habt mir weitergeholfen.
Gruß
Henning
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige