Excel VBA 对文件 重命名

最新推荐文章于 2024-08-10 14:59:16 发布
最新推荐文章于 2024-08-10 14:59:16 发布
阅读量1.7k 收藏 3
点赞数
分类专栏： Excel Vba
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/webmastor/article/details/118060825
版权

Sub rename()
With Application.ActiveSheet
basePath = Application.ActiveWorkbook.Path
i = 1
Do While (.Cells(i, 1) <> "")
strFileName = basePath & "\" & .Cells(i, 1) & ".pdf"
If Dir(strFileName, 16) <> Empty Then
      Name strFileName As basePath & "\" & .Cells(i, 2) & ".pdf"
    End If
i = i + 1
Loop
End With
End Sub

webmastor
关注
专栏目录
【VBA】使用vba进行文件批量重命名（自定义后缀，重复文件自动编号）
RickSanchezzz的博客
01-27 1万+
使用vba进行文件名的重命名和管理的过程中，经常会遇到要命名的文件名已存在，或者多个文件名需要命名成同一个名字，需要后面用括号数字区分的情况，可以参考以下解决办法
VBA重命名文件.xlsm
09-02
VBA重命名文件，源码可见
提取文件名+复制+改名+批量创建文件程序（Excel VBA版）
weixin_45330070的博客
03-05 2359
提取文件名+复制+改名+批量创建文件程序（Excel VBA版）
Excel VBA批量获取文件夹内文件名及重命名文件教程
最新发布
William数据分析的博客
08-10 862
通过以上两个宏，我们可以轻松地批量获取文件夹内的文件名，并根据需求批量重命名文件。在进行这些操作之前，请确保备份重要文件，以防意外发生。希望本文能帮助你在工作中提高效率。
VBA重命名文件或文件夹
豪情云天博客,分享经典好用代码,和工具,感谢大家的关注和支持!
06-01 430
【代码】VBA重命名文件或文件夹。
【vba】【excel】给文件重命名
weixin_61256014的博客
02-26 461
给文件重命名，并且删除原来的文件。
Excel·VBA文件重命名、移动
hhhhh_51的博客
12-13 7639
获取文件夹下所有文件名，并重命名；按顺序重命名；文件夹下所有文件名繁体转简体；批量移动文件；批量创建文件夹
VBA-遍历文件及重命名
congconglili1的专栏
06-01 1451
For filename revision.
基于VBA的批量文件更名
12-08
能够对文件进行批量重命名，输入文件路径即可
EXCEL批量重命名文件
05-21
在excel中使用VBA批量搜索文件，并重命名。
VBA学习(14):给1000个文件重命名
nianfen的博客
06-20 517
第14至第27行代码遍历数据源数组，把第1列的旧文件名重命名为第2列的新文件名。第20至第25行代码，采用试错法，将处理结果信息写入结果数组。第7至第8行代码调用getStrPath函数过程，打开【文件浏览】对话框，允许用户选择的目标文件夹，并获取相关文件的路径。首先，使用以下代码，将该文件夹内的文件名批量提取到当前活动工作表的A列。最后，复制运行以下代码即可将A列旧的文件名修改为新的文件名。第9至第10行代码将A:B列的数据源数据存入数组aData。第28至第30行代码将结果数组写回当前工作表的C列。
Excel VBA文件批量重命名
07-13
打开文件，点击按钮操作。 开放源代码。 如果用Dir()方法和MkDir方法，一般只能在已经存在的文件夹内创建一层新的子文件夹。无法命名任意多层文件夹。 也就是说，如现在如果已经存在文件夹【E:\ABC】，才能创建【E:\ABC\DEF】；否则是不能直接创建后面的新文件夹的。
将工作表从一个 excel 文件复制到另一个 excel 文件：该脚本旨在将工作表从一个 excel 文件复制并粘贴到另一个并重命名所需的工作表。-matlab开发
05-29
%%**************************************************** ****************************************************** ******************* % 名称：copy_sheet_ExcelX % 作者 : Pruthvi Raj G :: www.prudhvy.com ％ % 版本：1.0 版% 描述：一个脚本，用于将工作表从一个 Excel 文件复制到另一个并重命名所需的工作表。 ％ % 输入：1. Input_file & Input_SheetName % 2. Output_file & Output_SheetName ％ % 日期：2019 年 9 月 30 日。 ％ ％ % 示例：copy_sheet_ExcelX('D:\Pruthvi\Test_file.
VBA Excel 批量修改文件名
05-24
使用 VBA Excel 快速批量修改文件名 1、点击“生成文件名“按钮， 会在 "原文件名"列（A列）生成文件对应的文件名。 2、在"修改后文件名"列（B列）中输入想要修改后的文件名。 3、点击“重命名文件”后即可。 注：...
VBA Excel工作表重命名
BeijixingVBA的博客
04-29 1468
VBA Excel工作表重命名
调试经验——联合使用批处理、VBA完成文件的自动重命名(Renaming files with batch and VBA)
预见未来to50的专栏
08-13 1028
今天花了大半天时间完成了一个自动化业务：文件的自动重命名。 本程序启动前，Windows批处理将提取工作文件夹下的所有source文件，并将文件名保存在Source_File_List.xls中。 然后，Windows批处理程序将启动本程序所在的工作簿。启动后执行以下操作： 1. 将Source_File_List.xls中的文件名复制到A列 2. 将公式模板行中的公式自动填充到所有行 3. 筛...
excel如何利用VBA一键更改所有文件的名称
deapou的博客
08-25 8162
心得(2)：如何利用VBA一键更改多个excel文件为指定的名称 问题：如何一键更改相同目录下的所有excel文件的名称，改为这个excel文件名内的每个单元格的内容，如我这个因为是要统计所有比赛队伍的信息，因为大部分人的excel文件名都不规范，这样如果有人想更新文件就得在文件夹里一个一个找很麻烦，就直接把每个队伍的文件命名为他的比赛项目名，这样在一定程度上就具有唯一性 解决：首先把所有要整合的...
VBA更改Excel文件名称
2401_83532256的博客
04-09 562
Set fso = CreateObject("Scripting.FileSystemObject") '文件访问对象。file_path = "D:\研究生课程\stata\第四次作业\公司数据" '指定文件夹。[a1].Resize(1, 2) = Array("原文件名", "新文件名"): i = 1。file_path = "D:\研究生课程\stata\第四次作业\公司数据" '指定文件夹。Range("A:B").ClearContents '仅清空数据。Sub 文件重命名()
Excel VBA：批量对文件任意重命名（移动）
qq_64613735的博客
07-13 4533
如果用Dir()方法和MkDir方法，一般只能在已经存在的文件夹内创建一层新的子文件夹。无法命名任意多层文件夹。也就是说，如现在如果已经存在文件夹【E:\ABC】，才能创建【E:\ABC\DEF】；否则是不能直接创建后面的新文件夹的。用FSO对象主要是因为它处理文件与文件夹更专业，里面有各种函数和方法，不需要自己通过Mkdir/Dir/Split等函数和方法慢慢构造路径；同时避免很多出错的可能。比如给定需要创建的文件夹是利用【FSO.DriveExists()】函数判断给定的路径对应的盘符【E:\】是否存在
Excel VBA重命名当前文件夹下的文件
03-10
你可以使用以下代码来重命名当前文件夹下的文件： Sub RenameFiles() Dim MyPath As String Dim MyFile As String Dim NewName As String MyPath = ActiveWorkbook.Path & "\" MyFile = Dir(MyPath & "*.*") Do While MyFile <> "" NewName = Replace(MyFile, "OldName", "NewName") Name MyPath & MyFile As MyPath & NewName MyFile = Dir Loop End Sub 这个代码将会把当前文件夹下所有文件名中包含"OldName"的部分替换成"NewName"。你可以根据自己的需要修改这个代码。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值