向EXCEL里面送入身份証號碼會出現(430523198206113112)變成(4.30523E+17)!

[orablue]

var msexcel:olevariant ;
i,j:integer ;
temp ,fname :string;
wbook,wsheet:olevariant ;
workbook,worksheet :olevariant ;
day,month,year :word ;
begin
msexcel :=createoleobject('excel.application');
msexcel.visible :=true ;
workbook :=msexcel.application ;
workbook.workbooks.open('c:\2.xls');
worksheet :=workbook.activesheet ;
msexcel.cells(1,3):=edit6.Text ;
msexcel.cells(2,3):=edit7.text ;
msexcel.cells(2,4):=edit15.Text ;
msexcel.cells(2,5):=edit16.Text ;
msexcel.cells(3,2):=edit8.Text ;
msexcel.cells(4,3):=edit1.Text ;
msexcel.cells(4,6):=combobox1.Text ;
msexcel.cells(4,8):=edit2.Text ;
msexcel.cells(6,2):=edit3.Text ;
msexcel.cells(6,3):=edit4.Text ;
**********************************************
msexcel.cells(7,2):=''''+edit5.Text ;//身份証號碼
**********************************************
還是不可以啊,不知到錯在哪里?

[Intelement]

MSExcel.Cells(7, 2).NumberFormatLocal = "0"

[zuing]

应该要把单元格格式设置成文本

[zpec]

MSExcel.Cells(7, 2).NumberFormatLocal = "@"
**********************************************
msexcel.cells(7,2):=''''+edit5.Text ;//身份証號碼
**********************************************

[lgh4073]

msexcel.cells(7,2):="'"+edit5.Text

[smilingchen]

mark

[duanlang119]

把单元格格式设置更改

[夜雨悠扬]

MSExcel.Cells(7, 2).NumberFormat = "@"

[ExitWin]

先把单元格格式设置成文本格式

[yanlw]

我看楼上的要么太复杂，要么不行

在要输入的单元格设成自定义，在类型框内根据身分证位数输入‘000000000000’字样

[adu_neu]

.Cells(i, j).NumberFormat = "@"

[tckff]

把
**********************************************
msexcel.cells(7,2):=''''+edit5.Text ;//身份証號碼
**********************************************
改一下就是了，改成
**********************************************
msexcel.cells(7,2):="'"&edit5.Text ;//身份証號碼
**********************************************
就行了。

[titanicliu]

最简单的方法前面加单丿"'"

[PaulZhao]

将单元格格式设置成文本格式，要通过变成控制……不会，要查书才知道

[jamesking]

要设置成文本模式，现在18位身份证，有的校验码为X，不用文本模式是不行的。

[mayiwang]

回复人titanicliu()的方法可用，较多数据处理我采用的方法如下：
在新的单元格中输入“="'"&A1”，再将公式复制，然后“复制”“选择性粘贴——粘贴数据”

[elfzzf]

列宽不足！