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

-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

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

回答

相关问题