Дополнение сборки для IDE VBA с помощью VB.NET

Возможно, вам потребуется написать надстройку com с использованием интерфейса IDTExtensibility2, выберите общий шаблон проекта надстройки из нового проекта.

РЕДАКТИРОВАТЬ

В противном случае, чтобы создать это дополнение с нуля, вам придется необходимо сделать следующее:

1. Создать новую библиотеку классов проекта
2. Добавить ссылки на «Расширяемость», она должна быть в списке. Возможно, вам потребуется загрузить PIA для вашей версии офиса. (и, возможно, VSTO, но я не уверен в этом вопросе)
3. Добавьте ссылки на «Microsoft.Vbe.Interop», снова должны быть с PIA.
4. Установите флажок «Зарегистрироваться для Com Interop» на вкладке свойств.
5. ДОПОЛНИТЕЛЬНО На вкладке параметров отладки измените запуск внешней программы и введите путь к exel exe в папке программных файлов (если это предназначено для Excel), это позволяет отладить проект.
6. ДОПОЛНИТЕЛЬНО В параметрах команды добавьте запись на лист или документ Word, который будет отображать диалоговое окно надстройки с использованием макроса при запуске, для разработки это имеет смысл упростить процесс отладки. например, «C: \ vbe.xlsm»
7. ДОПОЛНИТЕЛЬНО Также установите путь запуска к каталогу рабочего листа, например, «C: \»
8. Реализуйте интерфейс «IDTExtensibility2», найденный в сборке «Расширяемость».
9. Назовите этот класс «Connect» (это просто предпочтение)
10. Присвойте классу следующие атрибуты
11. ДОПОЛНИТЕЛЬНО В параметрах команды добавьте запись на лист или документ Word, который будет отображать диалоговое окно надстройки с помощью макроса при запуске, для разработки это имеет смысл упростить процесс отладки. например, «C: \ vbe.xlsm»
12. ДОПОЛНИТЕЛЬНО Также установите путь запуска к каталогу рабочего листа, например, «C: \»
13. Реализуйте интерфейс «IDTExtensibility2», найденный в сборке «Расширяемость».
14. Назовите этот класс «Connect» (это просто предпочтение)
15. Присвойте классу следующие атрибуты
16. ДОПОЛНИТЕЛЬНО В параметрах команды добавьте запись на лист или документ Word, который будет отображать диалоговое окно надстройки с помощью макроса при запуске, для разработки это имеет смысл упростить процесс отладки. например, «C: \ vbe.xlsm»
17. ДОПОЛНИТЕЛЬНО Также установите путь запуска к каталогу рабочего листа, например, «C: \»
18. Реализуйте интерфейс «IDTExtensibility2», найденный в сборке «Расширяемость».
19. Назовите этот класс «Connect» (это просто предпочтение)
20. Присвойте классу следующие атрибуты

[ComVisible (правда), Guid ("YourGeneratedGuid"), ProgId ("YourAddinName.Connect")]

Вот реализация, с которой можно начать. Сначала замените "YourAddinName" на свое AppName и создайте Guid для "YourGeneratedGuid". Вам нужно будет зарегистрировать надстройку в правильном месте реестра, просмотрите разделы реестра, которые следуют, чтобы получить представление, а также замените некоторые переменные в разделах реестра.

Imports System
Imports System.Drawing
Imports System.Linq
Imports System.Runtime.InteropServices
Imports Extensibility
Imports Microsoft.Vbe.Interop

Namespace VBEAddin


''' <summary>
''' The object for implementing an Add-in.
''' </summary>
''' <seealso class='IDTExtensibility2' />
<Guid("YourGeneratedGuid"), ProgId("YourAddinName.Connect")> _ 
Public Class Connect
    Implements IDTExtensibility2
    Private _application As VBE 'Interop VBE application object


    #Region "IDTExtensibility2 Members"

    ''' <summary>
    ''' Implements the OnConnection method of the IDTExtensibility2 interface.
    ''' Receives notification that the Add-in is being loaded.
    ''' </summary>
    ''' <param term='application'>
    ''' Root object of the host application.
    ''' </param>
    ''' <param term='connectMode'>
    ''' Describes how the Add-in is being loaded.
    ''' </param>
    ''' <param term='addInInst'>
    ''' Object representing this Add-in.
    ''' </param>
    ''' <seealso class='IDTExtensibility2' />
    Public Sub OnConnection(ByVal application As Object, ByVal connectMode As ext_ConnectMode, ByVal addInInst As Object, ByRef [custom] As Array)
    _application = CType(Application,VBE)
    End Sub

    Private Sub onReferenceItemAdded(ByVal reference As Reference)
        'TODO: Map types found in assembly using reference.
    End Sub

    Private Sub onReferenceItemRemoved(ByVal reference As Reference)
        'TODO: Remove types found in assembly using reference.
    End Sub


    Private Sub BootAddin()
        'Detect change in active window. 
    End Sub

    ''' <summary>
    ''' Implements the OnDisconnection method of the IDTExtensibility2 interface.
    ''' Receives notification that the Add-in is being unloaded.
    ''' </summary>
    ''' <param term='disconnectMode'>
    ''' Describes how the Add-in is being unloaded.
    ''' </param>
    ''' <param term='custom'>
    ''' Array of parameters that are host application specific.
    ''' </param>
    ''' <seealso class='IDTExtensibility2' />
    Public Sub OnDisconnection(ByVal disconnectMode As ext_DisconnectMode, ByRef [custom] As Array)
    End Sub

    ''' <summary>
    ''' Implements the OnAddInsUpdate method of the IDTExtensibility2 interface.
    ''' Receives notification that the collection of Add-ins has changed.
    ''' </summary>
    ''' <param term='custom'>
    ''' Array of parameters that are host application specific.
    ''' </param>
    ''' <seealso class='IDTExtensibility2' />
    Public Sub OnAddInsUpdate(ByRef [custom] As Array)
    End Sub

    ''' <summary>
    ''' Implements the OnStartupComplete method of the IDTExtensibility2 interface.
    ''' Receives notification that the host application has completed loading.
    ''' </summary>
    ''' <param term='custom'>
    ''' Array of parameters that are host application specific.
    ''' </param>
    ''' <seealso class='IDTExtensibility2' />
    Public Sub OnStartupComplete(ByRef [custom] As Array)
        'Boot dispatcher

    End Sub


    ''' <summary>
    ''' Implements the OnBeginShutdown method of the IDTExtensibility2 interface.
    ''' Receives notification that the host application is being unloaded.
    ''' </summary>
    ''' <param term='custom'>
    ''' Array of parameters that are host application specific.
    ''' </param>
    ''' <seealso class='IDTExtensibility2' />
    Public Sub OnBeginShutdown(ByRef [custom] As Array)
    End Sub

    #End Region
End Class
End Namespace

Вот сценарий реестра .key для регистрации надстройки, обратите внимание, что вы потребуется изменить некоторые настройки, чтобы зарегистрировать его должным образом.

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\VBA\VBE\6.0\Addins\YourAddinName.Connect]
"CommandLineSafe"=dword:00000000
"Description"="Description for your new addin"
"LoadBehavior"=dword:00000000
"FriendlyName"="YourAddinName"


[HKEY_CLASSES_ROOT\CLSID\{YourGeneratedGuid}]
@="YourAddinName.Connect"

[HKEY_CLASSES_ROOT\CLSID\{YourGeneratedGuid}\Implemented Categories]

[HKEY_CLASSES_ROOT\CLSID\{YourGeneratedGuid}\InprocServer32]
@="mscoree.dll"
"ThreadingModel"="Both"
"Class"="YourAddinName.Connect"
"Assembly"="YourAssemblyNameFullTypeName"
"RuntimeVersion"="v2.0.50727"
"CodeBase"="file:///PathToAssembly"

[HKEY_CLASSES_ROOT\CLSID\{YourGeneratedGuid}\ProgId]
@="YourAddinName.Connect"

ПРИМЕЧАНИЕ токены YourGeneratedGuid должны иметь фигурные скобки {} и быть такими же, как Guid в атрибуте выше, токен " YourAssemblyNameFullTypeName "должно быть полным именем сборки, токен" YourAddinName.Connect "должен быть таким же, как ProgId, установленным в атрибуте выше.

СТОРОННЕЕ ПРИМЕЧАНИЕ

Также нашел это полезным, может сэкономить вам пару часов на поиск в Google.

'HKEY_CURRENT_USER\Software\Microsoft\VBA\6.0\Common
'FontFace=Courier New (STRING - Default if missing)
'FontHeight=10 (DWORD - Default if missing)