VBA与C#的交互----在VBA中调用VSTO的函数

liucqa

http://msdn.microsoft.com/zh-cn/library/bb608613%28v=vs.100%29.aspx
参考上贴，抄袭了一个通过VBA调用VSTO(C#)函数的示例

Sheet1.cs中的代码

1. using System;
   
2. using System.Collections.Generic;
   
3. using System.Data;
   
4. using System.Linq;
   
5. using System.Text;
   
6. using System.Windows.Forms;
   
7. using System.Xml.Linq;
   
8. using Microsoft.Office.Tools.Excel;
   
9. using Microsoft.VisualStudio.Tools.Applications.Runtime;
   
10. using Excel = Microsoft.Office.Interop.Excel;
    
11. using Office = Microsoft.Office.Core;
    
12. 
    
13. namespace CallingCodeFromVBA
    
14. {
    
15.     //在 Sheet1 类声明的第一行前面应用下列特性。这些特性使类对于 COM 可见，但不生成类接口。
    
16.     [System.Runtime.InteropServices.ComVisible(true)]
    
17.     [System.Runtime.InteropServices.ClassInterface(
    
18.         System.Runtime.InteropServices.ClassInterfaceType.None)]
    
19.     public partial class Sheet1 : CallingCodeFromVBA.ISheet1
    
20.     {
    
21.         
    
22.          //下面是准备从文档的 VBA 代码中调用 的MyMsg函数。
    
23.         public void MyMsg(string msg)
    
24.         {
    
25.              MessageBox.Show(msg);         
    
26.         }
    
27. 
    
28.         //此方法将重写 GetAutomationObject() 方法，以返回 Sheet1 类的当前实例。
    
29.         protected override object GetAutomationObject()
    
30.         {
    
31.             return this;
    
32.         }
    
33. 
    
34.         private void Sheet1_Startup(object sender, System.EventArgs e)
    
35.         {
    
36.         }
    
37. 
    
38.         private void Sheet1_Shutdown(object sender, System.EventArgs e)
    
39.         {
    
40.         }
    
41. 
    
42.         #region VSTO 设计器生成的代码
    
43. 
    
44.         /// <summary>
    
45.         /// 设计器支持所需的方法 - 不要
    
46.         /// 使用代码编辑器修改此方法的内容。
    
47.         /// </summary>
    
48.         private void InternalStartup()
    
49.         {
    
50.             this.Startup += new System.EventHandler(Sheet1_Startup);
    
51.             this.Shutdown += new System.EventHandler(Sheet1_Shutdown);
    
52.         }
    
53. 
    
54.         #endregion
    
55. 
    
56.     }
    
57. }

复制代码

ISheet1.cs中的代码

1. using System;
   
2. namespace CallingCodeFromVBA
   
3. {
   
4.     //添加
   
5.     [System.Runtime.InteropServices.ComVisible(true)]
   
6.     //此代码使 ISheet1 接口成为公共接口，并且应用 ComVisibleAttribute 特性以使该接口对于 COM 可见。
   
7.     public interface ISheet1
   
8.     {
   
9.         void MyMsg(string msg);
   
10.     }
    
11. }
    

复制代码

将 Sheet1 宿主项的“ReferenceAssemblyFromVbaProject”属性设置为“True”。
该设置会在Excel文件中增加对VSTO函数所在文件的引用

在模块1中使用VSTO函数
Sub CallVSTOMethod()
    Dim VSTOSheet1 As CallingCodeFromVBA.Sheet1
    Set VSTOSheet1 = GetManagedClass(Sheet1)
    Call VSTOSheet1.MyMsg("hello")
End Sub

工程文件
CallingCodeFromVBA.rar (861.34 KB, 下载次数: 209)

2012-11-19 13:49 上传

点击文件名下载附件

发布的文件
publish.rar (379.36 KB, 下载次数: 139)

2012-11-19 13:49 上传

点击文件名下载附件

liucqa

使用发布的setup安装之后，你可以在机器的任何位置运行.xlsm文件，引用中的信息是在注册表中记录的。
引用的文件在C:\Users\Charltsing\AppData\Local\Apps\2.0\目录里面可以找到

安装之后的文件位置



HKEY_USERS\S-1-5-21-1772528870-2292866102-2639753598-1000\Software\Classes\SOFTWARE\Microsoft\Windows\CurrentVersion\Deployment\SideBySide\2.0\Components



HKEY_CURRENT_USER\Software\Microsoft\VSTA\Solutions\ffe865c9-a8a2-4a9b-adf0-51e1eb68dca1


安装之后的注册表信息，注意那个PublicKeyToken=800ce568bcd031d1，与安装在C:\Users\Charltsing\AppData\Local\Apps\2.0\A1Z0ZEYE.Q41\L7V3NW7P.NDR里面的文件是对应的





用Total Uninstall监控得到的。

liucqa

如果你的机器没有安装.Net 4.0和VSTO运行库，执行发布文件安装的时候，会自动下载上图的内容






总体来看，用VSTO4.0做出来的东东，发布还是很方便的

wqfzqgk

这个注册表不全

doryan

嗯 这个和发布dll在VBA中使用非常相似...
对了 在VBA中引用是自动引用吗? 改引用在其他EXCEL文件中是否可以被引用 还有就是 比如
Call VSTOSheet1.MyMsg("hello")
在代码编写的时候 打出 '点' 的时候会自动列出成员吗?

.....目前在公司 无法试验 麻烦楼主下
我对这个比较感兴趣
另外感谢分享检测安装时注册表变化的软件

liucqa

doryan 发表于 2012-11-20 09:12
嗯 这个和发布dll在VBA中使用非常相似...
对了 在VBA中引用是自动引用吗? 改引用在其他EXCEL文件中是否可以 ...

在VBA中引用是自动引用吗? 改引用在其他EXCEL文件中是否可以被引用
答：引用是由VSTO的ReferenceAssemblyFromVbaProject在属性发生变化时，自动写入到XLSM里面的。

D:\Test Code\CallingCodeFromVBA\CallingCodeFromVBA\{1BF669DD-3D96-409D-BD16-1AD130D907E7}
引用地址格式如上，谁能解释一下呢？

这个CLSID在AssemblyInfo.cs文件中定义
// 如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID
[assembly: Guid("1bf669dd-3d96-409d-bd16-1ad130d907e7")]

         

1. private void ThisWorkbook_Startup(object sender, System.EventArgs e)
   
2.         {
   
3.             System.Reflection.Assembly ass = System.Reflection.Assembly.GetExecutingAssembly();
   
4.             //得到当前这个Assembly
   
5. 
   
6.             Guid id = ass.ManifestModule.ModuleVersionId;
   
7.             //得到一个Guid的版本号，但好像不是AssemblyInfo里写的那个
   
8. 
   
9.             object[] attrs = ass.GetCustomAttributes(typeof(System.Runtime.InteropServices.GuidAttribute), false);
   
10.             Guid AssemblyInfoid = new Guid(((System.Runtime.InteropServices.GuidAttribute)attrs[0]).Value);
    
11.             //这个得到的就是AssemblyInfo里的那个了
    
12. 
    
13.             MessageBox.Show(id.ToString());
    
14.             MessageBox.Show(AssemblyInfoid.ToString());
    
15.         }

复制代码

Call VSTOSheet1.MyMsg("hello")，在代码编写的时候 打出 '点' 的时候会自动列出成员吗?
答：如果引用正确的话，会自动列出成员。

liucqa

ReferenceAssemblyFromVbaProject

当所有宿主项 ReferenceAssemblyFromVbaProject 属性在 Visual Basic 或 Visual C# 项目中设置为 True时， Visual Studio 将执行下列任务:

    它在程序集生成自定义项程序集的类型库并嵌入类型库。

    它引用添加到 VBA 项目的以下类型库文档中:

        您的自定义项程序集的类型库。

        for Office execution engine 9.0 的 Microsoft Visual Studio 工具类型库。 此类型库。 Visual Studio Tools for Office Runtime中。

当 ReferenceAssemblyFromVbaProject 属性重新设置为 False时， Visual Studio 将执行下列任务:

    它移除类型库文档中的 VBA 项目引用。

    它从程序集中移除嵌入的类型库。

doryan

liucqa 发表于 2012-11-20 10:15
ReferenceAssemblyFromVbaProject

当所有宿主项 ReferenceAssemblyFromVbaProject 属性在 Visual Basic  ...

奶奶的 学门新技术真有难度啊
搞不定啊 明天卸了VS08和Office2003 两个Office真的很容易出问题



我这没有那个属性的设置...03中有 但是03的不能修改...

wsunday

打包成msi安装包后，安装的时候提示，    不能注册模块 XXX.TLB   请问是什么问题？

VBA万岁

Mark......