GetopenFilename default path

  • Thread starter Thread starter Srinath
  • Start date Start date
S

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
 
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.. 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 >
 
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
Click to expand...
Workbooks.Open .SelectedItems(1)
 
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
 
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
 
Back
Top