文件名称: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)