編寫VB AddIn工程

新建AddIn工程

在connect.dsr模塊中有一行
    Set mcbMenuCommandBar = AddToAddInCommandBar("My AddIn")
定義了addin出現在菜單中的位置

設置Application爲VisualBasic,做VB的AddIn

在frmaddin.frm模塊中設計窗體並定義操作
模塊使用了全局對象VBInstance
    Public VBInstance As VBIDE.VBE

VBIDE的簡要模型如下

VBIDE:
  VBE:VBInstance
    VBProjects
      VBProject
        VBComponents
          VBComponent
            CodeMudule
              CodePane
            Designer
              VBControls
                VBControl
                  Properties
                    Propertie
                      name
                      value

 

顯示一個代碼窗口
VBInstance.VBProjects.Item(1).VBComponents(1).CodeModule.CodePane.Show

獲得窗體上一部件的屬性
Dim f As VBForm
Set f = VBInstance.VBProjects.Item(1).VBComponents(1).Designer
Debug.Print f.VBControls.Item(1).Properties.Item(1).Value

 

生成dll文件，並註冊。