[已解决]怎样在文件夹里批量修改文档

YUANXMJYPX · 发表于 2015-5-19 14:39

各位大神们，下午好！
在工作中经常遇到这样单位情况，就是在一个文件夹里有成千上万的文件，而这些文件名太长，需要修改为关键字就ok,但要求修改后文件的属性不能改变，修改后的文件能和修改前的文件一样都能用OFFICE办公软件及PDF 软件打开文档，求助各位高手，在此，先谢谢各位老师！详见附件“文档”

最佳答案

roych

2015-5-19 15:15

本帖最后由 roych 于 2015-5-19 15:19 编辑

Sub test()
'需引用 Microsoft Scripting runtime库
Dim fso As New FileSystemObject
Dim fl As File
'避免找不到文件
On Error Resume Next
For Each fl In fso.GetFolder(ThisWorkbook.Path & "").Files
If Len(fl.Name) > 10 Then
'第一个Mid为文件名，第二个Mid为文件扩展名。这里只取了倒数第一个“-”号前面10个字符
Name fl.Path As ThisWorkbook.Path & "\修改后" & Mid(fl.Name, InStrRev(fl.Name, "-") - 10, 10) & Mid(fl.Name, InStrRev(fl.Name, "."))
End If
Next
End Sub

复制代码

文档.rar (456.69 KB, 下载次数: 21)

roych · 发表于 2015-5-19 15:15

本帖最后由 roych 于 2015-5-19 15:19 编辑

Sub test()
'需引用 Microsoft Scripting runtime库
Dim fso As New FileSystemObject
Dim fl As File
'避免找不到文件
On Error Resume Next
For Each fl In fso.GetFolder(ThisWorkbook.Path & "").Files
If Len(fl.Name) > 10 Then
'第一个Mid为文件名，第二个Mid为文件扩展名。这里只取了倒数第一个“-”号前面10个字符
Name fl.Path As ThisWorkbook.Path & "\修改后" & Mid(fl.Name, InStrRev(fl.Name, "-") - 10, 10) & Mid(fl.Name, InStrRev(fl.Name, "."))
End If
Next
End Sub

复制代码

文档.rar (456.69 KB, 下载次数: 21)

YUANXMJYPX · 发表于 2015-5-19 22:07

roych 发表于 2015-5-19 15:15
看看是不是这样。不过修改完之后是不会保留原文件的。

老师　你好！　　我下载你的文档，运行宏怎么没有反应？请老师指教一下，谢谢！

YUANXMJYPX · 发表于 2015-5-19 22:29

YUANXMJYPX 发表于 2015-5-19 22:07
老师　你好！　　我下载你的文档，运行宏怎么没有反应？请老师指教一下，谢谢！

老师　你好！我终于弄清楚了,要新建一个"修改后"文件夹,这样程序就能运行了,再次谢谢!

roych · 发表于 2015-5-20 12:08

YUANXMJYPX 发表于 2015-5-19 22:29
老师　你好！我终于弄清楚了,要新建一个"修改后"文件夹,这样程序就能运行了,再次谢谢!

弄明白就好。当时太忙，没时间说明了。

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