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

jason5800295

hwc2ycy 发表于 2013-6-21 09:58
你做成加载宏应该更好。
因为放在个人宏里的话，指定宏的时候要加工程名。
而放在加载宏里则不需要加模块 ...

这个加载宏怎么做啊？我用的是这个
Private Sub Workbook_AddinInstall()
    On Error Resume Next
    '新建菜单
    With Application.CommandBars(1).Controls.Add(Type:=msoControlPopup)
        .Caption = "测试(&T)"
        With .Controls.Add(Type:=msoControlButton)
            .Caption = "标样读取"
            .OnAction = "模块11.标样"
        End With
    End With
End Sub
请问这样可以吗？

hwc2ycy

加载宏你在EXCEL里添加模块写入代码，然后保存格式选加载宏格式
XLA,XLAM
然后 开发工具，加载宏，在对话框中浏览你的加载宏文件。

你写的这两个事件非常有用，加载宏文件在加载时就会运行Workbook_AddinInstall
你在代码里添加工具栏菜单就对了。

jason5800295

hwc2ycy 发表于 2013-6-21 10:52
加载宏你在EXCEL里添加模块写入代码，然后保存格式选加载宏格式
XLA,XLAM
然后 开发工具，加载宏，在对话 ...

非常感谢！