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

risklin

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

3190496160

用户splace替换一下吧，没有附件只能这么跟你说

游乐缘

VBA一般用Replace替换字符

游乐缘

自定义函数，可在Else部分自定义需要清理替换的字符内容

1. Function CleanText(strText As String) As String
   
2.     Dim strText As String
   
3.     If strText = "" Then
   
4.         CleanText = ""
   
5.     Else
   
6.         strText = Replace(strText, " ", "")
   
7.         strText = Replace(strText, vbTab, " ")
   
8.         strText = Replace(strText, vbCrLf, " ")
   
9.         strText = Replace(strText, Chr(160), "")
   
10.         CleanText = strText
    
11.     End If
    
12. End Function
    

复制代码

游乐缘

游乐缘 发表于 2023-1-31 09:09
VBA一般用Replace替换字符

以截图代码为例，使用CleanText自定义函数获取MyName2。
MyName2 = CleanText(MyName)

risklin

游乐缘 发表于 2023-1-31 10:51
以截图代码为例，使用CleanText自定义函数获取MyName2。
MyName2 = CleanText(MyName)

感谢回复。

替换没问题，是出在“Name MyPath & MyName As MyPath & MyName2”  这个问题， myname 还是存在不能识别的chr（160），无法读取到文件，所以无法重命名。

准提部林

ChrW(160) ????

游乐缘

risklin 发表于 2023-1-31 15:01
感谢回复。

替换没问题，是出在“Name MyPath & MyName As MyPath & MyName2”  这个问题， myname 还 ...

试试FSO呢？例子如下，具体可以在论坛里找找

1.     Set fileSrc = fso.GetFile(strFileFullname)
   
2.     fileSrc.name = strNewFilename

复制代码

zldccmx

risklin

zldccmx 发表于 2023-1-31 15:57

不行，只要原文档名称含有 chr（160）这个字符，要打开时，都会提示文件未找到