application.getopenfilename

[YCJ]

Hi there,

I'm stuck at this command at the moment.

Function GetFiles(sTitle As String) As Variant
    
    Dim sType As String
    Dim bMultiSelect As Boolean
    sType = "NF File, *.prn"
    bMultiSelect = True
    GetFiles = Application.GetOpenFilename(FileFilter:=sType, Title:=sTitle, MultiSelect:=bMultiSelect)
    
End Function

I got this to work on pc with windows xp and microsoft excel 2003, but it will not work on pc with windows 7 and excel 2007. Is it a problem with windows or microsoft?
I need it to work badly. Any advice would be much appreciated.

Thanks in advance,
CJ

 

[Tom Urtis]

What does "will not work" mean? I just ran that in 2010 on W7 and had no problems.

 

[YCJ]

Hi and thanks for your reply

It prompts an error when it reaches getopenfilename.
Run-time error '1004':
Method 'GetOpenFilename' of object '_Application' failed

regards,
CJ

 

[BrusselsSprout]

I believe I am seeing the same problem. I have established that the GetOpenFilename with multiselect set to true is intermittently returning a string type instead of an array.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
I see this most often when multiple files are selected. I only rarely select a single file with my code, but have duplicated the error in that case as well. It does not matter if the files were selected by click and <ctrl> A or click and shift click. This problem comes and goes without an apparent rhyme or reason.<o></o>
If someone has some insight why GetOpenFilename fails in this manner we might be able to get to a solution.