VBA复制一个SHEET到另一个文件中的代码

1、在工作表中，点击菜单栏【开发工具】，在其工具栏里，点击【visual basic】,进入VBA界面。

2、在VBA界面，点击菜单栏【插入】，在其下拉菜单中，点击【模块】。

3、会d出代码编辑窗口。

4、在代码编辑窗口输入一下代码。Sub 复制文件()FileCopy "f:\456.xlsx", "e:\963.xlsx"End Sub。

5、在VBA界面，点击工具栏里的【运行】按钮。

6、会发现E盘的目录下，出现了【963.xlsx】文件，复制就成功了。

代码在文件模块里，或把以下代码粘到模块里

Sub 写入数据()

wbpath = ThisWorkbook.Path &"\"

模板文件地址 = wbpath &"模板文件" &"\"

到文件夹 = wbpath &"生成表格复制到该文件夹" &"\"

my_file = Dir(模板文件地址)

Do While my_file <>""

Workbooks.Open Filename:=模板文件地址 &my_file

With ThisWorkbook

  data_row = .ActiveSheet.Range("A" &Rows.Count).End(xlUp).Row

  For i = 2 To data_row

    If Val(.ActiveSheet.Cells(i, 4)) = Val(Split(ActiveWorkbook.Name, ".")(0)) Then

      ActiveWorkbook.ActiveSheet.Range("F2") = .ActiveSheet.Cells(i, 3).Value

      ActiveWorkbook.SaveAs Filename:=到文件夹 &.ActiveSheet.Range("B" &i) &".xlsx"

      ActiveWorkbook.Close False

    End If

  Next i

End With

my_file = Dir

Loop

End Sub

---