GetopenFilename default path

[Srinath]

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

 

[Jan Karel Pieterse]

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

 

[keepitcool]

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 >

 

[Jan Karel Pieterse]

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)

 

[Srinath]

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

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

 

[Srinath]

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
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