如何批量修改EXCEL工作簿的名字

upper24 · 发表于 2012-1-18 10:40

EXCEL工作簿的名字当中含有汉字，如何批量将名字中的汉字删除？请懂得的朋友们不吝赐教，万分感谢！

upper24 · 发表于 2012-1-18 14:14

EXCEL工作簿的名字当中含有汉字，如何批量将名字中的汉字删除？请懂得的朋友们不吝赐教，万分感谢！

wjx_sjz · 发表于 2012-2-27 16:03

本帖最后由 wjx_sjz 于 2012-2-27 16:04 编辑

Sub Test()
Dim mc(1 To 255)
For Y = 1 To Sheets.Count
      mc(Y) = Sheets(Y).Name
      With CreateObject("VBSCRIPT.REGEXP")
         .Global = True
         .Pattern = "[一-龥]"
            If Len(mc(Y)) > 0 Then mc(Y) = .Replace(mc(Y), "")
            Sheets(Y).Name = mc(Y)
      End With
Next Y
End Sub

wjx_sjz · 发表于 2012-2-28 15:10

本帖最后由 wjx_sjz 于 2012-2-28 15:12 编辑

看错了，上面的是去除工作表名字中的汉字的，批量改名可以用CMD命令中的"dir >*.txt",得到所有文件名的txt文件，然后导入到EXCEL文件中，运用下面的语句得到不含汉字的对应的名字：

Sub test()
Dim RegEx
Dim Rng As Range
Set RegEx = CreateObject("vbscript.regexp")
With RegEx
.Global = True
.Pattern = "[一-龥]"
End With
For Each Rng In ActiveSheet.UsedRange
Rng.Value = RegEx.Replace(Rng.Value, "")
Next Rng
End Sub

复制代码

然后再加入ren,空格，导出为txt文件，修改并改成BAT文件运行就可以了。

tanping2008 · 发表于 2012-3-8 09:27

牛人啊，膜拜

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