vba求助 A工作薄内容复制到B工作薄

Question

我有一个小学表格模板，通过vba命令把小学表格模板内容 复制到各个小学的excel去，我现在录制了一个宏，是先打开小学表格模板选取内容 复制粘贴到 某个小学exce表中去
Sub 宏1复制()'
' 宏1复制 宏

Windows("小学表格模板.xlsx").Activate
Range("A1:C17").Select
Selection.Copy
Windows("A小学 .xlsx").Activate
ActiveSheet.Paste
End Sub
我想把“A小学。xls”换成当前打开的学校excel，就是我打开那个小学的excel后，运行宏就把小学表格模板内容复制到这个打开的excel中去

Answer 1

如果你手工的去一个一个打开所有“x小学”的表，那直接复制粘贴比用VBA来的快。

--------------------------------------------------------

VBA可以自动的去打开Excel表，进行复制粘贴。

--------------------------------------------------------

例如，你把你的"小学表格模板.xlsx"和“x小学”的都放在同一个文件夹下，

在"小学表格模板.xlsx"的模块中写如下面代码：

Sub 复制()
 Application.ScreenUpdating = False
 Application.DisplayAlerts = False
Set arr = ThisWorkbook.Sheets("Sheet1").Range("A1:C17")
Mypath = ThisWorkbook.Path
Myfile = Dir(Mypath & "\*小学.xlsx")
 Do While Myfile <> ""
 Set WK = Workbooks.Open(Mypath & "\" & Myfile)
 Set WS = WK.Sheets("Sheet1")
 arr.Copy WS.Cells(1, 1)
 Myfile = Dir
 WK.Close True
 Loop
  Application.ScreenUpdating = True
  Application.DisplayAlerts = True
End Sub

追问

刚刚开始学习vba，现在只会录制简单宏，比较菜。能说详细点说明如何做么？谢谢。