求助：范围拷贝命令执行无结果？

xhqtiger

目的是从表中拷贝一个指定范围到新表，存成新文件，拷贝命令执行后，新表未出现拷贝内容，也不出错，copy命令执行无结果，不知道原因在哪里？下面是程序代码，请各位高手指点。

Sub generatesheets()  '  '功能：生成提交财政分局的最终成果表
Application.ScreenUpdating = False
    On Error Resume Next
    Application.DisplayAlerts = False

     Set wb1 = Workbooks("工作簿8").Worksheets(1)  
     Set wb2 = temp.Worksheets(1)  '

     For i = 0 To 1
        Set temp = Workbooks.Add
        wb1.Range(Cells(3, 12 * i + 1), Cells(x2, 12 * i + 11)).Copy Destination:=wb2.Range("a2")
        wb2.Range("a1") = temp.Name
        temp.Save
        temp.Close


    Next



    Application.DisplayAlerts = True

End Sub

xhqtiger

wb1.Range(Cells(3, 12 * i + 1), Cells(x2, 12 * i + 11)).Copy Destination:=wb2.Range("a2")，这条命令执行无结果，有可能是Range(Cells(3, 12 * i + 1), Cells(x2, 12 * i + 11))无法识别吗，是否写错了？请指教

xhqtiger

人工置顶，请高人指点