Question

delphi 7将excel中的数据导入到stringgrid

这个方法该怎么写

Answer 1

分两步：
第一步:
delphi读取excel数据，实例：
procedure ReadLines;
var
i,j: Integer;
begin
exlApp := CreateOleObject('Excel.Application');
exlApp.Visible := False;
exlApp.WorkBooks.Open(fsFileName);

iRowCount := exlApp.ActiveSheet.UsedRange.Rows.Count;
iColCount := exlApp.ActiveSheet.UsedRange.Columns.Count;

for i := 2 to iRowCount do
for j:=1 to icolcount do
begin
if exlApp.workbooks[1].sheets[1].cells[i,j]='' then
showmessage('空行！');
//如果读取到空行，showmessage('空行！');
end;
end;

第二步：给stringgrid赋值
设定其最大的行数和列数为2000,，然后设定其值；
stringgrid1.cell[0,0] := '第一行第一列的值';