在一个工作簿获取另一个工作簿一区域的内容

jokerzhh · 发表于 2018-8-7 10:27

CAT是主文件, 点击click按钮运行.
我现在想获取DOC工作簿DIRECT MACHINERY表的一个区域的内容, 然后做一些查询工作, 但获取这区域内容时一直会报错

想要获取数据的区域

现在有下面两种错误, 我想到原因是: 现在激活的是CAT工作表, 所以用worksheets()找不到DOC的那个sheet, 但换成下面那行代码后也不对. 请问这个地方要怎么写, 谢谢各位.

出问题的代码

仰望兴叹 · 发表于 2018-8-7 11:04

试试在这个function中定义变量类型
Dim wbDOC As Workbook
Set wbDOC = Workbooks.Open(ThisWorkbook.Path & "\DOC.xlsx")

LMY123 · 发表于 2018-8-7 10:49

很少有人看比较长的代码，最好表述并模拟结果

jokerzhh · 发表于 2018-8-7 10:59

LMY123 发表于 2018-8-7 10:49
很少有人看比较长的代码，最好表述并模拟结果

打开CAT文件, 点击click按钮, 然后会报"下标越界"/"找不到对象", 定位在这一行

Set range_doc_injection = wbDOC.Sheets("DIRECT MACHINERY").Range(Worksheets("DIRECT MACHINERY").Cells(16, 1), Worksheets("DIRECT MACHINERY").Cells(30, 8))

复制代码

wbDOC是另一个工作簿

jokerzhh · 发表于 2018-8-7 11:17

仰望兴叹发表于 2018-8-7 11:04
试试在这个function中定义变量类型
Dim wbDOC As Workbook
Set wbDOC = Workbooks.Open(ThisWorkbook.Pat ...

谢谢, 试了你的方法, 在set range的地方不报错了, 但是在下一行报 "找不到match方法", 我加了application也不行

		自动登录	找回密码
密码			免费注册

[求助] 在一个工作簿获取另一个工作簿一区域的内容