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

ganhaiqing

很实用的工具

然然

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

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

jiweixing

感谢楼主分享好东西！

Moneky

原帖由 然然 于 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

谢谢，学习啊．

stephen1707

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

huangjh1980

xuexi xue xi

liaochunwei

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

zid0000

来晚了不知道还能否收藏

蔚然

先感谢再
学习