Excel的VBA：複製範圍到一個新的工作簿

-1

我有下面的代碼是工作一個小時回來，現在不工作suddenely :-( 我在這裏缺少什麼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")

來源

2013-05-06 Jill448

請告訴我運行時錯誤？哪一行給出錯誤？ – Santosh 2013-05-06 20:03:12

對象不支持此屬性或方法是錯誤。它投擲在最後一行，我複製粘貼 – Jill448 2013-05-06 20:05:13

行*的哪部分*給你的錯誤？它是否是「ReportWorkbook.Sheet5」？或者'ReportWorkbook.Sheet5.Range（「B2：T10」）'？或'ReportWorkbook.Sheet5.Range（「B2：T10」）。Copy'？或者...你明白了。 – 2013-05-07 07:28:29

你錯過了？在第二行第一次報價：

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

來源

2013-05-06 19:49:56 Phylogenesis

對不起，這是一個錯誤文件，出現在那裏 – Jill448 2013-05-06 19:52:49

您是否試過單步執行代碼以查看錯誤的位置？ – Phylogenesis 2013-05-06 19:53:45

是的..它拋出運行時錯誤..對象不支持這個屬性或方法。 – Jill448 2013-05-06 19:58:38

試試下面

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

來源

2013-05-06 20:06:18 Santosh

仍然相同的運行時錯誤 – Jill448 2013-05-06 20:08:20

@ sravs448我已更新答案。簡單刷新頁面。 – Santosh 2013-05-06 20:16:31

工作表在那裏。它以Sheet1（Sheet5）..SO的形式存在。我用Sheet1嘗試了它。但仍然出現同樣的錯誤 – Jill448 2013-05-06 20:19:01

你試過類似：

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)

來源

2013-05-06 20:17:14 hrezs

編譯錯誤：WorkSheets（5）中的引用無效或不合格。 – Jill448 2013-05-06 20:23:43

@ sravs448是否更新了Worksheets（5）以引用您的工作表？（我認爲這是第5張，但它可能不是） – hrezs 2013-05-06 20:40:13

Excel的VBA：複製範圍到一個新的工作簿

回答

相關問題