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

学习Excel技术,关注微信公众号:

excelperfect

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

6f4805469cb9636c1b2a4ae56849ff56.png

图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社群,进行技术交流和提问,获取更多电子资料。

968ec8f601066d2cbdfbb87da9305de9.png

表情包
插入表情
评论将由博主筛选后显示,对所有人可见 | 还能输入1000个字符
相关推荐
©️2020 CSDN 皮肤主题: 1024 设计师:白松林 返回首页