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));
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);