Tform1.button1click(sender:Tobject);
var
i,j:integer;
xlsApp,xlsWBS,xlssheet:variant;
begin
if varisempty(xlsApp) then xlsApp:=createoleobject('excel.application');
xlsSheet:=xlsApp.workbooks.open('d:\yourExcelDocument\book1.xls');
for i:=1 to 4 do
for j:=1 to 100 do
begin
self.memo1.lines.add(xlsSheet.cells[i,j].text);
end;
xlsApp.application.quit;
end;
var
i,j:integer;
xlsApp,xlsWBS,xlssheet:variant;
begin
if varisempty(xlsApp) then xlsApp:=createoleobject('excel.application');
xlsSheet:=xlsApp.workbooks.open('d:\yourExcelDocument\book1.xls');
for i:=1 to 4 do
for j:=1 to 100 do
begin
self.memo1.lines.add(xlsSheet.cells[i,j].text);
end;
xlsApp.application.quit;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货