高人帮忙看看vsto的自定义函数

kof369

按照高人的例子做联系，在vs2010里面自定义函数可以生成，但是在excel调用的时候看不到，不清楚是什么问题，但是是因为

在弹出的窗口中点击编译页面，勾起“为

COM

互操作注册”，见下图

在弹出的窗口中点击编译页面，勾起“为

COM

互操作注册”，见下图

“在弹出的窗口中点击编译页面，勾起“为COM互操作注册”的原因吗？，代码如下

Imports System
Imports System.Runtime.InteropServices
Imports Microsoft.Win32
Imports Excel = Microsoft.Office.Interop.Excel
Imports System.Text
<ClassInterface(ClassInterfaceType.AutoDual), ComVisible(True)>
<Guid("207DF2C7-9773-4FB1-A50C-2A2515C3F8FA")>
Public Class Class1
    Public Function MYFUNCTION(ByVal number1 As Double, ByVal number2 As Double) As Double
        Return number1 * number2
    End Function
    <ComRegisterFunctionAttribute()> Public Shared Sub RegisterFunction(ByVal Type As Type)
        Dim rk As RegistryKey
        Registry.ClassesRoot.CreateSubKey(GetSubKeyName(Type, "Programmable"))
        rk = Registry.ClassesRoot.OpenSubKey(GetSubKeyName(Type, "InprocServer32"), True)
        rk.SetValue("", Environment.SystemDirectory + "\mscoree.dll", RegistryValueKind.String)
    End Sub
    <ComUnregisterFunctionAttribute()> Public Shared Sub UnregisterFunction(ByVal Type As Type)
        Registry.ClassesRoot.DeleteSubKey(GetSubKeyName(Type, "Programmable"), False)
    End Sub
    Private Shared Function GetSubKeyName(ByVal Type As Type, ByVal SubKeyName As String) As String
        Dim b As StringBuilder = New StringBuilder
        b.Append("CLSID\{")
        b.Append(Type.GUID.ToString().ToUpper())
        b.Append("}\")
        b.Append(SubKeyName)
        GetSubKeyName = b.ToString()
    End Function
End Class

wyqzm

试试注册dll，

x86版本
%windir%\Microsoft.NET\Framework\v4.0.30319\regasm.exe /codebase "你的dll名字"

x64版本
%windir%\Microsoft.NET\Framework64\v4.0.30319\regasm.exe /codebase "你的dll名字"

pntming

如果是win7系统，把COM互操作注册去掉，之后按2楼的方法注册，点开发工具—加载项—自动化—点击 “你的vs项目名—class1”那行，在可用宏勾选，确定，点击函数Fx—在常用函数下就可以见到自定义的函数了.另<Guid("207DF2C7-9773-4FB1-A50C-2A2515C3F8FA")>这行代码是为dll指定注册表的值，建议删除。不删除的话不要复制别人的。