2

可能重复：
如何从 Excel 2003 VBA 调用 WCF 客户端？

我想使用 VBA 代码从 Excel 中调用使用 WCF 开发的 Web 服务。我们应该怎么做 ？我已经尝试过该GetObject()方法，但在使用此方法时出现语法错误。我想在 Excel 中显示从 Web 服务获取的数据。请帮忙。数据合同如下：`

[DataContract] 
public class Data
{
    [DataMember]
    public int Id;
    [DataMember]
    public DateTime LockTime;
    [DataMember]
    public DateTime LoginTime;
    [DataMember]
    public DateTime LastDefenitionDate;
    [DataMember]
    public string NTLogin;
    [DataMember]
    public string SystemName;
}

服务合约如下：

` 

[ServiceContract]

interface IDataService
{
    [OperationContract]
    List<Data> GetData();
    [OperationContract]
    void SubmitData(Data data);
}

`

访问数据库的DataService如下：

`

[服务行为（InstanceContextMode=InstanceContextMode.Single）]

公共类数据服务：IDataService { 公共静态 SQLConnection SQLDBConnection = new SQLConnection();

    #region IDataService Members

    public List<Data> GetData()
    {
        List<Data> datas = new List<Data>();
        try
        {
            if (SQLDBConnection.con.State == ConnectionState.Closed) SQLDBConnection.con.Open();
            datas.Clear();
            SqlCommand sqlcommand = new SqlCommand();
            sqlcommand.Connection = SQLDBConnection.con;
            sqlcommand.CommandText = "select * from tblData";
            sqlcommand.CommandType = CommandType.Text;
            SqlDataAdapter sqladapter = new SqlDataAdapter(sqlcommand);
            DataTable dt = new DataTable();
            sqladapter.Fill(dt);

            Data data = null;
            for (int i = 0; i < dt.Rows.Count; i++)
            {
                data = new Data();
                data.Id = Convert.ToInt32(dt.Rows[i]["id"]);
                data.NTLogin = dt.Rows[i]["NTLogin"].ToString();
                data.SystemName = dt.Rows[i]["SystemName"].ToString();
                data.LockTime = Convert.ToDateTime(dt.Rows[i]["LockTime"]);
                data.LoginTime = Convert.ToDateTime(dt.Rows[i]["LoginTime"]);
                data.LastDefenitionDate = Convert.ToDateTime(dt.Rows[i]["LastDefenitionDate"]);
                datas.Add(data);
            }
        }
        catch (Exception ex)
        {  } 
        return datas;
    }

    public void SubmitData(Data data)
    {
        if (SQLDBConnection.con.State == ConnectionState.Closed) SQLDBConnection.con.Open();
        SqlCommand sqlcommand = new SqlCommand();
        sqlcommand.Connection = SQLDBConnection.con;
        sqlcommand.CommandText = "Insert into dbo.tblData(NTLogin, SystemName, LockTime, LoginTime, LastDefenitionDate) values ('" + data.NTLogin + "','" + data.SystemName + "','" + data.LockTime + "' , '" + data.LoginTime + "', '" + data.LastDefenitionDate + "')";
        sqlcommand.CommandType = CommandType.Text;
        int RowsAffected = sqlcommand.ExecuteNonQuery();
    }

    #endregion
}

`

编辑：

可能的重复建议的答案对我来说没有奏效。我的整个代码在这里给出。在发布我的问题之前，我什至检查了该帖子。请检查我的代码。

4

1 回答 1

2

阅读下面的文章，它详细描述了如何使用 GetObject 从 VBA 代码调用 WCF 服务：

使用 WCF 服务名字对象从 Excel VBA 客户端调用 WCF 服务
http://damianblog.com/2009/07/05/excel-wcf/

但它仅适用于简单的 WCF 服务合同。对于更复杂的事情，您需要使用 VSTO

UPD：在这种情况下，当使用带有 MEX 合约的 Moniker 时，您应该只使用原始类型和原始类型数组。当您需要使用复杂类型时，例如尝试将它们打包成字符串或使用更高级的技术，如带有 COM 客户端 ( http://msdn.microsoft.com/en-us/library/ms752245.aspx ) 或 VSTO的 WCF Moniker .

于 2012-10-05T12:39:38.603 回答