工作簿1调用工作簿2某个单元格的数据，2个工作簿都已经打开。

cjw099 · 发表于 2018-7-12 22:16

让表1指定多个单元格调取表2 指定多个单元格里的值
已经打开指定名称的工作簿了，那么我想让ThisWorkbook.sheet1.fange("b1")= 新打开工作簿sheet1.range("b5")要怎么写代码，老是出错。 Workbooks.Open "C:\Users\Administrator\Desktop\新建文件夹\" & Range("a1").Text & ".xlsm"

tudarong · 发表于 2018-7-12 22:20

ThisWorkbook.sheet1.fange("b1")
range("b1")写成了fange("b1")

tudarong · 发表于 2018-7-12 22:25

GetObject和Workbooks.Open区别.rar (24.1 KB, 下载次数: 23)
可以使用GetObject或者Workbooks.Open，请参考附件

cjw099 · 发表于 2018-7-12 22:28

tudarong 发表于 2018-7-12 22:20
ThisWorkbook.sheet1.fange("b1")
range("b1")写成了fange("b1")

这个是刚才打错的。能具体写一段代码给我吗，网上查了很多，我写出来都没用。
那就是说有2个打开的工作簿，新打开的工作簿我不知道要怎么声明，代码所在的工作簿，工作表1的单元格b1是这样描述吗？ThisWorkbook.sheet1.Range("b1")
那么新打开的工作簿（也就是我需要调用数据的工作簿）该怎么描述。

刚学习VBA，自己花了很长时间网上找代码还是没搞懂，麻烦哪个前辈指点一下。给一段代码吧

举例：工作簿1.表1.单元格B1 = 工作簿2.表1.单元格E1的代码

tudarong · 发表于 2018-7-12 22:30

附件中是将工作簿1的内容写入工作簿2中，
GetObject是后台打开工作簿2
Workbooks.Open是将工作簿2打开并激活为当前工作簿

cjw099 · 发表于 2018-7-12 22:33

tudarong 发表于 2018-7-12 22:30
附件中是将工作簿1的内容写入工作簿2中，
GetObject是后台打开工作簿2
Workbooks.Open是将工作簿2打开并 ...

感谢我慢慢消化一下附件里的代码

tudarong · 发表于 2018-7-12 22:35

cjw099 发表于 2018-7-12 22:33
感谢我慢慢消化一下附件里的代码

如果有所帮助，请送几朵小花

cjw099 · 发表于 2018-7-12 22:36

tudarong 发表于 2018-7-12 22:30
附件中是将工作簿1的内容写入工作簿2中，
GetObject是后台打开工作簿2
Workbooks.Open是将工作簿2打开并 ...

m = wb.Worksheets("sheet1").Range("A65536").End(xlUp).Row
n = Worksheets("数据").Range("a65536").End(xlUp).Row
Worksheets("数据").Range("a2:g" & n).Copy
wb.Worksheets("sheet1").Range("A" & m).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Transpose:=False

这几句看不懂，能解释下吗？

tudarong · 发表于 2018-7-12 22:43

本帖最后由 tudarong 于 2018-7-13 07:45 编辑

'wb是工作簿2，m 是工作簿2工作表1非空行

复制代码

tudarong · 发表于 2018-7-13 08:50

明明已经编辑了，但为什么不显示编辑后的内容呢

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

[求助] 工作簿1调用工作簿2某个单元格的数据，2个工作簿都已经打开。

评分