READ FROM EXCEL CELLS IN DELPHI

blue 2000-04-25 11:25:00
HOW TO READ FROM CELLS OF EXCEL FILES IN DELPHI?
...全文
165 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
blue 2000-05-10
  • 打赏
  • 举报
回复
谢谢各位的帮助!

关于这个问题,我找到以下的方法,也供大家参考:
(利用DELPHI中的自动类型)

/*此方法可打开文件进行操作是在--"暗"(打开EXCEL文件而不用打开EXCEL程序)--处进行的*/
var
APP,WORK:VARIANT; /*定义自动变量*/
STR1:STRING;
NUM:REAL;

begin
APP:=CREATEOLEOBJECT('EXCEL.APPLICATION');
WORK:=CREATEOLEOBJECT('EXCEL.SHEET');

SHOWMESSAGE('RUN HERE');

WORK:=APP.WORKBOOKS.OPEN('D:\TESTDP\BOOK1.XLS'); /*打开文件,可设打开方式:在文件名后加豆号再跟打开方式参数*/

STR1:=APP.SHEETS[1].CELLS[1,1]; /*读单元格(A,1)的内容到STR1*/
NUM:=APP.SHEETS[1].CELLS[2,1];
SHOWMESSAGE('THE (1,1) IS: '+STR1+CHR(13)+'THE (2,1) IS: '+FLOATTOSTR(NUM));

/*以下是释放变量*/
APP.WORKBOOKS.CLOSE;
APP.QUIT;
APP:=UNASSIGNED;
END;
huitor 2000-04-25
  • 打赏
  • 举报
回复
使用D5容易实现,D5在"Server"上提供了ExcelApplication对象.
也可以引入Excel.olb来实现.
goldenkey 2000-04-25
  • 打赏
  • 举报
回复
最后两句似乎应为:
ExcelApplication1.Quit;
ExcelApplication1.Disconnect;
还有要在读之前先打开文件。
xfchai 2000-04-25
  • 打赏
  • 举报
回复
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
TForm1 = class(TForm)
Button1: TButton;
ExcelApplication1: TExcelApplication;
ExcelWorksheet1: TExcelWorksheet;
ExcelWorkbook1: TExcelWorkbook;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var iCount:integer;
begin
ExcelApplication1.Connect;
ExcelApplication1.Visible[0]:=True;

ExcelApplication1.Workbooks.Add(NULL,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets[1] as _WorkSheet);

ExcelWorksheet1.Cells.Item[iCount,1]:='你想显示的字符串';
ExcelWorksheet1.Cells.Item[iCount,2]:=iCount;//整型数字

ExcelApplication1.Disconnect;
ExcelApplication1.Quit;

end;

end.

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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