Excel 原文档名存在不能被识别的字符（chr（160）），如何批量重命名去除

risklin

Excel 原文件名存在不能被识别的字符（chr（160）），使用  name as 重命名文件，提示文件名错误  （就是原文档名存在chr（160）字符，无法被vba读取），批量重命名如何处理？（附件为文件示例及代码）

risklin

没人呀？

哥儿-

用正则去处理，但是挺奇怪的，测试\s能匹配上，但是替换无效果，太久没用正则都不会用了……

Sub 批量重命名含空格文件()
Dim MyPath, MyName, rege As Object, mh, ss, str$
Application.ScreenUpdating = False
MyPath = InputBox("请输入要重命名的文件路径", "HI", "c:\") & "\"
MyName = Dir(MyPath & "\*.*")
Set rege = CreateObject("vbscript.regexp")
If MyPath = "" Then Exit Sub
Do While MyName <> ""
With rege
    .Global = True
    .Pattern = "[一-龢]+|\..*"
    Set mh = .Execute(MyName)
    For Each ss In mh
        str = str & ss
    Next ss
    MyName2 = str
    str = ""
End With
Name MyPath & MyName As MyPath & MyName2
MyName = Dir()
Loop
End Sub

cutecpu

1. Sub demo()
   
2.   Application.ScreenUpdating = False
   
3.   Set fso = CreateObject("scripting.filesystemobject")
   
4.   Set re = CreateObject("vbscript.regexp")
   
5.   MyPath = InputBox("Hello", "HI", "c:\demo\附件")
   
6.   For Each file In fso.GetFolder(MyPath).Files
   
7.      re.Pattern = "[\u00A0]"
   
8.      MyName = re.Replace(file.Name, "")
   
9.      file.Name = MyName
   
10.   Next
    
11. End Sub

复制代码