一个关於VBA复制不同EXCEL表中工作薄的问题

来源：百度知道 编辑：UC知道 时间：2024/06/01 00:57:26
我是菜鸟,刚刚接触到VBA,现在有一个问题需要请教各位高手.
比如说我现在有两个EXCEL表,分别为book1和book2,book2里面有很多sheet项,都是改过名字的,如sheet1可以改为cooper,就是类似这样的,现在我想把这些sheet薄通过VBA复制到BOOK1里面,该如何操作?

我试过用录制宏的方法,不过后来运行VBA的时候提示阵列索引超出范围.

分不多了,不好意思,有答案后会追加分!

教室的行不行我不知道，但我这个是最基本的，应该不会出错，你可试试，在BOOK2里加如下代码：

Sub test()
Dim book2_count As Integer
Dim book1_count As Integer

book2_count = Workbooks("book2").Sheets.Count

For i = 1 To book2_count
book1_count = Workbooks("book1").Sheets.Count
Sheets(i).Copy After:=Workbooks("Book1").Sheets(book1_count)
Next

End Sub

好诱人得分 但是我不会啊 可惜