excel vba获取word文件名(EXCELVBA批量对文件重命名)
处理文件时经常会遇到需要对大量文件重命名,十几二十个手动修改下还好说,遇到成百上千,就需要借助软件了。网上有好多对文件重名的软件,功能也是比较多,但是没有一个用的比较顺手的,而且还会需要令人头疼的捆绑安装。VBA是Visual Basic的一种宏语言,主要能用来扩展Windows的应用程序功能,特别是Microsoft Office软件。一般office EXCEL组件都会自带宏文件编辑器(打开EXCEL->开发工具 ->VB编辑器)。如果用的是WPS,请百度安装VBA for WPS。下面分析一个自己工作共常用的文件重名代码。
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub 文件重命名()
'
' 文件重命名
Set fso = CreateObject("scripting.filesystemobject")
Set ff = fso.getfolder("D:\test") ' 需要重名的文件所在的文件夹
i = 1
Dim strName As String
For Each f In ff.Files
strName = f.Name
strName = Replace(strName, "_今日头条_头条发布_", "") ' 删除文件名中的“_今日头条_头条发布_”
exc = fso.getextensionname(f) '获取文件扩展名
strName = Replace(strName, "." exc, Str(Date)) Str(i) "." exc ' 添加时间 添加编号
'strName = Left(strName,5)
'strName = Right(strName,5) '也可以用Min函数对文件名进行截取 截取时注意加扩展名
If f.Name <> strName Then
f.Name = strName End If
i = i 1
Next
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
打开EXCEL 进入开发工具,新建宏。修改下要重命名的文件夹,以及文件重命名的规则就可以使用了。
,免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com