Am einfachsten läßt Du den Kunden die Datei selbst suchen, indem Du den Datei öffnen Dialog aufrufst:
Dim strDateiName As String
strDateiName = Application.GetOpenFilename("Excel-Arbeitsmappen (*.xls), *.xls", , , , False)
'Falls mehrere Dateien ausgewählt werden dürfen muß es
Dim strDateiName As Variant
strDateiName = Application.GetOpenFilename("Excel-Arbeitsmappen (*.xls), *.xls", , , , True)
'heißen. In diesem Fall ist strDateiName ein Array.
|