【文件属性】:
文件名称:Delphi 将Excel表存入到html中的源码.rar
文件大小:8KB
文件格式:RAR
更新时间:2022-07-30 05:26:41
Delphi源码-文件操作
Delphi 把excel内容转换成HTML格式,将Excel表存入到html中的实例源码,后边会附上源码下载地址,转换过程可参考以下代码:
if Edit1.Text<>'' then
begin
ExApph := CreateOLEObject('Excel.Application');
ExApph.visible := True;
ExApph.WorkBooks.Open(Edit1.Text);
ExApph.ActiveWorkbook.SaveAs(Extractfilepath(Application.ExeName) 'mm.htm',xlHtml);
ExApph.quit;
ExApph := unassigned;
end
else
showmessage('请选择Excel表');
保存Excel文件的代码如下,完整源码请下载查看:
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
OpenDialog1.Filter := '*.xls|*.XLS';
if OpenDialog1.Execute then
Edit1.Text := OpenDialog1.FileName
else
Edit1.Clear;
end;
【文件预览】:
codesc.net
----Excelhtml()
--------Book1.xls(14KB)
--------Unit1.ddp(51B)
--------Project1.res(876B)
--------Unit1.dcu(5KB)
--------Unit1.dfm(1023B)
--------Project1.cfg(434B)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.pas(1KB)