如何取得excel文件中某一单元格的内容?

[wsy751022151]

如何取得excel文件中某一单元格的内容?

[WWWWA]

s:=excelworksheet2.Cells.Item[10,2];

[WWWWA]

zz:=excelworksheet2.Cells.Item[2,1]

[zhaojinghui]

procedure TForm1.Button1Click(Sender: TObject);
var
ExcelApp : Variant; //声明ExcelApp为Variant
RecordCounts : Integer;
i:Integer;
begin
try
ExcelApp := CreateOleObject('Excel.Application'); //创建Excel.Application
except
ShowMessage('本机没有安装EXCEL！');
exit;
end;
ExcelApp.WorkBooks.Add;//新加一个工作簿
ExcelApp.WorkSheets[1].Activate; //激活第一个Sheet
Query1.Close;
Query1.Open;
Query1.First;
ExcelApp.Cells[1,1].value :='纳税人识别号';
ExcelApp.Cells[1,2].value :='单位名称';
RecordCounts := Query1.RecordCount; //取QUERY1的记录数用于循环
for i:=2 to RecordCounts+1 do
begin
if not Query1.Eof then
begin
ExcelApp.Cells[i,1].Value :=Query1.FieldByName('TAXNO').AsString;
ExcelApp.Cells[i,2].Value :=Query1.FieldByName('UNITNAME').AsString;
Query1.Next;
end;
end;
ExcelApp.ActiveWorkBook.SaveAs('c:\list.xls');
if MessageDlg('文件 c:\list.xls 保存成功，是否要打开编辑此文件？',mtConfirmation,[mbYes,mbNo,mbCancel],0)= mrYes then
ExcelApp.Visible := True //设置EXCEL窗口为可见
else
begin
ExcelApp.Visible := False;
ExcelApp.Quit;
end;
end;

[WWWWA]

ExcelApp.Cells[1,4].Value := '123';

[Frend]

来晚啦！

[wsy751022151]

不是存呀，
是取出来，从 EXCEL文件中取出数据?怎么取呀,

[WWWWA]

s:=ExcelApp.Cells[1,4].Value ;

[wsy751022151]

s:=ExcelApp.Cells[1,4].Value ;

详细一点，不能用呀， 马上给分，

[careerist]

关注