如何批量去掉excel名称里的不可识别字符

今天写了一个vba程序来进行多表合并，但程序遇到一个Bug不知如何解决，故求助。就是下载下来的文档名称有简有繁，有⭐有❤有△，用dir(Thisworkbook. path&"\*.xls")处理文件名时，这些字符会变成问号，用getobject无法打开这个文档，请问诸位大神有木有什么方法可以快速的去掉名称里的这些不可识别字符，谢谢回答。

大神们谁在呀

北京勤哲软件技术

勤哲Excel服务器2025学习和下载。用Excel自动生成excel服务器版及手机app.软博会金奖产品，适合于各行各业的管理人员使用。

2025-05-16 13:32广告

立即查看

你可以换个思路，把需要的提取出来，把原来的删掉

应该是dir函数返回的文件名包含unicode字符不可识别，试试套上strconv函数转化试试。如果不行的话可能就要用api函数查找了

Sub marcp()
'Dim ObjExcel As Excel.Workbook
文件在哪里就改下那个GetFolder参数
For Each sfile In CreateObject("Scripting.FileSystemObject").GetFolder("E:\").Files
If InStr(sfile.Name, ".xlsx") Then
Set ObjExcel = Workbooks.Open(sfile.Path)
End If
Next
End Sub

解决了谢谢大神

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

8回复贴，共1页

<<返回excel吧

分享到:

日	一	二	三	四	五	六