如何从VBA应用程序调用C DLL并返回数组？

从VBA应用程序调用C DLL并返回数组的步骤如下：

创建C语言动态链接库（DLL）：使用C语言编写一个函数，该函数接收参数并返回一个数组。确保在编译DLL时使用与目标VBA应用程序兼容的编译器和设置。
导出函数：在C代码中使用适当的导出指令（如__declspec(dllexport)）将函数导出为DLL的可用函数。
在VBA应用程序中声明DLL函数：在VBA代码中使用Declare语句声明DLL函数的原型。确保声明与DLL函数的参数和返回类型匹配。
加载DLL：使用LoadLibrary函数加载DLL文件。可以使用Declare语句声明LoadLibrary函数的原型。
获取函数地址：使用GetProcAddress函数获取DLL中导出函数的地址。可以使用Declare语句声明GetProcAddress函数的原型。
调用DLL函数：使用获取的函数地址调用DLL函数，并传递所需的参数。根据函数的返回类型，使用适当的方法接收返回的数组。
卸载DLL：在完成对DLL的调用后，使用FreeLibrary函数卸载DLL。可以使用Declare语句声明FreeLibrary函数的原型。

以下是一个示例代码，展示了如何从VBA应用程序调用C DLL并返回数组：

Option Explicit

Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long

Declare Function MyDLLFunction Lib "MyDLL.dll" (ByRef inputArray() As Double, ByVal size As Long) As Long

Sub CallDLL()
    Dim hModule As Long
    Dim pFunc As Long
    Dim inputArray(1 To 5) As Double
    Dim result As Long
    Dim i As Long
    
    ' 加载DLL
    hModule = LoadLibrary("MyDLL.dll")
    
    If hModule <> 0 Then
        ' 获取函数地址
        pFunc = GetProcAddress(hModule, "MyDLLFunction")
        
        If pFunc <> 0 Then
            ' 调用DLL函数
            result = MyDLLFunction(inputArray(1), UBound(inputArray))
            
            ' 输出结果
            For i = 1 To UBound(inputArray)
                Debug.Print inputArray(i)
            Next i
        Else
            MsgBox "无法获取DLL函数地址。"
        End If
        
        ' 卸载DLL
        FreeLibrary hModule
    Else
        MsgBox "无法加载DLL。"
    End If
End Sub

请注意，上述示例代码仅为演示目的，实际情况中需要根据具体的DLL函数和参数进行调整。