delphi excel中去除科学计数法方法
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
//关于excel科学计数法
procedure TForm1.Button2Click(Sender: TObject);
var xlsobj:Variant;
begin
try
try
xlsObj:= CreateOleObject('Excel.Application');//创建excel应用对象
except
exit;
end;
xlsObj.Visible := False; //excel不可见
xlsObj.WorkBooks.Open(edit1.Text); //打开excel
xlsObj.WorkSheets[1].activate; //第一页当前页
//设置第4列数据格式，避免科学计数
xlsobj.WorkSheets[1].Columns[4].NumberFormat:='0'; xlsobj.activeWorkBook.save; //保存
{ xlsobj.activeWorkBook.saved:=true //忽略保存 }
finally
if not VarIsEmpty(xlsobj) then
begin
xlsobj.WorkBooks.Close; //关闭工作表
xlsObj.quit; //关闭excel;
VarClear(xlsObj);
end;
end;
end;