delphi StringGrid1读取加载excel文件

const

xlCellTypeLastCell = $0000000B;

var

ExlApp, Sheet: OLEVariant;

i, j, r, c: integer;

namestr: string;

checkdata: string;

tempstr: string;

begin

ExlApp := CreateOleObject('Excel.Application');

ExlApp.Visible := false;

ExlApp.Workbooks.Open(path);

Sheet := ExlApp.Workbooks[ExtractFileName(path)].WorkSheets[1];

Sheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;

r := ExlApp.ActiveCell.Row;

c := ExlApp.ActiveCell.Column;

//Grid.RowCount:=r;

// c :=Grid.ColumnCount;

// Form2.Caption:='加载进度 0%';

Application.ProcessMessages;

for j:= 1 to r do

begin

try

if (j mod 1000 = 0)

then begin

Caption:='加载进度'+FormatFloat('0.00%',(j/r*100));

// ProgressBar1.Position :=(j/r*100);

Application.ProcessMessages;

end;

for i:= 1 to c do

begin

StringGrid1.Cells[i-1,j-1]:=sheet.cells[j,i];

end;

except on e:exception do

//ShowMessage(inttostr(j)+' '+e.Message);

end;

Caption:='加载进度 100%';

//ProgressBar1.Position:=0;

ExlApp.Quit;

ExlApp := Unassigned;

Sheet := Unassigned;

补充：

StringGrid 实例1：初始化StirngGrid的首行和首列

实例1：初始化StirngGrid的首行和首列

// 主要代码部分：

procedure TForm23.SetSGridTitle(Sender: TObject);

var

ColIndex, RowIndex: integer;

begin

//画第一行（标题栏）

for colIndex := 1 to StringGrid1.ColumnCount do

begin

StringGrid1.Cells[colIndex, 0] := '列名' + Chr(ord('A') - 1 + colIndex);

end;

//画第一列（数字栏）

StringGrid1.Columns[0].Width := 30;

StringGrid1.Cells[0, 0] := '序列';

for RowIndex := 1 to StringGrid1.RowCount - 1 do

begin

StringGrid1.Cells[0, RowIndex] := IntToStr(RowIndex);

end;

来源：https://www.cnblogs.com/lingzhiwen/p/3321947.html

推荐分享