Hello ,

I would like to know how i can give a Default Path (say c:\xxxx\yyyy\zzzz)
when using GetopenFilename. Is this possible or is there any other method to
do the same?
I'm using Excel 97

Regards,
SSR

Hi,

Sub GetOpenFileNameExample()
Dim vFilename As Variant
Dim sPath As String
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
If CStr(vFilename) = "" Then Exit Sub
If Dir(CStr(vFilename)) < "" Then
MsgBox "Exists!!!"
Else
' Now do something with vfilename, like:
' Workbook.Open Filename:=vFilename
End If
End Sub


Regards,

Jan Karel Pieterse
Excel TA/MVP

-----Original Message-----
Hello ,

I would like to know how i can give a Default Path (say
c:\xxxx\yyyy\zzzz)
when using GetopenFilename. Is this possible or is there
any other method to
do the same?
I'm using Excel 97

Regards,
SSR


.

Srinath.. following works for me:

Sub UseFileDialogOpen()
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.InitialFileName = "c:\"
.FilterIndex = 2 'excel files
.Show
If .SelectedItems.Count = 1 Then Workbooks.Open .SelectedItems(1)
End With
End Sub


keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"Srinath" wrote:

Hello ,

I would like to know how i can give a Default Path (say
c:\xxxx\yyyy\zzzz) when using GetopenFilename. Is this possible or is
there any other method to do the same?
I'm using Excel 97

Regards,
SSR

Hi,

But that does not work in XL97.

Regards,

Jan Karel Pieterse
Excel TA/MVP

-----Original Message-----
Srinath.. following works for me:

Sub UseFileDialogOpen()
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.InitialFileName = "c:\"
.FilterIndex = 2 'excel files
.Show
If .SelectedItems.Count = 1 Then
Workbooks.Open .SelectedItems(1)
End With
End Sub


keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"Srinath" wrote:

Hello ,

I would like to know how i can give a Default Path (say
c:\xxxx\yyyy\zzzz) when using GetopenFilename. Is this
possible or is
there any other method to do the same?
I'm using Excel 97

Regards,
SSR




.

Hi,

This does work but i have another problem. I'm using a network path similar
to \\xxnt\yy$\test\test1 If i put this as sPath it gives an Error when it
encounters Chdrive command . Any solutions for this?

Regards,
Srinath S

"Jan Karel Pieterse" wrote in message
...
Hi,

Sub GetOpenFileNameExample()
Dim vFilename As Variant
Dim sPath As String
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
If CStr(vFilename) = "" Then Exit Sub
If Dir(CStr(vFilename)) < "" Then
MsgBox "Exists!!!"
Else
' Now do something with vfilename, like:
' Workbook.Open Filename:=vFilename
End If
End Sub


Regards,

Jan Karel Pieterse
Excel TA/MVP

-----Original Message-----
Hello ,

I would like to know how i can give a Default Path (say
c:\xxxx\yyyy\zzzz)
when using GetopenFilename. Is this possible or is there
any other method to
do the same?
I'm using Excel 97

Regards,
SSR


.

Hi

By the way I can overcome this by Mapping the Folder to a Drive but I am
hoping for another solution if possible

Regards,
SSR
"Jan Karel Pieterse" wrote in message
...
Hi,

Sub GetOpenFileNameExample()
Dim vFilename As Variant
Dim sPath As String
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
If CStr(vFilename) = "" Then Exit Sub
If Dir(CStr(vFilename)) < "" Then
MsgBox "Exists!!!"
Else
' Now do something with vfilename, like:
' Workbook.Open Filename:=vFilename
End If
End Sub


Regards,

Jan Karel Pieterse
Excel TA/MVP

-----Original Message-----
Hello ,

I would like to know how i can give a Default Path (say
c:\xxxx\yyyy\zzzz)
when using GetopenFilename. Is this possible or is there
any other method to
do the same?
I'm using Excel 97

Regards,
SSR


.