麻烦，用c++Builder读取excel数据出错，请大家帮帮忙

麻烦各位高手，用c++Builder读取excel数据出错，请大家帮帮忙
程序很简单，我想把excel的数据读进c++builder的数组或者数据库中，但是遇到一些问题，我还在上学，才刚上手BCB，希望大家帮帮忙。
运行后显示Isbound()@c:\bcb\emuvcl\utilcl.h/4249;继续运行时报错，错误出现处已注释标出
以下是程序：
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "ComObj.hpp"
#include"Utilcls.h"
//---------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------
#define PG OlePropertyGet
#define PS OlePropertySet
#define FN OleFunction
#define PR OleProcedure
//---------------------------------------

void __fastcall TForm1::N15Click(TObject *Sender)
{
   
  Variant ExcelApp;
  Variant Workbook1;
  Variant Sheet1;
  ExcelApp.PG("workbooks").FN("open", "G:\project\dungou\data\操作参数.xls"); //提示本行出现错误
  Workbook1.PG("Sheets", 1).PR("Select");
  Sheet1 = Workbook1.PG("ActiveSheet");
  for(int i=2;i<=20;i++){
  HS[i-2]=StrToFloat(Sheet1.PG("Cells", i, 1).PG("Value")); //HS dt pm为定义的数组
  dt[i-2]=StrToFloat(Sheet1.PG("Cells", i, 2).PG("Value"));
  pm[i-2]=StrToFloat(Sheet1.PG("Cells", i, 3).PG("Value"));
  };
  ExcelApp.Exec(Procedure("Quit"));
  ExcelApp=Unassigned;
  Workbook1=Unassigned;
  Sheet1=Unassigned;
}
能不能帮忙修改一下呢，感激不尽！

[解决办法]
你都没有创建Excel对象的。

C/C++ code

try{    ExcelApp = Variant::CreateObject("Excel.Application");}catch(...){    MessageBox(0, "启动 Excel 出错.", "", MB_OK | MB_ICONERROR);    return;}// 新建一个工作表ExcelApp.PG("workbooks").FN("open",    WideString("G:\\project\\dungou\\data\\操作参数.xls"));...
[解决办法]
你的Workbook1没有初始化啊老弟。

C/C++ code
try{    ExcelApp = Variant::CreateObject("Excel.Application");}catch(...){    MessageBox(0, "启动 Excel 出错.", "", MB_OK | MB_ICONERROR);    return;}// 新建一个工作表ExcelApp.PG("workbooks").FN("open",    WideString("G:\\project\\dungou\\data\\操作参数.xls"));Workbook1 = ExcelApp.OlePropertyGet("ActiveWorkbook");Sheet1 = Workbook1.PG("ActiveSheet");for (int i = 2; i <= 20; i++)...
[解决办法]
问题一：前面缺语句。加上下面的代码：
try
{
ExcelApp = Variant::CreateObject(WideString (L"Excel.Application"));
}
catch(...)
{
MessageBox( NULL, L"无法启动 Excel，请检查 Excel程序 是否安装。 "
, L"错误", MB_OK|MB_ICONSTOP );
return;
}
ExcelApp.OlePropertySet( WideString(L"Visible"),false);//这一句可要可不要。
问题二：字符串尽量用WideString,可确保兼容性。
 ExcelApp.PG(WideString(L"Workbooks")).FN(WideString(L"open"), WideString(L"d:\\新建 Microsoft Excel 工作表.xls"));  
问题三：不要忘了Close
ExcelApp.PG(WideString(L"Workbooks")).FN(WideString(L"close"));

[解决办法]
仔细看了一下，还差一句关键代码：

 ExcelApp.PG(WideString(L"Workbooks")).FN(WideString(L"open"), WideString(L"d:\\新建 Microsoft Excel 工作表.xls"));   
 
Workbook1 = ExcelApp.PG( WideString(L"ActiveWorkbook"));//加上这一句
 //Workbook1.PG("Sheets", 1).PR("Select");//这句不要也行
 Sheet1 = Workbook1.PG("ActiveSheet");
 for(int i=2;i<=20;i++)
 {
HS[i-2]=StrToFloat(Sheet1.PG("Cells", i, 1).PG("Value")); //HS dt pm为定义的数组
dt[i-2]=StrToFloat(Sheet1.PG("Cells", i, 2).PG("Value"));
 pm[i-2]=StrToFloat(Sheet1.PG("Cells", i, 3).PG("Value"));
 };
 ExcelApp.PG(WideString(L"Workbooks")).FN(WideString(L"close"));//这一句在Quit前
 ExcelApp.Exec(Procedure("Quit"));

上面的代码用cbXE2调试通过，能正常读出数据。