將源工作表中的特定範圍複製到具有不同路徑的目標工作表中

-1

Dim path_feb As String 
Dim path_mar As String 
Dim wkbk_feb As Workbook 
Dim wkbk_mar As Workbook 




path_feb = "D:\Tranzit\2016\feb\data_feb.xlsx" 
Set wkbk_feb = Workbooks.Open(path_feb) 


path_mar = "D:\Tranzit\2016\mar\data_mar.xlsx" 
Set wkbk_mar = Workbooks.Open(path_mar) 




Worksheets("monthly").Range("A2:A1000").Value = Windows("wkbk_feb").Worksheet("impuls").Range("A2:A1000").Value 
Worksheets("monthly").Range("B2:B1000").Value = Windows("wkbk_mar").Worksheet("impuls").Range("A2:A1000").Value 

End Sub

我需要一點幫助才能使用此代碼。將源工作表中的特定範圍複製到具有不同路徑的目標工作表中

問題從這裏開始： Worksheets("monthly").Range("A2:A1000").Value = Windows("wkbk_feb").Worksheet("impuls").Range("A2:A1000").Value

所以，我有3個文件有不同的路徑：

D:\Tranzit\2016\feb\data_feb.xlsx
D:\Tranzit\2016\\mar\data_mar.xlsx
D:\Tranzit\2016\data_final.xlsm

我想複製F ROM文件1的範圍A2:A1000從「Sheet」Impuls到文件3的範圍A2:A1000 from「Sheet」monthly。

和

從文件2的範圍內A2:A1000拷貝從「表」 Impuls在範圍從B2:B1000 「片」 monthly文件3。

來源

2016-09-16 BOB

請始終指定「問題」究竟是什麼。 – arcadeprecinct

「對象不支持這個屬性或方法」 – BOB

這很好，你解決了它，但它不是一個好主意，修復你的問題中的代碼。） – arcadeprecinct

你宣佈wkbk_feb和wkbk_mar爲工作簿對象，所以你需要直接引用他們：

wkbk_feb.Worksheets("impuls")....

，而不是激活或選擇任何你應該總是指定的工作簿或工作。所以它應該看起來像

wkbk_total.Worksheets("monthly")... = wkbk_feb.Worksheets("impuls")....

來源

2016-09-16 08:50:21 arcadeprecinct

仍然不起作用wkbk_feb.Worksheet（「monthly」）。Range（「A2：A1000」）。Value = wkbk_feb.Worksheet（「impuls」）。Range （「A2：A1000」）。值錯誤說：「對象不支持此屬性或方法」 – BOB

下標超出範圍（錯誤9） – BOB

您可能試圖訪問不存在的工作表 – arcadeprecinct

將源工作表中的特定範圍複製到具有不同路徑的目標工作表中

回答

相關問題