Get Open File NAme

[Guest]

I am having a problem using getopenfilename function. It runs OK the first
time, but when I go to re-run this routine it does not return an "array" and
the routing does not run a second time.

Can't figgure out the behavior. Has anyone seen this?

++++++++++++++++++++++++++++++++++++++++++++++++
fileToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , , ,
True)

If IsArray(fileToOpen) Then ' if no files selected, then do nothing,
otherwise, run the routines below

***** AND THEN I MANIPULATE THE DATA HERE *****

fileToOpen.Close
End If

 

[RadarEye]

I am having a problem using getopenfilename function. It runs OK the first
time, but when I go to re-run this routine it does not return an "array" and
the routing does not run a second time.

Can't figgure out the behavior. Has anyone seen this?

++++++++++++++++++++++++++++++++++++++++++++++++
fileToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , , ,
True)

If IsArray(fileToOpen) Then ' if no files selected, then do nothing,
otherwise, run the routines below

***** AND THEN I MANIPULATE THE DATA HERE *****

fileToOpen.Close
End If

Hi JimBob,

Try this:

Sub ProcessFile()
Dim fileToOpen As String

fileToOpen = Application.GetOpenFilename("Excel files (*.xls),
*.xls")

If fileToOpen <> "False" Then
' DO THIS AND THAT
End If

End Sub

HTH,

Wouter

 

[Ron de Bruin]

Hi

FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls")
If FName <> False Then
Workbooks.Open (FName)
End If


If you use multiselect then use the array like this

FName = Application.GetOpenFilename(filefilter:="Excel Files, *.xl*", _
MultiSelect:=True)

If IsArray(FileNameXls) = False Then
'do nothing
Else
'Your code
End If

 

[Ron de Bruin]

hi RadarEye

Use False instead if "False" to avoid international problems

See
http://www.oaltd.co.uk/ExcelProgRef/default.htm

Read the International Issues chapter of the book