如何在BCB中控制Excel,使Excel打开后，自动生成一个空白的WorkBook...

Question

以前写过一个，你可以直接参考，具体数据部分你就直接修改了，参看代码：//********************//      SaveDialog1->Filter="*.XLS¦*.XLS";
      SaveDialog1->DefaultExt="XLS";
      if (SaveDialog1->Execute())
      {
        try
        {
          Variant MSExcel=CreateOleObject("Excel.Application");
          MSExcel.OlePropertyGet("WorkBooks").OleProcedure("Add");  //是不是这一句？
          MSExcel.OlePropertySet("Visible",False);
          Muster->Account1->First();
          for (int i=1;i<=Muster->Account1->RecordCount;i++)
          {
            MSExcel.OlePropertyGet("ActiveWorkBook").OlePropertyGet("ActiveSheet").OlePropertyGet("Cells",i,1).OlePropertySet("NumberFormat","@");
            MSExcel.OlePropertyGet("ActiveWorkBook").OlePropertyGet("ActiveSheet").OlePropertyGet("Cells",i,1).OlePropertySet("Value",Muster->Account1->FieldByName("BANK")->AsString);
            MSExcel.OlePropertyGet("ActiveWorkBook").OlePropertyGet("ActiveSheet").OlePropertyGet("Cells",i,2).OlePropertySet("NumberFormat","0.00");
            MSExcel.OlePropertyGet("ActiveWorkBook").OlePropertyGet("ActiveSheet").OlePropertyGet("Cells",i,2).OlePropertySet("Value",Muster->Account1->FieldByName("FACT")->AsFloat);
            Muster->Account1->Next();
          }
          MSExcel.OlePropertyGet("ActiveWorkBook").OleProcedure("SaveAs",SaveDialog1->FileName);
          MSExcel.OlePropertyGet("ActiveWorkBook").OleProcedure("Close");
        }
        catch(...)
        {
          Application->MessageBox("没有安装Microsoft Excel办公软件！","系统信息",MB_OK+MB_ICONWARNING);
        }
      }