“未找到接口”在 WCF Moniker 中，无需注册 excel

Question

我正在尝试将 Excel 连接到 WCF 服务，但我似乎无法让一个简单的案例工作...当我尝试在 Excel 中创建代理时，出现无效语法错误。我已将 Visual Studio 调试器附加到 Excel，并发现真正的错误是“找不到接口”。我知道该服务有效，因为 Visual Studio 创建的测试客户端没问题...所以问题出在 VBA 名称字符串中。

我希望找到以下两件事之一：

1）对我的名字字符串进行更正，使这项工作正常进行，或者

2）要下载一个现有的示例项目，其中包含可以正常工作的主机和客户端的源代码。

这是我的 VBA 客户端的代码：

Dim addr As String
addr = "service:mexAddress=net.tcp://localhost:7891/Test/WcfService1/Service1/mex, "
addr = addr + "address=net.tcp://localhost:7891/Test/WcfService1/Service1/, "
addr = addr + "contract=IService1, contractNamespace=http://tempuri.org, "
addr = addr + "binding=NetTcpBinding_IService1, bindingNamespace=""http://tempuri.org"""

MsgBox (addr)

Dim service1 As Object
Set service1 = GetObject(addr)

MsgBox service1.Test(12)

我有以下服务：

[ServiceContract]
public interface IService1
{
    [OperationContract]
    string GetData(int value);
}

public class Service1 : IService1
{
    public string GetData(int value)
    {
        return string.Format("You entered: {0}", value);
    }
}

它具有以下配置文件：

<?xml version="1.0" encoding="utf-8" ?>
<configuration>

  <system.web>
    <compilation debug="true" />
  </system.web>
  <!-- When deploying the service library project, the content of the config file must be added to the host's 
  app.config file. System.Configuration does not support config files for libraries. -->
  <system.serviceModel>
    <services>
      <service behaviorConfiguration="WcfService1.Service1Behavior"
        name="WcfService1.Service1">
        <endpoint address="" binding="netTcpBinding" bindingConfiguration=""
          contract="WcfService1.IService1">
          <identity>
            <dns value="localhost" />
          </identity>
        </endpoint>
        <endpoint address="mex" binding="mexTcpBinding" bindingConfiguration=""
          contract="IMetadataExchange" />
        <host>
          <baseAddresses>
            <add baseAddress="net.tcp://localhost:7891/Test/WcfService1/Service1/" />
          </baseAddresses>
        </host>
      </service>
    </services>
    <behaviors>
      <serviceBehaviors>
        <behavior name="WcfService1.Service1Behavior">
          <serviceMetadata httpGetEnabled="false" />
          <serviceDebug includeExceptionDetailInFaults="false" />
        </behavior>
      </serviceBehaviors>
    </behaviors>
  </system.serviceModel>

</configuration>

---

编辑：

对我有用的更新后的名字如下

Dim addr As String
addr = "service:mexAddress=""net.tcp://localhost:7891/Test/WcfService1/Service1/Mex"", "
addr = addr + "address=""net.tcp://localhost:7891/Test/WcfService1/Service1/"", "
addr = addr + "contract=""IService1"", contractNamespace=""http://tempuri.org/"", "
addr = addr + "binding=""NetTcpBinding_IService1"", bindingNamespace=""http://tempuri.org/"""

Answer 1

我将创建一个客户端作为 .NET 对象，将其注册为 COM 对象并通过 COM

UPDATE 从 VBA 访问它：
我找到这篇文章：http://msdn.microsoft.com/en-us /library/ms752245.aspx

似乎要使用名字对象，您必须生成一个客户端，然后使用 COM 注册它，然后使用它的 GUID 作为您的类型，而不是您拥有的类型

Answer 2

我能够通过在名字字符串上的一些关键位置添加一些引号来解决这个问题...不幸的是，将调试器附加到 Excel 不会给您提供有用的反馈，因此修复它是一个猜测和检查的练习。在 VBA 中，名称中的每个字符串都需要用双引号 ("") 括起来。此外，mex 地址中的术语“mex”必须大写，即使我在合同中指定地址为小写。去算算吧。