关于vba执行过程中需要手动指定不同的工作薄的单元格复制数据后返回的操作

bj917

之前用vba写了个模拟vlookup的程序，只能支持在相同的工作薄中操作，但实际中跨工作薄操作的情况还是比较多的，最近对源程序修改了一下，可以支持跨工作薄操作了。

vba操作过程通过inputbox，获取不同工作薄的单元格，但是点击确定后会返回之前的活动工作薄导致失败，也就是说活动工作薄还是之前的工作薄。
为了获取数据，必须能够切换到该工作薄中。

Set f = Application.InputBox("请选中第二张表比对列任一单元格！", "列的确定", , , , , , 8)
f是选中的单元格，
f.Parent.Name获取该工作表的名字，
dim  book_name_n
book_name_n=f.Parent.Parent.Name取该工作薄的名字
Workbooks(book_name_n).Activate激活该工作薄。

所以，在涉及切换工作薄是，可以通过以上操作，保存工作薄名，其它工作薄操作完成后，再通过工作薄名返回（激活）即可进行下一步操作。

ykcbf1100

问题应该简单，但没有附件就不太好说。

半百

ykcbf1100 发表于 2023-5-5 14:39
问题应该简单，但没有附件就不太好说。

不是求助，是分享

ykcbf1100

半百 发表于 2023-5-5 15:37
不是求助，是分享

，看错了。

用VBA的话，不用这么复杂吧，用数组解决问题啊。

bj917

原贴
https://club.excelhome.net/thread-1554821-1-1.html