怎么解决VBA读取(DIR等方法)的文件名带?的问题

dengni26

文件名中的空格是ChrW(160)
Function ReplaceSpecialCharactersInFolder(folderPath)
    Dim Fso, FsoFldr, sFile
   
    ' 创建文件系统对象
    Set Fso = CreateObject("Scripting.FileSystemObject")
    ' 获取文件夹对象
    Set FsoFldr = Fso.GetFolder(folderPath).Files
    ' 循环遍历文件夹中的文件
    For Each sFile In FsoFldr
        If InStr(sFile.Name, ChrW(160)) > 0 Then
            ' 替换特定字符为指定字符
            Name sFile.ShortPath As folderPath & Replace(sFile.Name, ChrW(160), " ")
        End If
    Next
   
    ' 释放对象
    Set Fso = Nothing
    Set FsoFldr = Nothing
End Function
这样调用
  If InStr(Filename, "?") > 0 Then Call ReplaceSpecialCharactersInFolder("文件路径")

jiangxiaoyun

俺也遇到过，用fso提取文件名称然后重命名就可以了。
网上说是什么盘符的问题。也就是4楼版主说的问题。
至于powershell的，mark一下，不会呀。。。。

perfect131

jiangxiaoyun 发表于 2024-4-1 20:53
俺也遇到过，用fso提取文件名称然后重命名就可以了。
网上说是什么盘符的问题。也就是4楼版主说的问题。
...

用fso 不需要重命名 直接用也可以
不用fso 只能 vbs方法 chrw方法
21楼
https://club.excelhome.net/forum ... 90&pid=11449417

jiangxiaoyun

perfect131 发表于 2024-4-2 12:14
用fso 不需要重命名 直接用也可以
不用fso 只能 vbs方法 chrw方法
21楼

这个的确是可以。但当时还是重命名了。因为代码已经用do
loop写好了。open打不开excel文件。。。。