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

高个子 · 发表于 2023-1-31 16:20

上传附件看一眼吧

tanglf188 · 发表于 2023-1-31 16:45

有没有一种可能，你说的空格根本就不是 Chr(160),文件名是允许空格字符的，你再试试 Chr(9)、Chr(10)、Chr(13)，替换看一下（Tab、换行、回车）

zldccmx · 发表于 2023-1-31 17:21

zldccmx · 发表于 2023-1-31 17:21

Sub zldccmx()
Dim MyPath, MyName
MyPath = "C:\Users\Administrator\Desktop\bo"
MyName = Dir(MyPath & "\*.*")
Do While MyName <> ""
DoEvents
x = InStr(MyName, "?")
If x > 1 Then
ChDir MyPath
Shell "cmd.exe /k DIR " & MyPath & "" & Replace(MyName, "?", "*") & " /x >12324.txt" '调用DOS DIR 命令，获取文件的短文件名，8.3格式
On Error Resume Next
Close #1
Open "12324.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, textline
If textline Like "*~*" & MyName Then
y = Split(textline, " ")(15) '短文件名
Close #2
Open "re.bat" For Output As #2
Print #2, "@echo off" & vbCrLf & "ren """ & MyPath & "" & y & """ """ & Replace(MyName, "?", "_") & """" & vbCrLf
Close #2
Shell "cmd.exe /c re.bat"
End If
Debug.Print textline
Loop
Close #1
End If
MyName = Dir()
Loop
Kill "re.bat"
Kill "12324.txt"
End Sub

复制代码

risklin · 发表于 2023-2-1 15:43

高个子发表于 2023-1-31 16:20
上传附件看一眼吧

像附件文件名称含有chr（160）字符，如何用vba重命名去除？

准提部林 · 发表于 2023-2-1 21:38

有特殊符號或外字, 可用這方法//
MyName2 = Replace(MyName, ChrW(160), "")
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(MyPath & "\" & MyName)
f.Name = MyName2

risklin · 发表于 2023-2-2 08:53

准提部林发表于 2023-2-1 21:38
有特殊符號或外字, 可用這方法//
MyName2 = Replace(MyName, ChrW(160), "")
Set fs = CreateObject("Scr ...

这一步还是会提示文件未找到

游乐缘 · 发表于 2023-2-2 09:06

可以上传一个同名的空文件让大家看看吗？

risklin · 发表于 2023-2-2 09:56

游乐缘发表于 2023-2-2 09:06
可以上传一个同名的空文件让大家看看吗？

15楼上传了

准提部林 · 发表于 2023-2-2 13:09

自行去測

TEST001.rar (30.43 KB, 下载次数: 21)

		自动登录	找回密码
密码			免费注册