请问如何用DELPHI读取Excel表里面指定单元格的内容？(100分)

醒

醒了就不睡

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-11

• #1

请问如何用DELPHI读取Excel表里面指定单元格的内容？（请给出具体操作流程）
我是菜鸟 不具体看不懂。。。。
谢谢

 

W

wulingbo2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-11

• #2

var
ExcelApp,FWorkBook:variant;
ExcelFileName:string;
FieldNo,RecNo,i,j:integer;
FPicture,FWorksheet:OleVariant;
TmpStr,test:String;

begin
ExcelFileName:=Excel_Edt.Text;

ExcelAPP:=CreateOleObject('Excel.application');//Excel编程
FWorkBook:=ExcelAPP.WorkBooks.Add;
FWorksheet:=FWorkBook.Worksheets[1];
FWorksheet.Select;
（做你自己想做的事情）


FWorkBook.saveas(ExcelFileName);
FWorkBook.close;
ShowMessage('保存文件成功');

 

绯

绯红之王

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-11

• #3

var xlapp : variant;
cell1 ： string；
xlapp := createoleobject('excel.application');
OpenDialog1.Filter:='EXCEL工作表(*.xlsx)|*.xlsx|EXCEL带宏工作表(*.xlsm)|*.xlsm|EXCEL97-2003工作表(*.xls)|*.xls|All files (*.*)|*.*';
if opendialog1.Execute then
begin
xlapp.Workbooks.open(opendialog1.FileName); //打开excel表
xlApp.Visible := false;
end
else exit;

xlapp.worksheets.activate; //i是sheet表的编号
cell1 := xlapp.activesheet.cells[i,1].value //xlapp.后面的都是excel对象，具体怎么实现可以录制宏得到。绝大部分对象都能使用
xlApp.WorkBooks.Close;
xlapp.quit;

cells(a,b)是单元格坐标 a为行数，b为列数

 

L

luoyanqing119

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-11

• #4

楼上的两位的都可以，不过记得USES COMOBJ

 

醒

醒了就不睡

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-13

• #5

谢谢啦
怎么给分给你们?.........

 

M

madeagle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-13

• #6

回个贴子,分配下分数就行了,呵呵

 

D

doll_paul

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-13

• #7

干吗不用ADO直接访问！？ 真晕也～～～

 

醒

醒了就不睡

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-14

• #8

wulingbo2005 50 分
绯红之王 50 分
谢谢大家！我接受答案了[]

 

醒

醒了就不睡

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-14

• #9

这次没错了吧。。

 

醒

醒了就不睡

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-25

• #10

[^]