Excel VBA 对选定文件进行改名
ExcelVBA完整的学习教程附送笔记和课件
一、网友需求
由于网友需求写的很复杂,但是最终目的很简单。我将其需求改成易懂的表格
首先,在C盘孙兴华文件夹下有N多文件
再新建一个C盘赵女士的文件夹
网友需求:A列孙兴华文件夹指定的文件名,拷贝到赵女士文件夹,并改名成B列的名字
二、代码如下
Sub 修改文件名()
Set FSO对象 = CreateObject("Scripting.FileSystemObject")
Set 字典 = CreateObject("Scripting.Dictionary")
arr = Range("A2:B4")
For i = 1 To UBound(arr, 1)
字典(arr(i, 1)) = arr(i, 2)
FSO对象.CopyFile "c:\孙兴华\" & arr(i, 1), "c:\赵女士\"
Name "c:\赵女士\" & arr(i, 1) As "c:\赵女士\" & arr(i, 2)
Next
End Sub