从Excel导入信息在StringGrid显示

 

1、控件：2个Button，1个label，1个edit，1个StringGrid，1个OpenDialog，1个PopuMenu

2、双击‘......’按钮，选择文件路径

//打开指定的文件
OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName) + '模板\';
OpenDialog1.filter := '文本文件(*.xls)|*.xls';
OpenDialog1.DefaultExt := 'XLS';
OpenDialog1.Title := '打开Excel文件';
OpenDialog1.FileName := '';
if OpenDialog1.Execute then
begin
  edtFileUrl.Text := OpenDialog1.FileName;
end
else
begin
  exit;
end;

3、双击‘读取’按钮

procedure Tfrm4.Button2Click(Sender: TObject);
var
  ExcelApp: Variant;  //Excel变量
  ExcelFiles: string; //打开的Excel文件名
  i, j: Integer;
  SheetNo: Integer;   //所在sheet页编号
begin
  inherited;

  RzStringGrid.DefaultDrawing := True;
  if edtFileUrl.Text = '' then
  begin
    Application.MessageBox('请先选择导入文件!', '提示', MB_OK + MB_ICONWARNING);
    Exit;
  end;
  ExcelFiles := edtFileUrl.Text;//选择到的文件路径
  SheetNo := 1;//sheet编号
  ExcelApp := CreateOleObject('Excel.Application');
  ExcelApp.Visible := false;
  ExcelApp.WorkBooks.Open(ExcelFiles);
  ExcelApp.WorkSheets[SheetNo].Activate;//Excel第一个Sheet是活动页
  try
    try
      MaxRow := ExcelApp.WorkSheets[SheetNo].UsedRange.Rows.Count;    //所有行数
      MaxCol := ExcelApp.WorkSheets[SheetNo].UsedRange.Columns.Count;  //所有列数
      with RzStringGrid do
      begin
        ColWidths[2] := 100;//设置第二列的宽度，StringGrid列是从0开始的
      //StringGrid的行数
      RzStringGrid.RowCount := MaxRow - 1;//减去最后一行提示信息行
      //StringGrid的列数
      RzStringGrid.ColCount := MaxCol;
      //标题行
      RzStringGrid.FixedRows := 1;//设置标题行只有一行
      RzStringGrid.FixedCols := 0;
      for i := 1 to MaxRow - 1 do//读入数据，控制行
      begin
        for j := 1 to MaxCol do//读入数据，控制列
        begin
          //Excel表格的行和列是从1开始的，StringGrid的行和列是从0开始
          RzStringGrid.Cells[j-1, i-1] := VarToStr(ExcelApp.WorkSheets[SheetNo].Cells[i, j].Value);
        end;
      end;
    except
      on E: Exception do
      begin
        ShowMessage('异常类名称：' + E.ClassName + #13#10 + '异常信息：' + E.Message);
        Application.MessageBox('数据读入错误或者数据文件格式错误!', PChar(Application.Title), MB_OK + MB_ICONWARNING);
      end;
    end;
  finally
    ExcelApp.ActiveWorkBook.Close;
    ExcelApp.Quit;
    ExcelApp := Unassigned;
    PageControl1.ActivePage := TabSheet2;
  end;
end;

4、PopuMenu添加PopuMenu右键弹出事件

  //如果表格不为空或者表格的行数大于1（标题行当然不允许删）
  if (RzStringGrid <> nil) and (RzStringGrid.RowCount > 1) then 
  begin
    mniNDelRow.Enabled := True;//则允许删除选中行
  end
  else
  begin
    mniNDelRow.Enabled := False;//否则不允许
  end; 

5、给PopuMenu添加一个右键的值，双击会弹出如下

然后双击删除当前行：

  //如果表格不为空或者表格的行数大于1（标题行当然不允许删）
  if (RzStringGrid <> nil) or (RzStringGrid.RowCount > 1) then
  begin
    for i := RzStringGrid.row to RzStringGrid.RowCount - 1 do
      RzStringGrid.Rows[i] := RzStringGrid.Rows[i+1];//删除一行，把后一行往前挪一行
    RzStringGrid.RowCount := RzStringGrid.RowCount - 1;//将StringGrid的总行数减1
  end;

6、与5同理，双击清空当前列表

   //定义一个integer类型的变量i
   //如果表格不为空或者表格的行数大于1（标题行当然不允许删）
   for i := 1 to RzStringGrid.RowCount -1  do  //如果不清表头则从1开始
   begin
     RzStringGrid.Rows[i].Clear;//清空行的同时调用删除行的方法
     mniNDelRowClick(Self);
   end;

7、StringGrid的PopuMneu属性记得选择你添加的那个

8、以下是StringGrid的属性，如果哪里不对，自己对照改下

 完了，就这些就可以读取Excel的内容到Stringgrid显示了