[已解决]在PERSONAL.XLS中编写的宏，如何能读取当前打开的其他工作簿？

jason5800295

RT
就是说能不能编写一个vba，使其能给所有工作簿使用，并且能够读取每个打开的工作簿。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-20 17:59

4楼的方法对了，你只要注意前缀就成了。
ACTIVEWORKBOOK,ACTIVESHEET,ACTIVECELL

跳转到最佳答案楼层

妞叫七七

并且能够读取每个打开的工作簿? 读取什么? 怎么读?

jason5800295

妞叫七七 发表于 2013-6-20 17:05
并且能够读取每个打开的工作簿? 读取什么? 怎么读?

就是说我在PERSONAL.XLS里编写的一个VBA，里面有一段是
    Dim wbn As Workbook
    Dim wsn As Worksheet
    Set wbn = ThisWorkbook
    Set wsn = wbn.Worksheets(1)
但是读取的PERSONAL.XLS，怎么样编写可以在我打开其他任意工作簿的时候给wbn赋值？

Dj_soo

activeworkbook

hwc2ycy

4楼的方法对了，你只要注意前缀就成了。
ACTIVEWORKBOOK,ACTIVESHEET,ACTIVECELL

jason5800295

hwc2ycy 发表于 2013-6-20 17:59
4楼的方法对了，你只要注意前缀就成了。
ACTIVEWORKBOOK,ACTIVESHEET,ACTIVECELL

这个如果不固定文件路径和文件名一样可以激活吗？请详细的说说...

jason5800295

Dj_soo 发表于 2013-6-20 17:10
activeworkbook

这个如果不固定文件路径和文件名一样可以激活吗？请详细的说说...
前缀加什么？

hwc2ycy

只要你的打开了，激活当前的，最好是添加菜单栏，这样比较简单。

jason5800295

hwc2ycy 发表于 2013-6-20 22:12
只要你的打开了，激活当前的，最好是添加菜单栏，这样比较简单。

这位大神，能稍微给我点例子吗？应该用什么格式？我是新手{:021:}

hwc2ycy

你做成加载宏应该更好。
因为放在个人宏里的话，指定宏的时候要加工程名。
而放在加载宏里则不需要加模块名（当然，如果过程名有相同的例外）。