Excel VBA:将范围复制到新工作簿

我有下面的代码，一小时前还在工作，现在突然不工作了：-( 我有什么遗漏吗

 Set NewWorkbook = Workbooks.Open("P:\Env_Check_Report\Results\" & "ENV_Report_ORG.xlsx", UpdateLinks:=True)

    Set ReportWorkbook = Workbooks.Open("P:\Env_Check_Report\Results\" & "Report.xlsx", UpdateLinks:=True)

    ReportWorkbook.Sheet5.Range("B2:T10").Copy _
        Destination:=NewWorkbook.Sheet2.Range("B2:T10")

---

第二行缺少第一个引号：

Set ReportWorkbook = Workbooks.Open("P:\Env_Check_Report\Results\" & "Report.xlsx", UpdateLinks:=True)

试试下面

Dim xlObj As Object
Set xlObj = CreateObject("Excel.Application")

Set NewWorkbook = xlObj.Workbooks.Open("P:\Env_Check_Report\Results\" & "ENV_Report_ORG.xlsx", UpdateLinks:=True)

Set ReportWorkbook = xlObj.Workbooks.Open("P:\Env_Check_Report\Results\" & "Report.xlsx", UpdateLinks:=True)

Set NewWorksht = NewWorkbook.Sheets("Sheet5")
Set Reportsht = ReportWorkbook.Sheets("Sheet2")

If Not NewWorkbook Is Nothing And Not ReportWorkbook Is Nothing Then
   NewWorksht.Range("B2:T10").Copy
   Reportsht.Range("B2:T10").PasteSpecial
End If

---

你有没有试过这样的方法：

Set wbSrc = Workbooks.Open(Filename:=MyPath & "\" & strFilename)

wbSrc.Worksheets(5).Range("B2:T10").Copy

Set wbDes = Workbooks.Open(Filename:=MyPath2 & "\" & strFilename2)     

wbDes.Worksheets(2).Range("B2:T10").Paste

您还可以使用以下命令在代码中创建新工作簿：

Set wbDes = Workbooks.Add(xlWBATWorksheet)

---

很抱歉，这是一个输入错误。它存在于此。您是否尝试单步查看代码错误的位置？是的。它引发运行时错误。对象不支持此属性或方法。是否可以使用“工作表”集合引用正确的工作表，而不是“活动工作表”？关于

ReportWorkbook.Sheets（“Sheet5”）。范围如何（…

？什么是运行时错误？哪一行给出了错误？对象不支持此属性或方法是错误。它在我复制粘贴的最后一行中抛出。该行的哪一部分给出了错误？是

ReportWorkbook.Sheet5

？还是

ReportWorkbook.Sheet5.Range（“B2:T10”）

？或

报告工作簿.表格5.范围（“B2:T10”）.复制

？或…你知道了。表格在那里。它以表格1（表格5）的形式出现…所以我也用Sheet1试过了…但仍然是用if循环试过的相同错误..它在循环内部，在我们提到的行中给出了相同的错误copy@sravs448添加

ReportWorkbook。在复制之前激活
，然后再试一次我在excel宏中有此代码…因此我认为我们不需要这样的代码..它不是VB…这是一个卓越的macro@sravs448您是否在excel中尝试过？编译错误：工作表（5）中的引用无效或不合格。@sravs448您是否更新了工作表（5）以引用您的工作表？（我假设它是第5张工作表，但可能不是）