请高手帮忙编写EXCEL VBA程序，跨工作簿查询并返回数据

显示全部楼层 · 2013-10-19 07:58:50

Private Const DirPath$ = "C:\" '指向查找的路径Sub aa()Dim Filename$Dim i&Dim Wb As Workbook, Rng As RangeApplication.ScreenUpdating = FalseApplication.DisplayAlerts = FalseOn Error Resume NextWith Worksheets("总表")For i = 1 To .[B65536].End(3).RowIf Len(.Cells(i, 2))0 ThenFilename = DirPath & "" & .Cells(i, "B"...

千问 · 2013-10-19 07:58:50

这个你为什么要用VBA哪直接用公式不就行了吗？用VBA 只能一次有效不如使用函数容易……哈哈！公式的用法就是你先把两个工作簿都打开然后使用公式的时候就像在同一个工作中的操作一样，只不过你的数据引用是跨工作簿的选取……使用Vlookup 等查找函数就可以了……你要得到具体的示例你必须叙述一下你的工作簿数据...

千问 · 2013-10-19 07:58:50

如果使用 VLOOKUP 之类的函数的话比较方便，但是，必须明确把文件夹的位置信息写入公式中。如果使用导入外部数据的方法，则许多工作表都要先导入，然后才能引用。而且自动更新是一个问题；使用 VBA 代码能够有针对性地解决问题，但是灵活性还是有限制的，安全性也是一个限制问题；既然数据都是惟一的，为什么不创建一个数据库，然后在 Excel 中使用一定的方...