從一個工作簿複製範圍到另一個在Excel VBA中

Question

我有工作簿中，我必須在一個工作簿在活動工作簿複製範圍的範圍可變。當我執行以下操作時，出現錯誤。是否有其他方式來執行此操作。

Dim NTwbk As Workbook 
Dim AppExcel As Excel.Application 
Dim NewRng As Range 
Dim res As Range 
Sub OpenWBK() 
Set AppExcel = New Excel.Application 
Set NTwbk = AppExcel.Workbooks.Open(Sheet1.Range("SecondWorkbookPath")) 
NewRng= NTwbk.Sheets("Sheet1").Range("B3") 

AppExcel.Quit 

End Sub 

我想這也：

NewRng.Value = NTwbk.Sheets("Sheet1").Range("B3").Value 

還沒有工作

Answer 1

你已經有Excel中打開，所以你不需要打開第二個副本，以便丟棄：

Dim AppExcel As Excel.Application 
Set AppExcel = New Excel.Application 
AppExcel.Quit 

更改開放：

​​

但是 「SecondWorkbookPath」 不是一個有效的範圍。如果工作表的單元格A1「工作表Sheet1」包含一個有效的路徑和文件名，以下將是美好的：

Set NTwbk = Workbooks.Open(Worksheets("Sheet1").Range("A1").Value) 
Set NewRng = NTwbk.Sheets("Sheet1").Range("B3") 
NTwbk.Close SaveChanges := False 

做上述變化，然後再試一次。

Answer 2

腳本的主要問題是，一旦關閉了第二個工作簿（通過AppExcel.Quit或NTwbk.close作爲其他答案列表），您引用的範圍對象就不再存儲在內存中，並且您的變量不再可用。同時分配一個對象變量時必須使用設置：

Set NewRng = Ntwbk.Sheets("Sheet1").Range("B3") 

這不會失敗，但也不會是有用的，因爲你再親密Ntwbk。該工作簿關閉之前將與在必須進行的工作簿的範圍內進行

需要的任何動作。

如果你想要的是範圍的值，這是一個可能的變化：

Dim NTwbk As Workbook 
Dim AppExcel As Excel.Application 
Dim NewRng As Range 
Dim res As String 'Note the change from Range to String 
Sub OpenWBK() 
Set AppExcel = New Excel.Application 
Set NTwbk = AppExcel.Workbooks.Open(Sheet1.Range("SecondWorkbookPath")) 
NewRng = NTwbk.Sheets("Sheet1").Range("B3").Value 

AppExcel.Quit 

End Sub 

然後，您可以自由使用NewRng作爲特定範圍內的其他工作簿中的值。