delphi excelApplication示例下载

weixin_39821620 2019-07-29 09:30:28

procedure TForm1.btn7Click(Sender: TObject);
var
i,row,column:integer;
begin

Try
ExcelApplication1.Connect;
Except
MessageDlg('Excel may not be installed',mtError, [mbOk], 0);
Abort;
End;
ExcelApplication1.Visible[0]:=True;
ExcelApplication1.Caption:='Excel Application'
相关下载链接：//download.csdn.net/download/asanmusic/3984832?utm_source=bbsseo

...全文

7 回复打赏收藏转发到动态举报

写回复

回复

切换为时间正序

请发表友善的回复…

发表回复

procedure TForm1.btn7Click(Sender: TObject); var i,row,column:integer; begin Try ExcelApplication1.Connect; Except MessageDlg('Excel may not be installed',mtError, [mbOk], 0); Abort; End; ExcelApplication1.Visible[0]:=True; ExcelApplication1.Caption:='Excel Application'; ExcelApplication1.Workbooks.Add(Null,0); ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]); ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet); Tabel1.Open; row:=1; While Not(Tabel1.Eof) do begin column:=1; for i:=1 to Tabel1.FieldCount do begin ExcelWorksheet1.Cells.Item[row,column]:=Tabel1.Fields[i-1].AsString; column:=column+1; end; Tabel1.Next; inc(row); end; End;

Delphi EXCEL Range用法集

通过课堂上一个一个的实战例子，演示DelphiXE10的用法，最后通过一个完整的通讯录程序，让学员初步掌握软件开发的全部流程让零基础学员快速入门Delphi编程，快速掌握Delphi的使用方法，并能够制作出自己的软件来。...

Delphi 读取 Excel 前言从Delphi中打开Excel表格并读取其中行列数据值，到最后在关闭Excel 注意：若没有及时关闭Excel时，会导致打开的Excel还处在电脑进程中，这是大多数人没有注意到的问题代码如下（示例）： procedure TForm1.btnsendClick(Sender: TObject); var list: TStringList; i, rowcount, colcount, icol, irow: Integer; ExcelRead: O

Delphi 导出Excel

下载资源悬赏专区

12,795

社区成员

12,332,766

社区内容

发帖

与我相关

我的任务

其他技术论坛（原bbs）

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章