Suchen Sie eine Datei aus Excel VBA

Question

Wie kann ich einen „Datei öffnen“ von einer VBA-Dialog setzen läuft in Excel?

Ich bin mit Excel 2003.

Answer 1

Sie möchten die Application.GetOpenFilename Funktion. Das Kopieren von VBA Object Browser:

  

Funktion GetOpenFilename ([Filefilter], [Filterindex], [Titel], [Button], [Multiselect])
      Mitglied von Excel.Application

Answer 2

einen Verweis auf comdlg32.ocx hinzufügen und dann so etwas wie ...

Sub PromptForFile()
Dim d As New MSComDlg.CommonDialog

d.Filter = "xls"
d.Filename = "*.xls"
d.ShowOpen

Excel.Workbooks.Open d.Filename

Set d = Nothing
End Sub