L
lijucheng
Unregistered / Unconfirmed
GUEST, unregistred user!
各位大虾:
请看下面的程序:
Try
ExcelFile := CreateOleObject(Excel_ID);
ExcelFile.Visible := true;
ExcelFile.WorkBooks.Add;
Except
Application.MessageBox(PChar('启动 Excel 时发生错误!'#13'无法将资料投入Excel!'),PChar('警告'),MB_ICONWARNING+MB_OK);
exit;
End;
ExcelFile.Cells[1,1].value := s_title;
With Dataset do begin
First
// 列印选取的栏位名称:
for i := 0 to High(PField) do ExcelFile.Cells[3,i+1].value := Fields[PField].DisplayLabel;
// 列印出所选栏位的所有记录:
for i := 0 to RecordCount - 1 do begin
for j := 0 to High(PField) do
ExcelFile.Cells[i+4,j+1].value := Fields[PField[j]].asstring;
Next;
end;
end;
目的是将表格数据写入EXCEL文件,一般情况都没问题,但如果某一列字段为字符型数据且字段长度有
十多位的情况下(如:'12234456785554433323')在EXCEL 中显示为1.22345E+19,不知如何解决,
应该设置EXCEL中的单元格格式,但不知如何做,或其他方法,请高手指点.在线等待.
请看下面的程序:
Try
ExcelFile := CreateOleObject(Excel_ID);
ExcelFile.Visible := true;
ExcelFile.WorkBooks.Add;
Except
Application.MessageBox(PChar('启动 Excel 时发生错误!'#13'无法将资料投入Excel!'),PChar('警告'),MB_ICONWARNING+MB_OK);
exit;
End;
ExcelFile.Cells[1,1].value := s_title;
With Dataset do begin
First
// 列印选取的栏位名称:
for i := 0 to High(PField) do ExcelFile.Cells[3,i+1].value := Fields[PField].DisplayLabel;
// 列印出所选栏位的所有记录:
for i := 0 to RecordCount - 1 do begin
for j := 0 to High(PField) do
ExcelFile.Cells[i+4,j+1].value := Fields[PField[j]].asstring;
Next;
end;
end;
目的是将表格数据写入EXCEL文件,一般情况都没问题,但如果某一列字段为字符型数据且字段长度有
十多位的情况下(如:'12234456785554433323')在EXCEL 中显示为1.22345E+19,不知如何解决,
应该设置EXCEL中的单元格格式,但不知如何做,或其他方法,请高手指点.在线等待.