将dbgrid中的数据导出到excel时,如何指定excel中某一列的属性是“文本”类型,而不是默认的“常规”类型。 ( 积分: 5 )

  • 主题发起人 主题发起人 doby_li
  • 开始时间 开始时间
D

doby_li

Unregistered / Unconfirmed
GUEST, unregistred user!
因我现在数据库中有一栏的account_id是varchar2类型的,值有可能为:123456789010这样的12位数字。&nbsp;<br>如何在导出时不事先指定excel中对应的该栏为“文本”型的,那么导出后该栏的数据在excel中显示出来的就会变成像:&nbsp;<br>1.23457E+11&nbsp;<br><br>相关代码:&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;XLApp&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:=&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CreateOleObject(&nbsp;&quot;Excel.Application&nbsp;&quot;);&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;XLApp.WorkBooks.Add(-4167);&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;XLApp.WorkBooks[1].WorkSheets[1].Name:=&nbsp;&quot;导出数据&nbsp;&quot;;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Sheet:=XLApp.WorkBooks[1].WorkSheets[&nbsp;&quot;导出数据&nbsp;&quot;];&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Sheet.Columns[1].font.color:=clblue;&nbsp;&nbsp;&nbsp;//单元格颜色&nbsp;<br>现在我就是不知道如何用代码来指定Sheet.Columns[1]这一列为“文本”类型。<br>我试图用这个:Sheet.Columns[1].type:=text;&nbsp;<br>但编译通不过。&nbsp;<br><br>请各位指点,谢谢。
 
Sheet.Columns[1].NumberFormatLocal&nbsp;:=&nbsp;'@';
 
非常感谢dreamisx指点,搞定了。<br>不过还有个小问题,这样指定为文本后,在excel中该栏的每个单元格的左上角都会出现一个小三角形的箭头,不知道能不能控制导出后的文件不出现这样的箭头。<br><br>谢谢。
 
那个三角形只是Excel给你一个提示而已.
 
接受答案了.
 
后退
顶部