如何获取另一个文件夹中的工作簿中的数据？

liuxinln · 发表于 2011-2-6 07:17

谢谢，学习了

sunlight0123456 · 发表于 2011-2-9 16:27

不客气，取长补短共同提高

aresrobin · 发表于 2014-4-4 15:32

zhaogang1960 发表于 2011-2-3 23:38
试试：
Sub Macro1()
With GetObject("d:\2.xls")

zhaogang1960老师的代码那是相当靠谱,今天学习了您的这招,够我研究一会啦,谢谢

sunlight0123456 · 发表于 2014-4-29 14:23

嗯，高！
在不能直接用公式取数的情况下，就用这个方法，收藏了。
谢谢zhaogang老师！

gxshlzr · 发表于 2015-11-27 09:52

我改成以下程序，结果运行时出错了，停在 With GetObject(myfile)，是为什么呢？
Dim myPath$, myFile$
myPath = ThisWorkbook.Path & "\"
myFile = Dir(myPath & "book2.xls")
With GetObject(myfile)
Workbooks("book1.xls").Sheets(2).Cells(1, 1) = .Sheets(2).Cells(1, 1)
.Close False
End With
End Sub

fcythz · 发表于 2017-5-18 18:05

赵老师你好!
我也有个类似的问题希望您指导一二,在2.xlsx不打开的情况下,1.xlsx中如何引用2.xlsx中的数据.详见附件.

Luz_hanlu · 发表于 2020-2-25 15:42

感谢，学习了

咱村 · 发表于 2023-3-29 15:16

gxshlzr 发表于 2015-11-27 09:52
我改成以下程序，结果运行时出错了，停在 With GetObject(myfile)，是为什么呢？
Dim myPath$, myFile$
...

试试应该可以的 myFile = myPath & "book2.xls"

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

[求助] 如何获取另一个文件夹中的工作簿中的数据？