D dwj_dd Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-03 #1 刚做了一个数据导出的程序sql->excel，但是导出后在excel中，有的列中的数据(例如：身份证号)被excel用科学计数法来表示，由于这些数据还要到回sql，所以最好能使导出数据时能够被excel正常识别，不知又哪位高手能帮我解决这个问题。另有高分奉送！！
刚做了一个数据导出的程序sql->excel，但是导出后在excel中，有的列中的数据(例如：身份证号)被excel用科学计数法来表示，由于这些数据还要到回sql，所以最好能使导出数据时能够被excel正常识别，不知又哪位高手能帮我解决这个问题。另有高分奉送！！
N Netsoft Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-04 #3 你的数据是怎么写 Excel 的呢？？？ 贴点关键的代码吧！！！ 呵呵~~~~~
L l_x_yuan Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-04 #4 关键是单元格的格式 ExcelWorksheet1.columns.NumberFormatLocal = '0.00'
W wwwwb Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-04 #6 excelworksheet1.Cells.Item[1,2].numberformatlocal:='@';
J joshua_jia Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-04 #7 如果有的列出現科學計數法顯示，就這樣寫： sheet.cells[5 + i, 2].Value := '''' + adoquery1.fields.FieldByName('product_id').Value;
如果有的列出現科學計數法顯示，就這樣寫： sheet.cells[5 + i, 2].Value := '''' + adoquery1.fields.FieldByName('product_id').Value;
D dearhms Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-06 #8 //送到 Excel try ExcelApp := CreateOleObject('Excel.Application'); WorkBook := CreateOleObject('Excel.Sheet'); except Application.MessageBox('你的机器里未安?Microsoft Excel. ', '', 32); Exit; end; Application.ProcessMessages; WorkBook := ExcelApp.WorkBooks.Add; ExcelApp.columns.NumberFormatLocal := '@';//先將Excel的儲存格格式改為文本,這樣才不會被excel用科学计数法来表示 .........
//送到 Excel try ExcelApp := CreateOleObject('Excel.Application'); WorkBook := CreateOleObject('Excel.Sheet'); except Application.MessageBox('你的机器里未安?Microsoft Excel. ', '', 32); Exit; end; Application.ProcessMessages; WorkBook := ExcelApp.WorkBooks.Add; ExcelApp.columns.NumberFormatLocal := '@';//先將Excel的儲存格格式改為文本,這樣才不會被excel用科学计数法来表示 .........
