Using VBA Dir with special characters.

[alfranco17]

Hi.

I am trying to use the DIR function to loop through all the files in a folder. This is my code:

Sub OpenAll()    vPath = "C:\Users\Armando\Desktop\"
    ChDir vPath
    
    NextFile = Dir(vPath & "\*.xlsx")
    Do While NextFile <> ""
        Workbooks.Open Filename:=NextFile
        NextFile = Dir
    Loop
End Sub

However, when the name includes a character such as í, I get an error message like this one:

Run-time error '1004':

Sorry, we could not find Cfvico.xlsx. Is it possible it was moved, renamed or deleted?

Windows shows the file name is "Cφvico".

The name should be "Cívico".

Is there a way to get around accented characters in filenames?

Thanks.
Armando

 

[yky]

Try:

[COLOR=#333333]Sub OpenAll()
    vPath = "C:\Users\Armando\Desktop\"
[/COLOR]    ChDir vPath
    
    NextFile = Dir(vPath & "\*.xlsx")
    Do While NextFile <> ""
        [COLOR=#0000ff]Workbooks.Open Filename:=vPath & NextFile[/COLOR]
        NextFile = Dir
    Loop [COLOR=#333333]End Sub[/COLOR]

 

[shg]

Dir doesn't work with file names with Unicode characters; it returns the ANSI equivalent to the filename, which you cannot use to open the file. VB includes a DirW function that doesn’t exist in VBA.

You need to use the FileSystemObject. Or change the file name.

 

[yky]

Dir doesn't work with file names with Unicode characters; it returns the ANSI equivalent to the filename, which you cannot use to open the file. VB includes a DirW function that doesn’t exist in VBA.

You need to use the FileSystemObject. Or change the file name.

But the code I posted above worked for me. It opened many files whose name is in Chinese.

 

[yky]

But the code I posted above worked for me. It opened many files whose name is in Chinese.

OK. Maybe that is because in Control Panel/Region/Administrative/Change System Locale, I set it to Chinese. So, Dir now works with Chinese.