VSTO入门问题集

VBA万岁

VBA万岁 发表于 2015-11-28 11:20
（四）如何签名？

之后VSTO便打开了如下对话框，可当我一 一打开对话框中的文件夹时，均显示“没有与搜索条件匹配的项”。请问该怎样选择密钥文件以为程序集签名？为何”为ClickOnce清单签名（M）“无法选择？

VBA万岁

VBA万岁 发表于 2015-11-25 15:23
（三）如何注册与注销？

regasm程序在哪个文件夹？输入注册语句只能手工从键盘上逐个输入字符，不可 ...

我用如下路径以管理员的身份打开cmd.exe，为什么这个文件不在“%windir%\Microsoft.NET\Framework\v4.0.30319”文件夹下？它是我需要注册的regasm程序吗？C:\Windows\System32\cmd.exe如下图：

VBA万岁

VBA万岁 发表于 2015-11-28 12:12
我用如下路径以管理员的身份打开cmd.exe，为什么这个文件不在“%windir%\Microsoft.NET\Framework\v4.0.3 ...

为什么不像第一个链接帖那样（如下图：）自动在cmd.exe文件中显示路径“%windir%\Microsoft.NET\Framework\v4.0.30319”？

excelhomesnake

VBA万岁 发表于 2015-11-28 12:21
为什么不像第一个链接帖那样（如下图：）自动在cmd.exe文件中显示路径“%windir%\Microsoft.NET\Framewor ...

不太明白.
如果你是需要强命名,在选择强名称密钥文件,的时候,就选择新建.
不过我之前好像了解到,如果本身是一个vsto项目,应该一开始,就默认生成了一个密钥了.

VBA万岁

excelhomesnake 发表于 2015-11-28 14:35
不太明白.
如果你是需要强命名,在选择强名称密钥文件,的时候,就选择新建.
不过我之前好像了解到,如果本 ...

我在cmd.exe文件中输入以下代码：

VBA万岁

excelhomesnake 发表于 2015-11-28 14:35
不太明白.
如果你是需要强命名,在选择强名称密钥文件,的时候,就选择新建.
不过我之前好像了解到,如果本 ...

回车后，cmd.exe显示如下错误。不知到底该怎样注册？

VBA万岁

VBA万岁 发表于 2015-11-28 16:27
回车后，cmd.exe显示如下错误。不知到底该怎样注册？

顺便帖上类库代码：

1. using System;
   
2. using System.Collections.Generic;
   
3. using System.Linq;
   
4. using System.Text;
   
5. using System.Runtime.InteropServices;
   
6. using Microsoft.Win32;
   
7. using Microsoft.Office.Interop.Excel;
   
8. 
   
9. namespace ExcelFunc
   
10. {
    
11.     [Guid("56f8f4f7-8123-446a-a197-85c173c0284f")]
    
12.     [ClassInterface(ClassInterfaceType.AutoDual), ComVisible(true)]
    
13.     public class Class1
    
14.     {
    
15.         #region COM Related
    
16.         [ComRegisterFunction]
    
17.         public static void RegisterFunction(Type type)
    
18.         {
    
19.             Registry.ClassesRoot.CreateSubKey(GetSubKeyName(type, "Programmable"));
    
20.             var key = Registry.ClassesRoot.OpenSubKey(GetSubKeyName(type, "InprocServer32"), true);
    
21.             key.SetValue("", Environment.SystemDirectory + @"\mscoree.dll", RegistryValueKind.String);
    
22.         }
    
23. 
    
24.         [ComUnregisterFunction]
    
25.         public static void UnregisterFunction(Type type)
    
26.         {
    
27.             Registry.ClassesRoot.DeleteSubKey(GetSubKeyName(type, "Programmable"), false);
    
28.         }
    
29. 
    
30.         private static string GetSubKeyName(Type type, string subKeyName)
    
31.         {
    
32.             var s = new System.Text.StringBuilder();
    
33.             s.Append(@"CLSID\{");
    
34.             s.Append(type.GUID.ToString().ToUpper());
    
35.             s.Append(@"}");
    
36.             s.Append(subKeyName);
    
37.             return s.ToString();
    
38.         }
    
39.         #endregion
    
40. 
    
41.         public string MyConcate(params Object[] values)
    
42.         {
    
43.             string iStr = "";
    
44.             Range iRng;
    
45.             for (int iStep = 0; iStep < values.Length; iStep++)
    
46.             {
    
47.                 if (values[iStep].ToString() == "System.__ComObject")
    
48.                 {
    
49.                     iRng = (Range)values[iStep];
    
50.                     if (iRng.Count > 1)
    
51.                     {
    
52.                         foreach (Range cRng in iRng)
    
53.                         {
    
54.                             iStr += Convert.ToString(cRng.Value);
    
55.                         }
    
56.                     }
    
57.                     else
    
58.                     {
    
59.                         iStr += Convert.ToString(iRng.Value);
    
60.                     }
    
61.                 }
    
62.                 else
    
63.                 {
    
64.                     iStr += values[iStep].ToString();
    
65.                 }
    
66.             }
    
67.             return iStr;
    
68.         }
    
69. 
    
70.     }
    
71. }
    

复制代码

VBA万岁

excelhomesnake 发表于 2015-11-28 14:35
不太明白.
如果你是需要强命名,在选择强名称密钥文件,的时候,就选择新建.
不过我之前好像了解到,如果本 ...

参照如下链接，调出Regasm.exe（程序集注册工具），并输入注册代码，却显示如下出错信息：
Regasm.exe（程序集注册工具）

VBA万岁

VBA万岁 发表于 2015-11-28 20:15
参照如下链接，调出Regasm.exe（程序集注册工具），并输入注册代码，却显示如下出错信息：
Regasm.exe（ ...

终于找问题所在了，只要将VSTO项目（ExcelFunc）保存，并得到其保存路径，然后再用它替代替88楼注册码中的引号部分即可。
至此，问题四已全部解决，附上源码如下：

VBA万岁

VBA万岁 发表于 2015-11-29 08:55
终于找问题所在了，只要将VSTO项目（ExcelFunc），并得到其保存路径，然后再用它替代替88楼注册码中的引 ...

顺便帖上效果截图：