Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Select a file to open
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Select File to Open | Excel Programming | |||
"Open Browser Window And Select A File" | Excel Programming | |||
select open webpage, copy information to open worksheet | Excel Programming | |||
When I select "Open" from the "File" menu in Excel, I get only a . | Excel Discussion (Misc queries) | |||
open file dialog-select file-import worksheet | Excel Programming |