[原创][分享]双表核对工具(最新更新提速+多列)

ganhaiqing · 发表于 2010-7-13 13:37

很实用的工具

然然 · 发表于 2010-7-29 23:46

你好,请教一下,能否不用窗体,直接用VBA运行,对两个名称不确定(即为动态工作薄)的工作薄间的数据进行更新或处理呢?
我目前面临的问题是这样的,看能否帮忙解决:
两个新建的工作薄（如：sheet5和sheet8)里面都有粘贴上去的数据（实际上是从ERP系统里导出来的，因这类操作较频繁，所以不打算将导出来的数据表进行保存，故名称不固定）；
打算把这两个工作薄的数据关联处理后粘在其它固定的工作薄里使用(前提是处理后再关联,不是分别将数据更新到固定表里)；
目前可以在其中一个工作薄里取得数据（activeworkbook()），但另一个工作薄由于名称不固定无法通过VBA取得，本打算用鼠标点选另一个工作薄，但因为在VBA运行过程中无法中断所以不能实现。
所以现在的问题就是:目前的思路是:
1.通过VBA过程的中断,切换ACTIVEWORKBOOK,但至今没有找到好的办法;
2.直接通过VBA运行,在切换ACTIVEWORKBOOK时,控制权交由鼠标来点选,也是没有办法;

请教：有没有方法在VBA运行过程中能够用鼠标选择需要的工作薄，而不是事先指定固定的工作薄。

jiweixing · 发表于 2010-8-10 17:11

感谢楼主分享好东西！

Moneky · 发表于 2010-8-12 20:15

原帖由然然于 2010-7-29 23:46 发表
你好,请教一下,能否不用窗体,直接用VBA运行,对两个名称不确定(即为动态工作薄)的工作薄间的数据进行更新或处理呢?
我目前面临的问题是这样的,看能否帮忙解决:
两个新建的工作薄（如：sheet5和sheet8)里面都有粘贴上 ...

按照下面的思路加工一下应该可以
Private Sub CommandButton1_Click()
Dim wb As Workbook, wb2 As Workbook
Set wb = ThisWorkbook
Do Until ActiveWorkbook.Name <> wb.Name
DoEvents
Loop
Set wb2 = ActiveWorkbook
MsgBox wb2.Name '新选择的工作簿名称
End Sub
说明：上面的代码只能一次性点击需要选择的工作簿。可以改进一下实现多次选择

linli714 · 发表于 2010-8-16 13:44

谢谢，学习啊．

stephen1707 · 发表于 2010-8-23 09:52

以后复核数据就不用那么麻烦，很实用！

huangjh1980 · 发表于 2010-8-23 11:17

xuexi xue xi

liaochunwei · 发表于 2010-8-23 12:50

日后学习，高手中的高手，

zid0000 · 发表于 2010-8-27 12:21

来晚了不知道还能否收藏

蔚然 · 发表于 2010-10-15 12:59

先感谢再
学习

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

[原创][分享]双表核对工具(最新更新提速+多列)

很实用的工具

回复 1楼 Moneky 的帖子

浏览过的版块

[原创][分享]双表核对工具(最新更新 提速+多列)

很实用的工具

回复 1楼 Moneky 的帖子

浏览过的版块

[原创][分享]双表核对工具(最新更新提速+多列)