vb.net制作的类库tlb返回的数组在vba不能引用？

huangyz_xy

    Public Function GetArr(sql As String) As Array
        Try
            Dim result As New ArrayList()
            Dim connection As New SQLiteConnection(builder.ConnectionString)
            connection.Open()
            Dim command As SQLiteCommand = connection.CreateCommand()
            command.CommandText = sql
            Dim reader As SQLiteDataReader = command.ExecuteReader
            Dim dt As New DataTable()
            For i = 1 To reader.FieldCount
                dt.Columns.Add(reader.GetName(i - 1))
            Next
            While reader.Read()
                Dim row As DataRow = dt.NewRow()
                For i = 1 To reader.FieldCount
                    row(i - 1) = reader(i - 1)
                Next
            End While
            Dim Arr As Object(,) = New Object(dt.Rows.Count - 1, dt.Columns.Count - 1) {}
            For i As Integer = 0 To dt.Rows.Count - 1
                For j As Integer = 0 To dt.Columns.Count - 1
                    Arr(i, j) = dt.Rows(i).ItemArray(j)
                Next
            Next
            Return Arr
            command.Dispose()
            reader.Close()
            connection.Close()
        Catch ex As Exception
            Throw
        End Try
    End Function



Sub t1()
    Dim Arr()
    Dim dll As New SQLHelper.ConnSQlite
    sql = "select * from __users"
    Arr = dll.GetArr(sql)
End Sub

用这个方法返回的数组在vb.net中在excel中一执行vba代码excel就闪退，有什么解决办法没？是什么原因导致的？

zpy2

.net和.com数组可能底层不一样，不太明白。
我觉得用字符串通讯可能也行。

huangyz_xy

zpy2 发表于 2024-1-11 11:34
.net和.com数组可能底层不一样，不太明白。
我觉得用字符串通讯可能也行。

现在就是不知道返回成什么能在vba中直接使用，当然最好是数组

leolee82

在C++中我用API创建SafeArray，再赋值给Variant，最后返回Variant。
.NET中应该有更方便的方法，不太了解