用EXCEL做好报表的模板,如何用DELPHI来调用它,并实现打印预览及打印的功能。
展开全部
把EXCEL放在delphi 应用程序(.exe)同个目录然后
begin
var
excel, WorkBook, Sheet: Variant;
try
excel := CreateOleObject('Excel.Application');
WorkBook := excel.Workbooks.Add(extractfilepath(application.exename) + '\xxxxx.xls');
Sheet := WorkBook.Worksheets[1];
except
excel := NULL;
ShowMessage('请先安装Excel');
EXIT;
end;
try
Sheet.cells(5, 2) := '15484151'; //表示第5行第2列写入15484151字符
.........
.......
finally
end;
try
excel.Visible := true;
WorkBook.Saved := True;
finally
//excel.Quit;
//excel := Unassigned;
end;
end;
就这样可以了很简单的!
begin
var
excel, WorkBook, Sheet: Variant;
try
excel := CreateOleObject('Excel.Application');
WorkBook := excel.Workbooks.Add(extractfilepath(application.exename) + '\xxxxx.xls');
Sheet := WorkBook.Worksheets[1];
except
excel := NULL;
ShowMessage('请先安装Excel');
EXIT;
end;
try
Sheet.cells(5, 2) := '15484151'; //表示第5行第2列写入15484151字符
.........
.......
finally
end;
try
excel.Visible := true;
WorkBook.Saved := True;
finally
//excel.Quit;
//excel := Unassigned;
end;
end;
就这样可以了很简单的!
博思aippt
2024-07-20 广告
2024-07-20 广告
作为深圳市博思云创科技有限公司的工作人员,对于Word文档生成PPT的操作,我们有以下建议:1. 使用另存为功能:在Word中编辑完文档后,点击文件->另存为,选择PowerPoint演示文稿(*.pptx)格式,即可将文档内容转换为PPT...
点击进入详情页
本回答由博思aippt提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询