Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
488to492
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
488to492
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige