VSTO 學習筆記（十二）自定義公式與Ribbon

這幾天工作中在開發一個Excel插件，包含自定義公式，根據條件從數據庫中查詢結果。這次我們來做一個簡單的測試，達到類似的目的。

即在Excel 2010中添加一個Ribbon，包含4個自定義公式：僅僅是示例公式加減乘除。

最終效果：

測試代碼下載

1、解決方案包含兩個項目：

ExcelAddIn：Excel 插件

ExcelUDF：Excel 自定義公式

2、首先創建一個Excel 2010 Add-in項目：

3、添加一個可視化Ribbon：

4、在Ribbon的設計視圖中，設置下RibbonTab的屬性：

有個ControlIdType屬性，當設置為Custom時，此Ribbon顯示為Office中獨立的一項；當設置為Office時，此Ribbon作為Add-In中的一項出現。

5、在MyRibbon中添加一個Menu，在其中放置四個按鈕：

6、創建一個類庫項目：

7、編寫加減乘除四個函數和COM注冊、反注冊函數：

View Code

using System;
using System.Runtime.InteropServices;
using Microsoft.Win32;

namespace ExcelUDF
{
    [Guid("E72F44C7-DD4A-4FA2-BC32-4EA9925749DB")]
    [ClassInterface(ClassInterfaceType.AutoDual)]
    [ComVisible(true)]
    public class ExcelUDF
    {
        public int Add(int a, int b)
        {
            return a + b;
        }

        public int Subtract(int a, int b)
        {
            return a - b;
        }

        public int Multiply(int a, int b)
        {
            return a * b;
        }

        public int Divide(int a, int b)
        {
            return a / b;
        }

        #region COM Related

        [ComRegisterFunction]
        public static void RegisterFunction(Type type)
        {
            Registry.ClassesRoot.CreateSubKey(GetSubKeyName(type, "Programmable"));
            var key = Registry.ClassesRoot.OpenSubKey(GetSubKeyName(type, "InprocServer32"), true);
            key.SetValue("", Environment.SystemDirectory + @"\mscoree.dll", RegistryValueKind.String);
        }

        [ComUnregisterFunction]
        public static void UnregisterFunction(Type type)
        {
            Registry.ClassesRoot.DeleteSubKey(GetSubKeyName(type, "Programmable"), false);
        }

        private static string GetSubKeyName(Type type, string subKeyName)
        {
            var s = new System.Text.StringBuilder();
            s.Append(@"CLSID\{");
            s.Append(type.GUID.ToString().ToUpper());
            s.Append(@"}\");
            s.Append(subKeyName);
            return s.ToString();
        }
        #endregion
    }

8、我安裝的是Excel x64，需要手動注冊自定義公式的程序集，為此在項目屬性中的Build Events中寫入批處理腳本來自動注冊：

%windir%\Microsoft.NET\Framework64\v4.0.30319\regasm /codebase "$(TargetPath)"

這樣在每次編譯成功后就會自動注冊該自定義公式。

9、在生成管理器中配置為 x64：

10、在Ribbon項目中添加調用自定義公式的代碼：

View Code

using Microsoft.Office.Tools.Ribbon;

namespace ExcelAddIn
{
    public partial class RibbonDemo
    {
        private void RibbonDemo_Load(object sender, RibbonUIEventArgs e)
        {

        }

        private void btnAdd_Click(object sender, RibbonControlEventArgs e)
        {
            Globals.ThisAddIn.Application.ActiveCell.Formula = "=Add()";
        }

        private void btnSubtract_Click(object sender, RibbonControlEventArgs e)
        {
            Globals.ThisAddIn.Application.ActiveCell.Formula = "=Subtract()";
        }

        private void btnMultiply_Click(object sender, RibbonControlEventArgs e)
        {
            Globals.ThisAddIn.Application.ActiveCell.Formula = "=Multiply()";
        }

        private void btnDivide_Click(object sender, RibbonControlEventArgs e)
        {
            Globals.ThisAddIn.Application.ActiveCell.Formula = "=Divide()";
        }
    }

11、修改Ribbon項目屬性，將 Excel設置為啟動的擴展程序：