bat文件复制文件夹及其内部文件_VBA实战技巧10： 复制文件到指定的文件夹并重命名...

学习Excel技术，关注微信公众号：

excelperfect

在工作表的列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 iEnd Sub

代码中：

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

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

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

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

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

欢迎到知识星球：完美Excel社群，进行技术交流和提问，获取更多电子资料。