导出到Excel2003,长整型数出错解决办法

导出到Excel2003,长整型数出错 - C++ Builder / Windows SDK/API
/*
18位身份证(全数字)导出到Excel2003时，身份证最后4位变成了数字
如身份证中带有X或Y时就不会出现以上情况
*/
  Variant ExcelApp;
  try
  {
  ExcelApp = Variant::CreateObject("Excel.Application");
  }catch(...)
  {
  return;
  }
  ExcelApp.OlePropertySet("Visible", false);
  ExcelApp.OlePropertyGet("WorkBooks").OleFunction("add", 1);
  Variant ExcelSheet = ExcelApp.OlePropertyGet("ActiveWorkbook").OlePropertyGet("Sheets", 1);
  const unsigned int c_uiRowCount = ADOQuery1->RecordCount;
  ExcelSheet.OlePropertyGet("Cells", 1, 1).OlePropertySet("Value", "身份证");
  ExcelApp.OlePropertyGet("Columns", 1).OlePropertySet("ColumnWidth", 100);
  ADOQuery1->First();
  for (unsigned int i=2; i<=c_uiRowCount+1; i++)
  {
  ExcelSheet.OlePropertyGet("Cells", i, 1).OlePropertySet("Value", (ADOQuery1->FieldByName("身份证")->AsString.Trim()).c_str());
  ADOQuery1->Next();
  }

  ExcelApp.OlePropertyGet("ActiveWorkbook").OleFunction("SaveAs", strFileName.c_str());
  ExcelApp.OleFunction("Quit");
  ExcelSheet = Unassigned;
  ExcelApp = Unassigned;

//怎样解决

[解决办法]

C/C++ code

            //做了个测试你试试           //TVariant ExcelApp;       AnsiString st = "123456789012345678";        Variant ExcelApp;        try        {            ExcelApp = Variant::CreateObject("Excel.Application");        }catch(...)        {            return;        }        ExcelApp.OlePropertySet("Visible", false);        ExcelApp.OlePropertyGet("WorkBooks").OleFunction("add", 1);        Variant ExcelSheet = ExcelApp.OlePropertyGet("ActiveWorkbook").OlePropertyGet("Sheets", 1);        //const unsigned int c_uiRowCount = ADOQuery1->RecordCount;        ExcelSheet.OlePropertyGet("Cells", 1, 1).OlePropertySet("Value", "身份证");        ExcelApp.OlePropertyGet("Columns", 1).OlePropertySet("ColumnWidth", 100);       // ADOQuery1->First();        //for (unsigned int i=2; i <=c_uiRowCount+1; i++)        {            ExcelSheet.OlePropertyGet("Cells",1 , 1).OlePropertySet("NumberFormatLocal","@"); //加            //    ExcelSheet.OlePropertyGet("Cells", i, 1).OlePropertySet("Value", (ADOQuery1->FieldByName("身份证")->AsString.Trim()).c_str());            ExcelSheet.OlePropertyGet("Cells",1 , 1).OlePropertySet("Value", st.c_str());  //测试          //  ADOQuery1->Next();        }        ExcelApp.OlePropertyGet("ActiveWorkbook").OleFunction("SaveAs", "YDLCHINA.XLS");//strFileName.c_str());        ExcelApp.OleFunction("Quit");        ExcelSheet = Unassigned;        ExcelApp = Unassigned;