C语言 win32 获取Worksheets对象 实例

在Windows平台下，使用C语言获取Excel的Worksheets对象实例可以通过以下步骤实现：

1. 引入头文件和库文件

需要引入以下头文件：

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

其中excel.h是包含了Excel对象的定义的头文件，需要自行定义。

需要链接以下库文件：

#pragma comment(lib, "ole32.lib")
#pragma comment(lib, "oleaut32.lib")

2. 初始化COM库

使用CoInitialize函数初始化COM库：

HRESULT hr = CoInitialize(NULL);
if (FAILED(hr)) {
    // 初始化COM库失败
}

3. 获取Excel对象

使用CoCreateInstance函数创建Excel对象：

CLSID clsid;
HRESULT hr = CLSIDFromProgID(L"Excel.Application", &clsid);
if (FAILED(hr)) {
    // 获取Excel的CLSID失败
}

IDispatch *pExcelApp;
hr = CoCreateInstance(clsid, NULL, CLSCTX_LOCAL_SERVER, IID_IDispatch, (void**)&pExcelApp);
if (FAILED(hr)) {
    // 创建Excel对象失败
}

4. 获取Workbooks对象

使用Excel对象的Application属性获取Workbooks对象：

VARIANT result;
DISPPARAMS paramsNoArgs = {NULL, NULL, 0, 0};

hr = Excel_GetProperty(pExcelApp, L"Application", &result);
if (FAILED(hr)) {
    // 获取Application属性失败
}

IDispatch *pExcelApp2 = result.pdispVal;

hr = Excel_InvokeMethod(pExcelApp2, L"Workbooks", &result, &paramsNoArgs);
if (FAILED(hr)) {
    // 调用Workbooks方法失败
}

IDispatch *pWorkbooks = result.pdispVal;

5. 获取Worksheets对象

使用Workbooks对象的Open方法打开Excel文件，并获取Worksheets对象：

VARIANT vFilename;
VARIANT vUpdateLinks;
VARIANT vReadOnly;
DISPID dispidNamed = DISPID_PROPERTYPUT;

VariantInit(&vFilename);
VariantInit(&vUpdateLinks);
VariantInit(&vReadOnly);

vFilename.vt = VT_BSTR;
vFilename.bstrVal = SysAllocString(L"C:\\example.xlsx");

vUpdateLinks.vt = VT_BOOL;
vUpdateLinks.boolVal = VARIANT_FALSE;

vReadOnly.vt = VT_BOOL;
vReadOnly.boolVal = VARIANT_FALSE;

DISPPARAMS paramsOpen = {
    &vFilename,
    &dispidNamed,
    1,
    3
};

hr = Excel_InvokeMethod(pWorkbooks, L"Open", &result, &paramsOpen);
if (FAILED(hr)) {
    // 打开Excel文件失败
}

IDispatch *pWorkbook = result.pdispVal;

DISPPARAMS paramsNoArgs = {NULL, NULL, 0, 0};

hr = Excel_InvokeMethod(pWorkbook, L"Worksheets", &result, &paramsNoArgs);
if (FAILED(hr)) {
    // 获取Worksheets对象失败
}

IDispatch *pWorksheets = result.pdispVal;

6. 释放资源

最后，需要释放所有申请的资源：

VariantClear(&vFilename);
VariantClear(&vUpdateLinks);
VariantClear(&vReadOnly);

pWorksheets->Release();
pWorkbook->Release();
pWorkbooks->Release();
pExcelApp2->Release();
pExcelApp->Release();

CoUninitialize();