VBA 调用VSTO 外接程序中类方法代码

ty1216jhy

通过复制了该链接

https://docs.microsoft.com/zh-cn ... est-the-vsto-add-in
可以操作Excel工作表和显示窗体控件，不明觉厉。

类：AddInUtilities.cs中的代码

1. using System.Data;
   
2. using System.Runtime.InteropServices;
   
3. using Excel = Microsoft.Office.Interop.Excel;
   
4. using System.Windows.Forms;
   
5. 
   
6. namespace ExcelImportData
   
7. {
   
8. 
   
9.         [ComVisible(true)]
   
10.         public interface IAddInUtilities
    
11.         {
    
12.             void ImportData();
    
13.             void showform();
    
14.         }
    
15. 
    
16.         [ComVisible(true)]
    
17.         [ClassInterface(ClassInterfaceType.None)]
    
18.         public class AddInUtilities : IAddInUtilities
    
19.         {
    
20.             public void ImportData()
    
21.             {
    
22.                 Excel.Worksheet activeWorksheet = Globals.ThisAddIn.Application.ActiveSheet as Excel.Worksheet;
    
23. 
    
24.                 if (activeWorksheet != null)
    
25.                 {
    
26.                     Excel.Range range1 = activeWorksheet.get_Range("A1", System.Type.Missing);
    
27.                     range1.Value2 = "This is my data";
    
28.                 }
    
29.             }
    
30. 
    
31.             public void showform()
    
32.             {
    
33.                 MessageBox.Show("显示窗体", "提示",MessageBoxButtons.OK,MessageBoxIcon.Information);
    
34.                 NewForm f = new NewForm();
    
35.                 f.Show();
    
36.             }
    
37.         }
    
38.     }

复制代码

ThisAddIn.cs中的代码：

1. using System;
   
2. using System.Collections.Generic;
   
3. using System.Linq;
   
4. using System.Text;
   
5. using System.Xml.Linq;
   
6. using Excel = Microsoft.Office.Interop.Excel;
   
7. using Office = Microsoft.Office.Core;
   
8. using Microsoft.Office.Tools.Excel;
   
9. 
   
10. namespace ExcelImportData
    
11. {
    
12. 
    
13.     public partial class ThisAddIn
    
14.     {
    
15.         private AddInUtilities utilities;
    
16. 
    
17.         protected override object RequestComAddInAutomationService()
    
18.         {
    
19.             if (utilities == null)
    
20.                 utilities = new AddInUtilities();
    
21. 
    
22.             return utilities;
    
23.         }
    
24.         private void ThisAddIn_Startup(object sender, System.EventArgs e)
    
25.         {
    
26.         }
    
27. 
    
28.         private void ThisAddIn_Shutdown(object sender, System.EventArgs e)
    
29.         {
    
30.         }
    
31. 
    
32.         #region VSTO 生成的代码
    
33. 
    
34.         /// <summary>
    
35.         /// 设计器支持所需的方法 - 不要修改
    
36.         /// 使用代码编辑器修改此方法的内容。
    
37.         /// </summary>
    
38.         private void InternalStartup()
    
39.         {
    
40.             this.Startup += new System.EventHandler(ThisAddIn_Startup);
    
41.             this.Shutdown += new System.EventHandler(ThisAddIn_Shutdown);
    
42.         }
    
43.         
    
44.         #endregion
    
45.     }
    
46. }

复制代码

VBA中两个调用代码：

1. Private Sub CommandButton1_Click()
   
2.     Dim addIn As COMAddIn
   
3.     Dim automationObject As Object
   
4.     Set addIn = Application.COMAddIns("ExcelImportData")
   
5.     Set automationObject = addIn.Object
   
6.     automationObject.ImportData
   
7. End Sub
   
8. 
   
9. Private Sub CommandButton2_Click()
   
10.     Dim addIn As COMAddIn
    
11.     Dim automationObject As Object
    
12.     Set addIn = Application.COMAddIns("ExcelImportData")
    
13.     Set automationObject = addIn.Object
    
14.     automationObject.showform
    
15. End Sub

复制代码

774115495

直接.Net类库接口就行，哪里还需要外家vsto

ty1216jhy

http://www.cnblogs.com/weixing/p/3358740.html