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

end;
来源：https://www.cnblogs.com/lingzhiwen/p/3321947.html
Delphi StringGrid1读取加载excel文件

相关推荐

评论
