Как предоставить класс C# модулю VBA в надстройке уровня документа?

вам нужно будет создать открытый интерфейс, чтобы предоставить класс VBA, это работает для меня как надстройка уровня документа.

1. откройте новую книгу Excel и скопируйте следующее В модуль

   Sub CallVSTOMethod()
   Dim dt As Date
   Dim VSTOSheet1 As DocLevelAddin.Sheet1
       Set VSTOSheet1 = GetManagedClass(Sheet1)
       dt = VSTOSheet1.GetDatePickerVal
   End Sub
   

2. сохранить Excel как " TestProj.файл xlsm" и "закрыть".

3. откройте VS, новый проект, книгу Excel 20xx и назовите проект "DocLevelAddin"
4. в Мастере выберите Копировать существующий документ и выберите недавно созданная книга " TestProj.файл xlsm"

5. в Excel Sheet1 добавьте элемент управления DateTimePicker на лист из WIHIN VS, дважды щелкните, чтобы создать событие ValueChanged и обновить код в Sheet1.cs читать

   private DateTime dtVal;
   private void dateTimePicker1_ValueChanged(object sender, EventArgs e)
   {
       dtVal = dateTimePicker1.Value;
   }
   

6. все еще в Sheet1.cs, добавьте открытый метод для возврата dtVal

   public DateTime GetDatePickerVal()
   {
       return dtVal;
   }
   

7. также добавьте следующее В Лист1.cs

   protected override object GetAutomationObject()
   {
       return this;
   }
   

8. над открытым частичным классом Sheet1 в Лист1.cs добавьте следующее

   [System.Runtime.InteropServices.ComVisible(true)]
   [System.Runtime.InteropServices.ClassInterface( 
       System.Runtime.InteropServices.ClassInterfaceType.None)]
   

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

10. сделать интерфейс общедоступным и COM видимым

    [System.Runtime.InteropServices.ComVisible(true)]
    public interface ISheet1
    {
        DateTime GetDatePickerVal();
    }
    

11. дважды щелкните Лист1.cs, поэтому лист Excel виден. Выберите любую ячейку, чтобы открыть окно Свойства и их изменение ReferenceAssemblyFromVbaProject = true

12. в Excel вам может потребоваться перейти к настройкам Центра доверия и добавить папку VS Solution и вложенные папки в качестве надежного местоположения

13. запустите проект, и код в модуле Excel вернет dateTimepicker через открытый GetDatePickerVal метод.

Лист1.cs:

using System;
using System.Collections.Generic;
using System.Data;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Xml.Linq;
using Microsoft.Office.Tools.Excel;
using Microsoft.VisualStudio.Tools.Applications.Runtime;
using Excel = Microsoft.Office.Interop.Excel;
using Office = Microsoft.Office.Core;

namespace DocLevelAddin
{
    [System.Runtime.InteropServices.ComVisible(true)]
    [System.Runtime.InteropServices.ClassInterface(
        System.Runtime.InteropServices.ClassInterfaceType.None)]
    public partial class Sheet1 : DocLevelAddin.ISheet1
    {
        private void Sheet1_Startup(object sender, System.EventArgs e)
        {
        }

        private void Sheet1_Shutdown(object sender, System.EventArgs e)
        {
        }

        #region VSTO Designer generated code

        /// <summary>
        /// Required method for Designer support - do not modify
        /// the contents of this method with the code editor.
        /// </summary>
        private void InternalStartup()
        {
            this.dateTimePicker1.ValueChanged += new System.EventHandler(this.dateTimePicker1_ValueChanged);
            this.Startup += new System.EventHandler(this.Sheet1_Startup);
            this.Shutdown += new System.EventHandler(this.Sheet1_Shutdown);

        }

        #endregion

        private DateTime dtVal;
        private void dateTimePicker1_ValueChanged(object sender, EventArgs e)
        {
            dtVal = dateTimePicker1.Value;
        }

        public DateTime GetDatePickerVal()
        {
            return dtVal;
        }

        protected override object GetAutomationObject()
        {
            return this;
        }

    }
}

ISheet1.cs:

using System;
namespace DocLevelAddin
{
    [System.Runtime.InteropServices.ComVisible(true)]
    public interface ISheet1
    {
        DateTime GetDatePickerVal();
    }
}