user picks an excel file to open 1

[LearningAsIGo]

i was wondering if there was a way to create an open file dialog box like Windows has that allows users to pick the file location. I would like to use it when scraping from excel to Extra!X-treme.
I was thinking about using an input box but that would be too complicated for some of users.
Thanks for your help

 

[SkipVought]

If you set a reference to Excel, you can use an Excel VBA method GetOpenFilename().

Skip,
[sub]
Just traded in my old subtlety...
for a brand NUANCE![/sub]

 

[LearningAsIGo]

Thanks Skip, that is exactly what I needed!
Would GetSaveAsFilename() work for Saving?

 

[SkipVought]

The only difference is the look and feel. In either case, all you're doing is getting a filename, after which you can open or save or do anything else in your code.

Skip,
[sub]
Just traded in my old subtlety...
for a brand NUANCE![/sub]

 

[Skie]

I don't know if it's the same, but I've always liked the Windows Open Dialog window. The only issue I've had with this object is it's not available on Windows Server editions.

Dim oDialog As Object
Set oDialog = CreateObject("UserAccounts.CommonDialog")
oDialog.Filter = "Excel|*.xls"
oDialog.FilterIndex = 0
oDialog.InitialDir = "C:\"
intResult = oDialog.ShowOpen
If intResult = 0 Then
  MsgBox "No file selected."
Else
  MsgBox oDialog.FileName
End If