VBA 调用 C# 生成的DLL 文件

liuhengping · 发表于 2013-11-15 21:37

小弟用C# 生成的DLL 文件，函数返回值为：string 或者数组的时候，在VBA中能正常调用，但返回值为：DataTable 时，可以调用，但只能：call  rs.DataReadDataTable ,var =rs.DataReadDataTable 就会报错。
在VBA中不知道怎么调用。

求各位帮助：怎么写，通过VBA代码取到C#  DataTable 中的数据，DataTable 其实也就是一张表。

VBA 代码：
Private Sub CommandButton1_Click()
Dim rs As New XmlEvent
Dim var As Variant
var = rs.DataReadDataTable       '出错，call  rs.DataReadDataTable 没有错误提示
End Sub

C#代码：
using System;
using System.IO;
using System.Xml;
using System.Text;
using System.Runtime.InteropServices;
using System.Collections;
using System.Data;
namespace Common
{
[Guid("694C1820-04B6-4988-928F-FD858B95C880")]
/**/
/// <summary>
/// XML生成
/// </summary>
public interface XmlEvent_Interface
{
      [DispId(1)]
      int DataWrite(String filePath, String serviceID, ref String[] tag);
      [DispId(2)]
      String[,] DataRead(String filePath);
      [DispId(3)]
      System.DataTable DataReadDataTable();//如果为：String,则可以正常调用

}
// Events interface Database_COMObjectEvents
[Guid("47C976E0-C208-4740-AC42-41212D3C34F0"),
InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
public interface XmlEvent_Events
{
}
[Guid("9E5E5FB2-219D-4ee7-AB27-E4DBED8E123E"),
ClassInterface(ClassInterfaceType.None),
ComSourceInterfaces(typeof(XmlEvent_Events))]
/**/
/// <summary>
/// XML生成
/// </summary>
public class XmlEvent : XmlEvent_Interface
{
      public XmlEvent()
      {
      }

      public int DataWrite(String filePath, String serviceID, ref String[] tag)
      {
         //Do Something;
         return 1000;
      }

      public String[,] DataRead(String filePath)
      {
         //Do Something;
         string[,] s = new string[,] { { "A", "ABC****-****123" },
                                       { "B", "ABC1****-****1232" },
                                       { "C", "www1****-****2ggg" },
                                       { "D", "1ggg****-****2ggg" }
                                    };
         return s;
      }
      public System.DataTable DataReadDataTable()//如果为：String,则可以正常调用
      {
         DataTable dt = new DataTable("Table_AX");
         dt.Columns.Add("column0", System.Type.GetType("System.String"));
         DataColumn dc = new DataColumn("column1", System.Type.GetType("System.Boolean"));
         dt.Columns.Add(dc);
         DataRow dr = dt.NewRow();
         dr["column0"] = "AX";
         dr["column1"] = true;
         dt.Rows.Add(dr);
         return  dt;
      }
}
}

liuhengping · 发表于 2013-11-15 21:54

自己顶一下。

liucqa · 发表于 2013-11-15 22:01

用object读出来看看，如果不能识别的话，还是转成数组输出吧

或者看看Adodb里面是否支持这个类型

liuhengping · 发表于 2013-11-16 11:41

{:soso_e100:}
没有人知道吗

cbtaja · 发表于 2013-11-16 13:18

不懂C，所以猜一下，这样试一试：
var =rs.DataReadDataTable
改为
Set var =rs.DataReadDataTable

liuhengping · 发表于 2013-11-17 22:23

cbtaja 发表于 2013-11-16 13:18
不懂C，所以猜一下，这样试一试：
var =rs.DataReadDataTable
改为

var =rs.DataReadDataTable,这是对函数的调用，是没有问题的。
set var =rs.DataReadDataTable 是错误的。

jsxjd · 发表于 2013-11-17 22:58

liuhengping 发表于 2013-11-17 22:23
var =rs.DataReadDataTable,这是对函数的调用，是没有问题的。
set var =rs.DataReadDataTable 是错误的 ...

似乎不能向上调用
向下调用是通过生成互操作库进行的

jsxjd · 发表于 2013-11-17 23:04

liuhengping 发表于 2013-11-17 22:23
var =rs.DataReadDataTable,这是对函数的调用，是没有问题的。
set var =rs.DataReadDataTable 是错误的 ...

加一对括号试试呢：
set var = rs.DataReadDataTable()

liucqa · 发表于 2013-11-18 01:05

本帖最后由 liucqa 于 2013-11-18 01:45 编辑

http://hi.baidu.com/daode1212/item/ac1002916a1315f328164749

http://bbs.csdn.net/topics/390201171

我觉得从效率上来讲，还是把DataTable转成二维数组，然后一次性写入Excel比较快。

http://blog.sina.com.cn/s/blog_8d3821d30101iikp.html

liucqa · 发表于 2013-11-18 01:57

本帖最后由 liucqa 于 2013-11-18 08:05 编辑

以下代码在VS2010+Excel2010调试通过，调试时，勾选

CS代码

using System;
using System.Runtime.InteropServices;
using System.Data;
namespace CSComObjectForVBA
{
[System.Runtime.InteropServices.ComVisible(true)]
/// <summary>
/// XML生成
/// </summary>
public interface XmlEvent_Interface
{
[DispId(1)]
int DataWrite(String filePath, String serviceID);
[DispId(2)]
String[] DataRead(String filePath);
[DispId(3)]
object[,] DataReadDataTable();
}
// Events interface Database_COMObjectEvents
[System.Runtime.InteropServices.ComVisible(true),InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
public interface XmlEvent_Events
{
}
[System.Runtime.InteropServices.ComVisible(true), ClassInterface(ClassInterfaceType.None),ComSourceInterfaces(typeof(XmlEvent_Events))]
/// <summary>
/// XML生成
/// </summary>
public class XmlEvent : XmlEvent_Interface
{
public XmlEvent()
{
}
public int DataWrite(String filePath, String serviceID)
{
return (filePath + serviceID).ToString().Length;
}
public String[] DataRead(String filePath)
{
return filePath.Split('\\');
}
public object[,] DataReadDataTable()
{
DataTable dt = new DataTable("Table_AX");
dt.Columns.Add("column0", System.Type.GetType("System.String"));
DataColumn dc = new DataColumn("column1", System.Type.GetType("System.Boolean"));
dt.Columns.Add(dc);
DataRow dr = dt.NewRow();
dr["column0"] = "AX";
dr["column1"] = true;
dt.Rows.Add(dr);
return DataTable2Array(dt);
}
private object[,] DataTable2Array(DataTable tb)
{
//获得表的行，列数目
int row_num = tb.Rows.Count;
int column_num = tb.Columns.Count;
//生成一个二维数组
object[,] dataArry = new object[row_num, column_num];
//把表中的数据放到数组中
for (int i = 0; i < row_num; i++)
{
for (int j = 0; j < column_num; j++)
{
dataArry[i, j] = tb.Rows[i][j];
}
}
//返回数组
return dataArry;
}
}
}

复制代码

VBA代码,引用生成的dll 捕获.JPG

Sub testCSdll()
Dim obj As CSComObjectForVBA.XmlEvent
Set obj = New CSComObjectForVBA.XmlEvent
Dim filePath As String
Dim serviceID As String
Debug.Print obj.DataWrite("sd", "asdf")
Dim ary
ary = obj.DataReadDataTable()
Stop
Set obj = Nothing
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[求助] VBA 调用 C# 生成的DLL 文件

点评

点评

评分