怎么解决VBA读取(DIR等方法)的文件名带?的问题

bluesky_0

       我最近做EXCEL VBA批量读取文件夹下的PDF文件处理.
发现有的文件名看着是空格,读到VBA就变成"?"
在论坛也没有找到答案,发现有人多年前提到这个问题,是间接解决的:帖子地址如下:
https://club.excelhome.net/thread-1492890-1-1.html

原因是看着文件名的空格实际不是空格,是ASCII码里面的不在32-127范围的特殊字符.
我想做一个批处理,快速把文件夹的文件名每一个特殊字符替换为其他可以识别的字符.
GOOGLE好久无法解决,今天,终于用powershell方法解决.
发现powershell 脚本真是好东西.一定学会这个办公自动化好东西.

解决方法如下:

(Get-ChildItem -Path 'D:\TEST'-File) |
    Where-Object{ $_.Name -match'[^\x20-\x81]'} |
    Rename-Item -NewName { $_.Name -replace '[^\x20-\x81]+', '_'}


解释:
第一行,取得文件夹地址
第二行,匹配不在ASCII code不在  32 - 129 范围的字符
第三行 替换ASCII code不在  32 - 129 范围的字符为 下划线 '_'

用法:
1.txt文件copy以上代码,替换 'D:\TEST' 为你的文件夹,一定带上''
2.保存为扩展名 ps1 文件
3.运行PS1 .右键:使用powershell运行.或者右键 编辑 测试运行,如下图:
4.注意文件名一定是键盘的字符,字母 数字组合,如果是带中文的,中文也会被替换为 "_"



ASCII code列表

perfect131

感谢分享、学学学
code 63

joforn

文件名其实没啥错，一般错的是系统或是磁盘文件系统。
出现文件名不可识别，特别是大量文件出现这种现象，第一种可能性是，文件名是在其它语言的系统中创建的，但当前的系统无法识别。第二种可能性是，磁盘文件系统出错，导致文件内容变成了目录内容，其文件中的字符全部成了文件名（一般出现这种情况时，会有大量的乱码文件名，且文件名长短不一）。还有就是可能是有故意加入不可识别的文字或是特殊结构的字符，导致Windows无法识别文件或是目录名，以达到一些其它的目的（无法删除或是无法使用常规方式打开）。

smiletwo

FSO +getobject 可以读取

smiletwo

VBA正则批量改名

bluesky_0

smiletwo 发表于 2022-5-22 20:42
VBA正则批量改名

帮你把源代码贴出来:

Sub ren()
Dim MyPath, reg As Object
Set reg = CreateObject("VbScript.RegExp")
reg. Global = True
reg. Pattern = "[^\x20-\x81 —-龢]"
My Path = ThisWorkbook.Path & "\"
Set FSO = CreateObject("Scripting. FileSystemObject")
My Path = ThisWorkbook.Path & "\"
Set ff = FSO.get.folder (MyPath)
For Each f In ff.Files
      If f <> MyPath & ThisWorkbook. Name And InStr(f, "~$")
           If reg.test (f) Then
              fn = reg. Replace (f, "-")
              FSO.MoveFile f, fn
           End If
      End If
Next

yongmo

bluesky_0 发表于 2022-5-23 20:15
帮你把源代码贴出来:

Sub ren()

你好，你把上一楼的代码贴出来，但转换出一些问题，有好几处错呢！
Dim MyPath, reg As Object （My path不要空格)
Set ff = FSO.Getfolder(MyPath)（getfolde之间不应有.）

bluesky_0

yongmo 发表于 2022-11-29 16:33
你好，你把上一楼的代码贴出来，但转换出一些问题，有好几处错呢！
Dim MyPath, reg As Object （My pat ...

只有可以快速解决问题就是好方法,
powershell 脚本你试一试,比VBA更快

ykcbf1100

bluesky_0 发表于 2022-5-23 20:15
帮你把源代码贴出来:

Sub ren()

你这是误人子弟啊，抄错了至少4个地方。
Sub ren()
    Dim MyPath, reg As Object
    Set reg = CreateObject("VbScript.RegExp")
    reg.Global = True
    reg.Pattern = "[^\x20-\x81 —-龢]"
    MyPath = ThisWorkbook.Path & "\"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ff = fso.getfolder(MyPath)
    On Error Resume Next
    For Each f In ff.Files
        If f <> MyPath & ThisWorkbook.Name And InStr(f, "~$") Then
            If reg.test(f) Then
                fn = reg.Replace(f, "-")
                fso.MoveFile f, fn
            End If
        End If
    Next
End Sub

chen657669569

我试了很多很多办法,在目标路径没办法修改文件名的情况下,升级EXCEL版本可以完美解决啊!