[已解决]求助vba高手：在不打开数据工作簿的前提下，在目标工作表中显示相关数据

cbdjx

这是我在工作中遇到的一个问题：数据工作簿有上万个，每个工作簿有若干个工作表，想建立一个查询或索引工作簿，便于查询或统计，在不打开数据工作簿的情况下，通过vba进行调用显示有关数据，如在B1输入1001，则在B2处显示出1001.xls相应数据，如不存在1001.xls，显示提示信息。
谢谢！

索引工作簿与数据工作簿结构相同，只是在户号处填写想查询的数据后，执行相应宏命令，在目标处显示相应数据工作簿上的有关数据，实际需显示的有很多，有一个就可拓展开来。

我VBA水平较差，希望高手用附件指导。

最佳答案

月排行榜 / 总排行榜

兰色幻想

2011-3-21 21:25

Sub dd()
Dim wb As Workbook
Set wb = GetObject(ThisWorkbook.Path & "/" & [b1] & ".xls")
[b2] = wb.Sheets(1).[b2]
Windows(wb.Name).Visible = True
wb.Close False
Set wb = Nothing
End Sub

跳转到最佳答案楼层

过儿

你的表格取数有什么规律，把你的表格稍做完整一下，只给出一两个数据，还看不出来

a303241500

根据B1 你可以知道要打开的工作簿名称， 这样就可以用VB 打开工作簿 然后用VB隐藏掉那个工作簿 并且把相应数据显示到B2

过儿

你会用getobject函数吗，这个可以隐式打开，取回数据后再关闭文件

兰色幻想

Sub dd()
Dim wb As Workbook
Set wb = GetObject(ThisWorkbook.Path & "/" & [b1] & ".xls")
[b2] = wb.Sheets(1).[b2]
Windows(wb.Name).Visible = True
wb.Close False
Set wb = Nothing
End Sub

mn860429

只会ado[em04]

UNA123

{:011:}{:011:}

lgzxmlg

回复 兰色幻想 的帖子

如果提取的是“b2:b5”区域内数据，代码如何改？

兰色幻想

lgzxmlg 发表于 2011-3-29 08:09
回复 兰色幻想 的帖子

如果提取的是“b2:b5”区域内数据，代码如何改？

[b2:b5] = wb.Sheets(1).[b2:b5]

lgzxmlg

回复 兰色幻想 的帖子

为什么我按老师的修改后，提取不到数据？