VB制作的EXCEL加载宏.DLL如何获取当前EXCEL文件的路径及名称

Question

我用VB制作的EXCEL加载宏.DLL，就是打开EXCEL时就可以加载这个宏
如何如何获取当前EXCEL文件的全路径及名称？
谢谢了。
如何获取当前EXCEL文件的版本。和获取当前EXCEL文件的全路径及名称

Answer 1

设计器代码，主要是open 事件代码。

Public WithEvents XlApp As Excel.Application

Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)
    Set XlApp = Application
End Sub

Private Sub AddinInstance_OnDisconnection(ByVal RemoveMode As AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)
    Set XlApp = Nothing
End Sub

Private Sub XlApp_WorkbookOpen(ByVal Wb As Excel.Workbook)
    路径 = Wb.FullName
    名称 = Wb.Name
End Sub

追问

如何获取当前EXCEL的版本呀？谢谢您啦

追答

xlapp.version

追问

能否提供这整个代码的源文件？ 谢谢你了。或者告诉我你的秋秋号。我加你秋秋号聊我的是281874515

追答追问

没有反应的？ 我用的OFFICE 2010 

确定是成功加载宏了。但为什么没弹出对话框来？

强烈要求加你Q请教呀我的是281874515。超过3次追踪系统要白收财富币的。我把多收的送给你也比送给系统强呀。呵呵