Win32API COM读取表格源码

以下是使用 Win32API COM 读取 Excel 表格源码的示例代码：

#include <windows.h>
#include <ole2.h>

int main()
{
    CoInitialize(NULL);

    // 创建 Excel 应用程序对象
    CLSID clsExcel;
    CLSIDFromProgID(L"Excel.Application", &clsExcel);
    IDispatch *pExcelApp;
    CoCreateInstance(clsExcel, NULL, CLSCTX_LOCAL_SERVER, IID_IDispatch, (LPVOID*)&pExcelApp);

    // 打开 Excel 文件
    VARIANT vFileName;
    VariantInit(&vFileName);
    vFileName.vt = VT_BSTR;
    vFileName.bstrVal = SysAllocString(L"D:\\test.xlsx");
    VARIANT vReadOnly;
    VariantInit(&vReadOnly);
    vReadOnly.vt = VT_BOOL;
    vReadOnly.boolVal = VARIANT_TRUE;
    VARIANT vEmpty;
    VariantInit(&vEmpty);
    vEmpty.vt = VT_ERROR;
    vEmpty.scode = DISP_E_PARAMNOTFOUND;
    IDispatch *pWorkbooks;
    pExcelApp->Invoke(0x139, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET, &vEmpty, &vWorkbooks, NULL, NULL);
    IDispatch *pWorkbook;
    pWorkbooks->Invoke(0x1c5, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_METHOD, &vFileName, &vEmpty, &vEmpty, &vEmpty, &vWorkbook, NULL, NULL, NULL);

    // 选择表格
    IDispatch *pWorksheets;
    pWorkbook->Invoke(0x22e, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET, &vEmpty, &vWorksheets, NULL, NULL);
    IDispatch *pWorksheet;
    VARIANT vWorksheetIndex;
    vWorksheetIndex.vt = VT_I4;
    vWorksheetIndex.lVal = 1;
    pWorksheets->Invoke(0x0, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET, &vWorksheetIndex, &vWorksheet, NULL, NULL);

    // 获取表格数据
    VARIANT vRange;
    vRange.vt = VT_BSTR;
    vRange.bstrVal = SysAllocString(L"A1:C3");
    IDispatch *pRange;
    pWorksheet->Invoke(0x4a, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET, &vRange, &pRange, NULL, NULL);
    VARIANT vValue;
    pRange->Invoke(0x6, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET, &vEmpty, &vValue, NULL, NULL);

    // 输出表格数据到控制台
    SAFEARRAY *pArray = vValue.parray;
    long lBound, uBound, i, j;
    SafeArrayGetLBound(pArray, 1, &lBound);
    SafeArrayGetUBound(pArray, 1, &uBound);
    for (i = lBound; i <= uBound; i++)
    {
        SafeArrayGetLBound(pArray, 2, &lBound);
        SafeArrayGetUBound(pArray, 2, &uBound);
        for (j = lBound; j <= uBound; j++)
        {
            VARIANT vElement;
            long indices[2] = { i, j };
            SafeArrayGetElement(pArray, indices, &vElement);
            if (vElement.vt == VT_BSTR)
            {
                wprintf(L"%ls\t", vElement.bstrVal);
            }
            VariantClear(&vElement);
        }
        wprintf(L"\n");
    }

    // 释放资源
    VariantClear(&vValue);
    pRange->Release();
    SysFreeString(vRange.bstrVal);
    pWorksheet->Release();
    pWorksheets->Release();
    pWorkbook->Release();
    pWorkbooks->Release();
    VariantClear(&vReadOnly);
    VariantClear(&vFileName);
    pExcelApp->Release();
    CoUninitialize();

    return 0;
}

该示例代码使用 Win32API COM 接口读取 Excel 文件，选择第一个表格，并读取 A1:C3 区域的数据，最后将数据输出到控制台。其中，CLSIDFromProgID 函数用于获取 Excel 应用程序对象的 CLSID，Invoke 函数用于调用 Excel 对象的方法。需要注意的是，该示例代码需要链接 OLE32 库和OLEAUT32库。