delphi中DBGRID导出为EXCEL问题
这是我的导出代码

procedure TFxxlook.savetoexcel(dbname:TDBGrid);
var
  excelapp:Variant;
  page:Variant;
  i,j:Integer;
  savedialog:TSaveDialog;
  BM:TBookmark;
  strsavefile:string;

begin
   if dbname.DataSource.DataSet.IsEmpty then //判断TDBGRID是否有数据
      begin
        MessageBox(Application.Handle,'数据为空不能进行保存','警告',MB_OK);
        Abort;
        Exit;
      end;
   savedialog:=TSaveDialog.Create(nil); // 创建一个保存对话框
   savedialog.Filter:='*.xls|*.XLS';    //设置保存文件的后缀
   savedialog.Execute;                  //打开保存对话框
   strsavefile:=savedialog.FileName;    //保存文件的目录

   if Length(strsavefile)=0 then Exit;  //目录为空则退出程序

   try
     Screen.Cursor:=crhourglass; //屏幕指针形状
     try
       excelapp:=CreateOleObject('excel.application');
       excelapp.workbooks.add(-4167); //设置添加数据的大小
       excelapp.workbooks[1].worksheets[1].name:='数据库数据';//标签页名称
       page:=excelapp.workbooks[1].worksheets['数据库数据'];  //指定标签页
       j:=1;
     except
       MessageBox(GetActiveWindow,'请确认是否安装了EXCEL','提示',MB_OK+ MB_ICONINFORMATION);
       Exit;
     end;
     with dbname.DataSource.DataSet do
     begin
       BM:=GetBookmark;
       DisableControls;

       //将DBGRID中的标题插入到EXCEL表中首行
       for i:=0 to dbname.Columns.Count-1 do
       begin
         if dbname.Columns[1].Visible=False then
         Continue;

         page.cells[j,i+1]:=dbname.Columns[i].Title.Caption;
         page.cells[j,i+1].font.bold:=True;
       end;
       Inc(j);  //ECXEL表中的下一行
       First;
       while not Eof do
       begin
         for i:=0 to dbname.Columns.Count-1 do
         begin
           if dbname.Columns[i].Visible=False then
           Continue;

           //将指定行添加到EXCEL表中
           page.cells[j,i+1]:=Trim(dbname.DataSource.DataSet.fieldbyname
           (dbname.Columns[i].FieldName).AsString); 
 
         end;
         Inc(j);   //EXCEL表中下一行
         Next;     //TDBGrid表中下一行
       end;
       GotoBookmark(BM);
       FreeBookmark(BM);
       EnableControls;
     end;
     excelapp.activeworkbook.saveas(strsavefile);  //将EXCEL表保存到指定目录下
     Application.ProcessMessages;
     excelapp.application.quit;
   finally
     savedialog.Free;
     Screen.Cursor:=crDefault;
   end;
end;

以上代码导出正常，但在导出身份证信息时本来文件型的身份证号，会变成科学计数法，怎么能解决这一问题
[解决办法]
一种是把源加个套VarToStr(),
另一种是设置Excel的格式 Range.NumberFormat:='#0';
[解决办法]
设置EXCEL列格式为文本，NumberFormatLocal='@'
[解决办法]
page.cells[j,i+1].NumberFormatLocal:='@';
[解决办法]
XLSReadWriteII4