用Delphi将数据导入到Excel并控制Excel

最新推荐文章于 2017-11-08 08:20:58 发布

秋名山老豆腐

最新推荐文章于 2017-11-08 08:20:58 发布

阅读量641

点赞数

分类专栏：软件编程文章标签： excel delphi 工作报表 access integer

本文链接：https://blog.csdn.net/zhao_jian_feng/article/details/6420148

版权

本文介绍了如何使用Delphi调用Excel，实现数据导入和Excel格式控制。通过创建Excel对象，将SQL或Access数据导入工作表，并进行一系列操作，如设置单元格值、调整列宽、行高、边框样式、合并单元格等。同时强调了在数据导入后调整格式以提高效率的重要性。

摘要由CSDN通过智能技术生成

在日常办公中，用得最多的是Word和Excel，而Excel对数据报表的处理尤为方便（操作公式、打印格式等），如果我们将数据导入到Excel中后，再靠我们平时对Excel熟练的操作很快编辑好我们有用的数据（如领导报表等），通过对Excel的控制，我们可以自动编缉好我们想要的格式和外观。

一、调用Excel的方法：一般情况下有两种方法调用Excel：
1、  直接使用Delphi自带的组件：在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheet。
2、动态创建Excel文件：首先创建 Excel 对象，使用ComObj,Excel2000:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );

二、导入数据：在程序中，我们可以将查询到的数据（SQL、Access、）导入到Excel中。例如：用Adoquery查询Access中的数据：
1、先查到所需的数据；
2、导入：i:=1;
Adoquery.First;
               while not Adoquery.Eof do
                 Begin
                   ExcelApp.WorkSheets[1].Cells[i,1].Value := i;//添加序号的值
ExcelApp.WorkSheets[1].Cells[i,2].Value := Adoquery.FieldByName('cp_name').AsString;