VBA-批量修改文件名_henry_dx_新浪博客

原创 于 2017-03-24 16:26:55 发布 · 1.9k 阅读 · 6 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#leetcode

本文介绍了一段使用VBA实现的批量重命名文件的代码。该代码通过遍历工作表中指定范围内的单元格，读取文件名，并在指定路径下进行文件重命名操作。适用于需要快速修改大量文件名的工作场景。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

Sub 批量重命名()
Dim y_name As String
Dim x_name As String
For i = 1 To Range("A1048576").End(xlUp).Row
   y_name = ThisWorkbook.Path & "\" & Cells(i, 1)
   x_name = ThisWorkbook.Path & "\" & Cells(i, 2)
   On Error Resume Next
   Name y_name As x_name
Next
End Sub
henry_dx
关注
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值