GetOpenFilename standaard directory

[Morsyd]

Hallo,
hoe kan ik via vba een excel-bestand opvragen, telkens in de zelfde directory
Ik wil het dus kunnen zelf aanklikken, maar het "Bestand openen"-kadertje moet telkens in een vaste directory openen.

Sub test()

selecteer = Application.GetOpenFilename(FileFilter:="Excel files (*.xls), *.xls", MultiSelect:=True)
Cells(1, 1) = selecteer

End Sub

bedankt!

 

[Morsyd]

Ondertss zelf gevonden:

Sub test()

ChDrive ("D")
ChDir ("D:\Data\ExcelFiles")
selecteer = Application.GetOpenFilename(FileFilter:="Excel files (*.xls), *.xls", MultiSelect:=True)
Cells(1, 1) = selecteer


End Sub