Hi All.......the following code works fine in xl03 but does not work in xl2k.
Can anyone please tell me if it can be modified to work in xl2k?

Dim strFile As Variant
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Filters.Add "Excel Files", "*.xls"
.InitialFileName = ThisWorkbook.Path & "\"
.Show
strFile = .SelectedItems(1)
End With

Workbooks.Open Filename:=strFile

TIA
Vaya con Dios,
Chuck, CABGx3

Hi Clr,

Hi All.......the following code works fine in xl03 but does not work in xl2k.
Can anyone please tell me if it can be modified to work in xl2k?

I think the FileDialog thingy was introduced with Excel XP.

You can use something like this on any Excel version as of '97:

Sub GetOpenFileNameExample()
Dim lCount As Long
Dim vFilename As Variant
Dim sPath As String
Dim lFilecount As Long
sPath = "c:\windows\temp\"
ChDrive sPath
ChDir sPath
vFilename = Application.GetOpenFilename( _
"Microsoft Excel files (*.xls),*.xls", , _
"Please select the file(s) to open", , False)
If TypeName(vFilename) = "Boolean" Then Exit Sub
Workbooks.Open cstr(vFilename)
End Sub

Regards,

Jan Karel Pieterse
Excel MVP
http://www.jkp-ads.com
Member of:
Professional Office Developer Association
www.proofficedev.com

Thanks Jan Karel, I appreciate that very much.
I'll give it a try ASAP.

Vaya con Dios,
Chuck, CABGx3

"Jan Karel Pieterse" wrote:

Hi Clr,

Hi All.......the following code works fine in xl03 but does not work in xl2k.
Can anyone please tell me if it can be modified to work in xl2k?

I think the FileDialog thingy was introduced with Excel XP.

You can use something like this on any Excel version as of '97:

Sub GetOpenFileNameExample()
Dim lCount As Long
Dim vFilename As Variant
Dim sPath As String
Dim lFilecount As Long
sPath = "c:\windows\temp\"
ChDrive sPath
ChDir sPath
vFilename = Application.GetOpenFilename( _
"Microsoft Excel files (*.xls),*.xls", , _
"Please select the file(s) to open", , False)
If TypeName(vFilename) = "Boolean" Then Exit Sub
Workbooks.Open cstr(vFilename)
End Sub

Regards,

Jan Karel Pieterse
Excel MVP
http://www.jkp-ads.com
Member of:
Professional Office Developer Association
www.proofficedev.com

.

Outstanding........works super-fine for me

Many thanks Jan Karel

Vaya con Dios,
Chuck, CABGx3



"Jan Karel Pieterse" wrote:

Hi Clr,

Hi All.......the following code works fine in xl03 but does not work in xl2k.
Can anyone please tell me if it can be modified to work in xl2k?

I think the FileDialog thingy was introduced with Excel XP.

You can use something like this on any Excel version as of '97:

Sub GetOpenFileNameExample()
Dim lCount As Long
Dim vFilename As Variant
Dim sPath As String
Dim lFilecount As Long
sPath = "c:\windows\temp\"
ChDrive sPath
ChDir sPath
vFilename = Application.GetOpenFilename( _
"Microsoft Excel files (*.xls),*.xls", , _
"Please select the file(s) to open", , False)
If TypeName(vFilename) = "Boolean" Then Exit Sub
Workbooks.Open cstr(vFilename)
End Sub

Regards,

Jan Karel Pieterse
Excel MVP
http://www.jkp-ads.com
Member of:
Professional Office Developer Association
www.proofficedev.com

.

Hi Clr,

Many thanks Jan Karel

You're welcome.

Regards,

Jan Karel Pieterse
Excel MVP
http://www.jkp-ads.com
Member of:
Professional Office Developer Association
www.proofficedev.com