Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
488to492
488to492
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Arbeitsmappe suchen und öffnen

Forumthread: Arbeitsmappe suchen und öffnen

Arbeitsmappe suchen und öffnen
23.09.2004 13:45:27
Ueli
Hi
Auf dem Laufwerk U: liegt eine Arbeitsmappe in deren Speichername unter anderem "Vorlauf" und "Juli" vorkommen. Ein Makro in einer anderen AB-Mappe soll obengenannte Mappe auf dem Laufwerk U: suchen, öffnen und den vollständigen Namen in einer MsgBox ausgeben.
Wie funktioniert das?
Besten Dank für Tipps!
Ueli
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsmappe suchen und öffnen
Uduuh
Hallo,
diesen Code in ein Modul:

Sub Datei_suchen()
Dim strOrdner As String, _
strNamensteil As String, _
strSF As Byte, _
FS As FileSearch, _
i As Integer
strNamensteil = InputBox("Namensteil?", , "*Vorlauf*Juli*")
If strNamensteil = "" Then Exit Sub
strOrdner = InputBox("Ordner:", "Ordner eingeben", "u:")
If strOrdner = "" Then Exit Sub
strSF = MsgBox("Mit Unterordnern?", vbYesNo)
Set FS = Application.FileSearch
With FS
.LookIn = strOrdner
.Filename = strNamensteil & "*.xls"
Select Case strSF
Case vbYes: .SearchSubFolders = True
Case vbNo: .SearchSubFolders = False
End Select
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Workbooks.Open (.FoundFiles(i))
MsgBox (.FoundFiles(i))
Next i
End If
End With
End Sub

Gruß aus'm Pott
Udo
Anzeige
AW: Arbeitsmappe suchen und öffnen
23.09.2004 14:32:07
Ueli
Hi Udo
das ist ja schon eine Luxusvariante! Herzlichen Dank!
Ueli
;

Beliebteste Forumthreads (12 Monate)

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