P power_alan Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-08 #1 我现在把数据库的数据库输出到excel中，有一列是文本类型的，它的值是01,02,03等(全是阿拉伯数据，但有些是以0开头的)，但当它们到了excel中时，全部变成了1,2,3...(开头的0全部没有了)，如果能够通过设置单元格的格式为文本最好，如果不是还有其他的实现方法也可以！
我现在把数据库的数据库输出到excel中，有一列是文本类型的，它的值是01,02,03等(全是阿拉伯数据，但有些是以0开头的)，但当它们到了excel中时，全部变成了1,2,3...(开头的0全部没有了)，如果能够通过设置单元格的格式为文本最好，如果不是还有其他的实现方法也可以！
W wwwwb Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-08 #2 excelworksheet1.Cells.Item[j,2].numberformatlocal:='@';
康 康凌 Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-08 #3 FWorkbook_Handle.WorkSheets[1].Columns[j].NumberFormat:='@';
G gadbeelm Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-08 #4 還有一最簡單方法，就是把輸出的01前加個單引號' 如：ExcelApp.Cells[row,col].Value := '''00123';
T tonycn Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-12 #5 简单解决：在数据后加一个chr(255)，搞定！ MyWorkBook.WorkSheets[1].Cells[FirstLine+i,j+1].Value := ADataSet.Fields[j].AsString+chr(255);
简单解决：在数据后加一个chr(255)，搞定！ MyWorkBook.WorkSheets[1].Cells[FirstLine+i,j+1].Value := ADataSet.Fields[j].AsString+chr(255);
H hyj Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-22 #7 if dataset.fields[i-1].DataType in [ftUnknown,ftstring] then ExcelWorksheet1.Range[ASCCOLS+'3',ASCCOLS+INTTOSTR(2+dataset.RecordCount)].NumberFormatLocal:='@';
if dataset.fields[i-1].DataType in [ftUnknown,ftstring] then ExcelWorksheet1.Range[ASCCOLS+'3',ASCCOLS+INTTOSTR(2+dataset.RecordCount)].NumberFormatLocal:='@';
