Question

excel VBA 如何实现两个或者三个文件夹内的excel工作簿的复制及重命名

我想从模版文件夹里面重复制一个模版1的excel工作簿保存到存档1文件夹里面，复制后的工作簿文件名改为表格内“查询编号”的数字

Answer 1

SourceFile="模板文件夹\模板1文件"
DestinationFile ="存档文件夹\" & "查询编号的数字" & "后缀(.xls或.xlsx，与原文件的后缀相同)
FileCopy SourceFile, DestinationFile ' 将源文件的内容复制到目的文件中

如果文件打开，复制出错。

追问

不行啊

追答

Sub 复制文件()
    Dim SourceFile As String, DestinationFile As String
    SourceFile = "E:\工作\2012计划.xlsx"
    DestinationFile = "C:\Users\User\Desktop\全屏看图\" & "查询编号的数字" & ".xlsx"
    FileCopy SourceFile, DestinationFile ' 将源文件的内容复制到目的文件中
End Sub

在自己电脑上测试可以：

复制过来了，并且也改名了

版本：Office2010，Win10