如何在德尔福转弯中读取Excel数据

将 excel 文件转换为 dbf 文件，并使用 delphi 进行处理。

在使用德尔菲语言进行软件应用开发过程中，常见的应用是操作Excel读取和生成报表

1. 使用 COM 方法。

优点：它可以动态创建，基本上与计算机上安装的运行Excel版本的软件无关; 缺点：需要安装Excel，程序编写过程中缺少函数、成员等提示，操作时不容易调试错误。

2. 使用 Delphi 附带的 Office 控件。

优点：在程序编写过程中，可以得到函数、成员等提示; 缺点：需要安装Excel，需要不同的Excel版本，并且需要有针对性的建筑组件。

3. 使用第三方控件。

XLSreadWrite是一款出色的Excel控件，提供了一种快速且轻松地读取和写入Excel文件的好方法。 例：

vars:string;

xls:txlsreadwrite;

begin='c:\';

s:=,0];

showmessage(s);

0]:='压';

c:\');

end;优点：无需在机器上安装Excel即可读取Excel文件，读写操作简单; 缺点：第三方控件，您需要自己安装。

有两种方法可以做到这一点：

1、使用德尔福的办公组件，访问速度快;

2. 使用通用目标 comobj，速度较慢。

这两种方法的示例都可以在线获得。 您可以查询网络。

我使用Delphi来做类似Excel的报告，发现很难生成具有直接控制的数据透视表。 后来问题解决了，方法如下，可以供大家参考：

1.首先创建一个excel模板，在模板中的sheet2中已经准备好了数据透视表，并且每列的属性都设置好了，但数据是空的; 保存程序可以访问它的位置;

2. 在模板的 sheet1 中至少放置两行数据。 两行表示数据透视表引用这两行，这两行当然可以是空数据;

3、德尔福控制excel数据填写时，先填写第一行数据，再在第一行和第二行之间插入空白行，用于后续数据，再填写; 这样一来，sheet2的数据透视表在刷新时会自动变化，就不用担心几升bifax的数据透视表问题了。 （您可能需要删除末尾的最后一个空行）。

打开模板的语句是：

workbook:='报告模板。 xls');

保存时，可以使用自己生成的文件名或用户输入的文件名。

数据透视表刷新是一个问题，这与自动刷新的普通图表不同。

数据透视表刷新的宏语句为（sheet2 是当前工作表）：

数据透视表 1"歼灭次数）。

您可以尝试在 delphi 中调用此句子，以便在保存文件之前刷新它。 我还没有尝试过这个，你必须研究一下。

goodluck！

有几种方法可以在 Delphi 中读取 Excel 数据：

1.使用德尔福自带的Excel控件，缺点是只能支持特定的Excel版本，如果运行该软件的电脑安装不匹配，就会出现问题。

2.使用 createoleobject（''''这种OLE方法的优点是基本有效，但缺点是没有编码提示，调试很麻烦。

3.使用第三方控件，如xlsreadwrite，优点是在计算机系统中未安装Excel时可以正确读取，效率好。