VBA代码大全034：如何用vba重命名文件？

您所在的位置：网站首页 › 微信图片怎么重命名文件 › VBA代码大全034：如何用vba重命名文件？

VBA代码大全034：如何用vba重命名文件？

#VBA代码大全034：如何用vba重命名文件？| 来源: 网络整理| 查看: 265

VBA代码大全034：如何用vba重命名文件？ 2016年10月23日作者：水星Excel 16,585 次浏览暂无评论

在用vba操作文件的时候，会遇到需要对文件进行重命名的情况。

在vba中对文件进行重命名可以用vba内置的Name语句也可以调用FileSystemObject对象进行重命名。

本文对这两种方法都将进行介绍。

方法一用Name语句进行文件的重命名

Name语句的语法是Name oldpathname As newpathname。

其中oldpathname参数表示源文件的位置，newpathname参数表示新的文件所在的位置。其中newpathname参数表示的文件不能是已经存在的。除了重命名文件Name语句还可以重命名文件夹。

此外，Name语句不能对已经打开的文件进行重命名，在重命名之前必须先关闭已经打开的文件。

用Name语句进行重命名时，如果newpathname参数与oldpathname参数表示的路径不在同一个文件夹，则将移动到新的路径。

如下所示的代码分别将重命名并且移动文件以及重命名一个文件夹：

Sub QQ1722187970() '将C盘的2.txt文件重命名为abc.txt,并且移动到D盘 Name "c:\2.txt" As "d:\abc.txt" '将C盘的test文件夹改为test1文件夹，重命名文件夹只能在同一盘符内 Name "c:\test" As "c:\test1" End Sub

方法二调用FileSystemObject对象进行文件的重命名

调用FileSystemObject对象进行文件的重命名将采用经典的对象.属性的方式进行文件或文件夹的重命名。它把每一个文件或者文件夹定义为对象，通过修改文件或者文件名的Name属性来重命名。

Sub QQ1722187970() Dim oFSO Dim oFolder Dim oFile Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFile = oFSO.GetFile("c:\2.txt") '将2.txt的名字重命名为abc.txt oFile.Name = "abc" Set oFolder = oFSO.GetFolder("c:\test") '将文件夹test重命名为test1 oFolder.Name = "test1" End Sub

与Name语句的不同之处在于，通过属性修改文件的名称，不能移动文件。如果要移动文件，要用FileSystemObject对象的MoveFile方法。

其它相关文章推荐：如何在python中表示文件的路径？VBA代码大全018：如何用vba把vba窗体中的背景图导出为独立的图片文件？如何在VS中添加SQLite的引用？如何在word、ppt中用vba获取已经打开的excel应用程序对象？VBA代码大全025：如何用vba判断剪贴板中有无数据？如何理解和使用C#中的数组？分类 : VBA , VBA代码大全 , 文件、文件夹、目录标签 : FileSystemObject , name , vba重命名文件 , vba重命名文件夹 , 文件和文件夹 , 重命名

声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。如果想要每天都收到本站的技术文章推送，可以微信搜索公众号：水星Excel或者Excel_Office关注。其它事宜请加QQ：1722187970 或微信号：xycgenius 联系。

【本文地址】

VBA代码大全034：如何用vba重命名文件？

VBA代码大全034：如何用vba重命名文件？

今日新闻

推荐新闻