将特定范围从源工作表复制到具有不同路径的目标工作表

Question

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 个不同路径的文件：

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

我想从文件 1 中将范围A2:A1000从“Sheet” Impuls复制到文件 3 中的A2:A1000范围内的“Sheet” monthly 。

和

monthly从文件 2 将范围A2:A1000从“Sheet” Impuls复制到范围B2:B1000文件 3。

Answer 1

您将wkbk_feb和wkbk_mar声明为工作簿对象，因此您需要直接引用它们：

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

您应该始终指定工作簿或工作表，而不是激活或选择任何内容。 所以它应该看起来像

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