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