Excel宏：粘贴时出错 - 向下移动10行 - 粘贴 - 10行 - 粘贴等

Question

我试图从相同范围（A4：A8）中的三个工作簿（一次一个）复制数据并粘贴他们成为一个新的工作簿。唯一的解决办法是我试图让粘贴部分每个循环下移10行。

我在PasteSpecial行上收到错误消息。我不知道为什么？

（我是一个Excel宏新手，但我给它一个去）

任何指导/指针是极大的赞赏。

非常感谢

Mike。

Dim TestWorkbook as variant, 
Dim mytest as variant 
TestWorkbook= array(“test1”, “test2”, “test3”) ‘3 source files 
i = 0 
For Each mytest In TestWorkbook 
Workbooks.Open Filename:="S:\ExcelWork\" + TestWorkbook + "_Work.xls" 
Range("a4:a8").Copy 
ActiveWorkbook.Close 
Workbooks.Open Filename:="S:\Result_Workbook.xls" 
Range("l" & 5 + i).PasteSpecial Paste:=xlPasteValues `THE PROBLEM IS HERE 
i = i + 10 
Next 

Answer 1

几个问题固定“看评论

Sub a() 
Dim TestWorkbook As Variant 
Dim mytest As Variant 
Dim s As String 
TestWorkbook = Array("test1", "test2", "test3") 
i = 1 'Start with 1 
Workbooks.Open Filename:="S:\Result_Workbook.xls" 'open only once 
For Each mytest In TestWorkbook 
    s = mytest & ".xls" 
    Workbooks.Open "c:\" & s 
    Workbooks(s).Activate 'Remember to Activate 
    Range("a4:a8").Copy 
    ' Now paste properly 
    Workbooks("Result_Workbook.xls").Worksheets("Sheet1").Range("l" & 5 + i).PasteSpecial Paste:=xlPasteValues 
    ActiveWorkbook.Close SaveChanges:=False 'close after pasting 
    i = i + 10 
Next 
End Sub