XL2003 to XL2000 code converson

C

CLR

Hi All.....

This code works fine in XL2003, but I need the result to work in
XL2000.....possible?

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
 
H

Homey

Application.FileDialog not in 2000. so just use this

Dim File As Variant
ChDrive ThisWorkbook.Path
ChDir ThisWorkbook.Path
File = Application.GetOpenFilename("Excel files(*.xls),*.xls")
If File <> False Then Workbooks.Open File

| Hi All.....
|
| This code works fine in XL2003, but I need the result to work in
| XL2000.....possible?
|
| 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
|
|
 
C

CLR

Many thanks Homey.......
I appreciate your help very much

Vaya con Dios,
Chuck, CABGx3
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top