//----建立Excel
   Variant ExcelApp, ExcelBooks, ExcelBook;
   try
   {
      ExcelApp=Variant::CreateObject("Excel.Application");
   }
   catch(Exception &e)
   {
      ShowMessage(e.Message);
   }
   if(ExcelApp.IsEmpty())
   {
      return;
   }
   //ExcelApp.OlePropertySet("Visible", true);  // 把這行刪掉, Excel 執行畫面就不會出現
   ExcelBooks=ExcelApp.OlePropertyGet("Workbooks");
   try
   {
      ExcelBook=ExcelBooks.OleFunction("Add");
   }
   catch(Exception &e)
   {
      ShowMessage(e.Message);
   }
   if(ExcelBook.IsEmpty())
   {
      return;
  }
   
  //----建立新的EXCEL檔
  AnsiString szXlsFile;
   //AnsiString szXlsFile=ExtractFilePath(Application->ExeName)+"test.xls";
   if(SaveDialog1->Execute())
   {
    szXlsFile=SaveDialog1->FileName.c_str();
    ExcelBook.OleFunction("SaveAs", StringToOleStr(szXlsFile));
    ExcelBook.OleFunction("Close");
    ExcelApp.OleFunction("Quit");
   }     //----寫入Excel
   Variant Ex,Wb,Sh;
   Ex=Variant::CreateObject("Excel.Application");
   Ex.OlePropertyGet("WorkBooks").OleProcedure("Open",StringToOleStr(szXlsFile));
   Wb=Ex.OlePropertyGet("ActiveWorkBook");
   Sh=Wb.OlePropertyGet("ActiveSheet");
   Sh.OlePropertyGet("Cells",1,1).OlePropertySet("Value","連續白色");
   Sh.OlePropertyGet("Cells",1,2).OlePropertySet("Value","連續黑色");