Возможно, вы захотите взглянуть на использование моникера службы WCF, который позволяет вам вызывать службу WCF из VBA, не устанавливая ничего на клиентском компьютере Excel, кроме .NET Framework.
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/"""
Dim service1 As Object
Set service1 = GetObject(addr)
MsgBox service1.GetData(12)
Я выписал полный пошаговый пример .
/ Damian