C++ Builder中导入Excel表格数据

//Excel.hpp
//需要在头文件中添加如下的头文件及创建宏，此宏的原作者为ccrun
#include <OleServer.hpp>
//读取Excel导入信息时，为方便操作建立的宏
#define   PG   OlePropertyGet
#define   PS   OlePropertySet
#define   FN   OleFunction
#define   PR   OleProcedure

//Excel.cpp
#include "Comobj.hpp"
OpenDialog1->Filter = "execl文件(.xls)|*.xls";
OpenDialog1->DefaultExt = "*.xls";

if (OpenDialog1->Execute())
{
Variant ExcelApp;       //ExcelApplication
Variant Workbook1;      //ExcelWorkbook
Variant Sheet1;

try
{
ExcelApp = Variant::CreateObject("Excel.Application");
}
catch(...)
{
::MessageBox(0, "无法启动 Excel，请检查 Excel程序 是否安装。", "加载Excel数据", MB_OK | MB_ICONWARNING);
return;
}
//上述工程创建代码必须要进行初始化。这一步非常重要

//下述代码在打开workbook及worksheet时，为了保持兼容性，需要强制转化String为WideString类型。
ExcelApp.PG(WideString(L"Workbooks")).FN(WideString(L"open"), WideString(OpenDialog1－>FileName));
//初始化Workbook
Workbook1 = ExcelApp.PG(WideString(L"ActiveWorkbook"));
//初始化Sheet
Sheet1 = Workbook1.PG(WideString(L"ActiveSheet"));
//获取当前Sheet名称
FSheetName = Sheet1.PG(WideString(L"name"));

//获取单元格中的数据信息,其中row及col为单元格所在行号及列号
AnsiString ansCellData;
ansCellData = Sheet1.PG("Cells", row, col).PG("Value");
}