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

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

大神们谁在呀

海州区美度网络科技工作..

办公软件excel表格免费，电脑版安装激活，包含2021/2019/2016/2013/2010等多个版本，密钥激活安装，永久使用

2025-02-08 08:29广告

立即查看

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

应该是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吧

分享到:

日	一	二	三	四	五	六