Hallo,
ich such eine Möglichkeit nach einem bestimmten Datei-Format (Excel) in einem fixen Verzeichnis zu suchen. Folgender Code macht die Suche schonmal möglich und limitiert die Suche auf Excel-Dateien. Wie muss der Code ergänzt werden, sodass man nur in einem fixen Verzeicnis suchen kann.
z.B. in C:\Users\ABC\Desktop\Info
Hier der Code:
Sub File_Quelle()
ExcelPath = Application.GetOpenFilename(FileFilter:="Excel Workbook (*.xlsx), *.xlsx, Excel Macro-Enabled Workbook (*.xlsm), *.xlsm")
If ExcelPath <> False Then _
SheetAuswertung.Range("F7").Value = ExcelPath
End Sub
Vielen Dank und beste Grüße
Tom
|