Select a file to open
Hi Chuck,
These display the File Open dialog and then open the file selected.
Works in XL97
'Built-in path...
Application.Dialogs(xlDialogOpen).Show Application.LibraryPath
'Already there...
Application.Dialogs(xlDialogOpen).Show ThisWorkbook.Path
'Specific path...
Application.Dialogs(xlDialogOpen).Show "C:\Documents and Settings\CLR\My Documents\Excel Files"
--
Regards,
Jim Cone
Portland, Oregon USA
"CLR"
wrote in message ...
Hi All.......
The following code works fine in XL2007, but I am working in XL2000 and it
won't run there. Does anyone know how I can achive the same thing in XL2000,
please?
Dim strFile As Variant
On Error GoTo 200
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Filters.Add "Excel Files", "*.xl*"
.InitialFileName = ThisWorkbook.Path & "\"
.Show
strFile = .SelectedItems(1)
End With
Application.DisplayAlerts = False
Application.EnableEvents = False
Workbooks.Open Filename:=strFile
TIA
Vaya con Dios,
Chuck, CABGx3
|