Thread
:
Select a file to open
View Single Post
#
3
Posted to microsoft.public.excel.programming
Don Guillett[_2_]
external usenet poster
Posts: 1,522
Select a file to open
xl2003 example of one I did for a client recently. Opens the folder and lets
you select the file to use
Sub SAS_OpenFileToCheck()
Fn = Application.GetOpenFilename(FileFilter:= _
"Excel Files (*.xls), *.xls", Title:="Please select a file")
If Fn = False Then
MsgBox "Please start over and select a file", Title:=" SalesAid
Software"
Exit Sub
Else
Workbooks.Open Filename:=Fn
'MsgBox Fn
'Call SAS_ColorCellsFromCodeFile
MsgBox " All Done Be sure to SAVE file ", Title:=" SalesAid Software"
End If
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"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
Reply With Quote
Don Guillett[_2_]
View Public Profile
Find all posts by Don Guillett[_2_]