VBA实战技巧10： 复制文件到指定的文件夹并重命名

在工作表的列A中放置着一系列带有完整路径的文件名列表，想要将这些文件移至指定的文件夹并使用列B中相应的名称对其重命名，如下图1所示。

图1

下面的代码复制列A中路径所在的文件到指定的文件夹（示例中假设是C盘），并使用相应的列B中的文本重命名文件。

Sub CopyFileWithSpecialName()
    Dim i As Integer
    Dim lngLastRow As Integer
    Dim iPos As Integer
   
    lngLastRow = Range("A" &Rows.Count).End(xlUp).Row
   
    For i = 1 To lngLastRow
        iPos = InStrRev(Range("A"& i), ".")
        FileCopy Range("A" & i),"C:\" & Range("B" & i) & Mid(Range("A" & i), iPos, Len(Range("A" & i)))
    Next i
End Sub

代码中：

InStrRev(Range("A" & i),".")

从右向左查找列A的文本中“.”出现的位置，即扩展名开始的位置。而InStr函数是从左向右查找，如果代表文件的路径字符串中出现多个“.”，则只会返回第1个找到的位置，这样显然不正确。我们都知道，文件名的扩展名一定是在末尾，因此使用InStrRev函数可以确保正确地得到扩展名开始的位置。

FileCopy方法将文件从一个地方复制到另一个地方，但要确保所复制的文件确实存在。

为了讲解方便，示例简化了文件路径，你可以结合实际在单元格中输入任意的代表文件路径的字符串。

欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。