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

sunlight0123456 · 发表于 2011-2-3 22:51

在C:\1.xls中，A1=MAX('d:\[2.xls]Sheet3'!$A:$A)
可以在没有手工打开d:\2.xls的情况下，在C:\1.xls中，显示d:\2.xls中A列的最大值
这个功能用VBA如何实现呢？

Workbooks("1.xls").Sheets(1).Range("A1") = ???

谢谢！

zhaogang1960 · 发表于 2011-2-3 23:38

试试：
Sub Macro1()
With GetObject("d:\2.xls")
Workbooks("1.xls").Sheets(1).Range("A1") = WorksheetFunction.Max(.Sheets("Sheet3").[a:a])
.Close False
End With
End Sub

sunlight0123456 · 发表于 2011-2-4 11:11

GetObject("d:\2.xls")相当于在后台打开它？
GetObject("d:\2.xls").Close False 相当于不保存关闭？

函数A1=MAX('d:\[2.xls]Sheet3'!$A:$A)实际上也是在后台打开、用完了之后再关闭该文件吗？
谢谢！

[ 本帖最后由 sunlight0123456 于 2011-2-4 11:13 编辑 ]

zhaogang1960 · 发表于 2011-2-4 11:23

原帖由 sunlight0123456 于 2011-2-4 11:11 发表
GetObject("d:\2.xls")相当于在后台打开它？
GetObject("d:\2.xls").Close False 相当于不保存关闭？

函数A1=MAX('d:\[2.xls]Sheet3'!$A:$A)实际上也是在后台打开、用完了之后再关闭该文件吗？
谢谢！

前两句正确
第三句在代码中表示就是：
Workbooks("1.xls").Sheets(1).Range("A1") = WorksheetFunction.Max(.Sheets("Sheet3").[a:a])

哭泣的数字 · 发表于 2011-2-4 11:52

我也有个类似的问题想请教zhaogang1960老师，就是我连接的几个工作表如表2 3 4 中sheet1 B C D E F列的数据都是连接到表1中的sheet1 B C D E F列的数据，而表1中sheet2中的B C D列又分别连接到表2 3 4中的sheet2的B列，每天我先要更新表1的数据再分别打开表2 3 4才能使用表1sheet2中的数据。请问能否只更新表1的数据不用打开表2 3 4就能自动实现他们之间数据的更新？

zhaogang1960 · 发表于 2011-2-4 11:57

原帖由 哭泣的数字 于 2011-2-4 11:52 发表
我也有个类似的问题想请教zhaogang1960老师，就是我连接的几个工作表如表2 3 4 中sheet1 B C D E F列的数据都是连接到表1中的sheet1 B C D E F列的数据，而表1中sheet2中的B C D列又分别连接到表2 3 4中的sheet2的B列 ...

请上传附件，并详细说明要求

哭泣的数字 · 发表于 2011-2-4 12:02

原帖由 zhaogang1960 于 2011-2-4 11:57 发表

请上传附件，并详细说明要求

制作附件得需要一会时间，不知是否会耽误老师吃午饭？我先制作附件，一会传上来，您有时间就看看。

sunlight0123456 · 发表于 2011-2-4 13:51

用VBA实现 “函数A1=MAX('d:\[2.xls]Sheet3'!$A:$A) 的功能，需要打开、再关闭另一个工作簿。
而用函数，从执行时间看，似乎并没有后台打开、再关闭另一个工作簿，速度很快，立马就呈现结果。
不知这是为何？？？

zhaogang1960 · 发表于 2011-2-4 14:54

原帖由 sunlight0123456 于 2011-2-4 13:51 发表
用VBA实现 “函数A1=MAX('d:\[2.xls]Sheet3'!$A:$A) 的功能，需要打开、再关闭另一个工作簿。
而用函数，从执行时间看，似乎并没有后台打开、再关闭另一个工作簿，速度很快，立马就呈现结果。
不知这是为何？？？ ...

在vba中使用工作表函数需要打开要引用的工作簿，否则会出错
如果知道要引用的工作簿地址，建议使用公式，或用vba即时写公式(只知道引用工作簿地址为ThisWorkbook.Path)

sunlight0123456 · 发表于 2011-2-5 09:01

我现在是用VBA即时写公式，运算出结果后，再转换成值。
谢谢各位了！

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

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

评分