频道分类

Delphi中对Excel表格文件的导入和导出操作

作者:admin 来源: 日期:2020/4/10 19:54:00 人气: 标签:

 
首先,Delphi要在Uses部分,把要使用的外部程序的类写入。在这里,我们把“ExtCtrls,ComObj”写入Uses部分。
将Listview列表中的数据导入到Excel文件中。
procedure TfreadExcel.WriteExcel;
var
  i,idex : Integer;
  ExcelApp:Variant;
begin
  try
    dlgSave.FileName := '学生信息.xls';
    if dlgSave.Execute then
    begin
      if FileExists(dlgSave.FileName) then
      begin
        try
          if application.messagebox('该文件已经存在,要覆盖吗?','询问',mb_yesno+mb_iconquestion) = idyes then
          begin
            DeleteFile(PChar(dlgSave.FileName));
          end
          else
          begin
            dlgSave.free;
            Exit;
          end;
        except
          dlgSave.free;
          Exit;
        end;
      end;
 
      try
        ExcelApp:=CreateOleObject('Excel.Application');
        ExcelApp.Caption:='应用程序调用 Microsoft Excel';
        ExcelApp.WorkBooks.Add; //新增工作簿
      except
        Application.MessageBox('无法调用Excel!','提示',MB_OK);
        Exit;
      end;
 
      try
        idex := 1;
        for i:=0 to rzlvshow.Items.Count-1 do
        begin
          ExcelApp.Cells[idex,1].Value:=rzlvshow.Items[i].SubItems.strings[0];
          ExcelApp.Cells[idex,2].Value:=rzlvshow.Items[i].SubItems.strings[1];
          ExcelApp.Cells[idex,3].Value:=rzlvshow.Items[i].SubItems.strings[2];
          ExcelApp.Cells[idex,4].Value:=rzlvshow.Items[i].SubItems.strings[3];
          ExcelApp.Cells[idex,5].Value:=rzlvshow.Items[i].SubItems.strings[4];
          ExcelApp.Cells[idex,6].Value:=rzlvshow.Items[i].SubItems.strings[5];
          ExcelApp.Cells[idex,7].Value:=rzlvshow.Items[i].SubItems.strings[6];
          idex := idex+1;
        end;
 
        if ExcelApp.Worksheets[1].SaveAs(dlgSave.FileName)=0 then
        begin
          Application.MessageBox('数据导出成功!','导出提示',MB_OK);
        end;
      finally
        ExcelApp.Quit;
      end;
    end;
  except
    Application.MessageBox('保存xls文件失败!','提示',MB_OK);
    Exit;
  end;
end;


将Excel数据导入到Listivew列表中:

procedure TfreadExcel.ReadExcel;
var
  ExcelApp : Variant;
  WorkBook : OLEVARIANT;
  ExcelRowCount : Integer;
  item :TListItem;
  i,num : Integer;
 
begin
  try
    if dlgOpen.Execute then
    begin
      try
        num := 0;
        ExcelApp := CreateOLEObject('Excel.Application');
      except
        Application.MessageBox('excel没有安装', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
        Exit;
      end;
 
      rzlvshow.Items.Clear;//对ListView先进行清空
      WorkBook := ExcelApp.WorkBooks.Open(dlgOpen.FileName);//使用opendialog对话框指定
      ExcelApp.Visible := false;
      ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count;      //获取Excel的行数
      SetLength(theArray, ExcelRowCount);
 
      for i := 1 to ExcelRowCount do
      begin
        item := rzlvshow.Items.Add;
        item.Data := Pointer(i);
        theArray[num].agreement_id := Trim(excelapp.Cells[i,1].Value);         //主协议编号
        theArray[num].asset_id     := Trim(excelapp.Cells[i,2].Value);         //资产单元编号
        theArray[num].allot_no     := Trim(excelapp.Cells[i,3].Value);         //申请书编号
        theArray[num].frozen_adjustfare := excelapp.Cells[i,4].Value;          //本金
        theArray[num].init_date    := excelapp.Cells[i,5].Value;                //交易日期
        theArray[num].remark       := Trim(excelapp.Cells[i,6].Value);         //备注
 
        item.SubItems.Add(IntToStr(num+1));
        item.SubItems.Add(theArray[num].agreement_id);
        item.SubItems.Add(theArray[num].asset_id);
        item.SubItems.Add(theArray[num].allot_no );
        item.SubItems.Add(FloatToStr(theArray[num].frozen_adjustfare));
        item.SubItems.Add(IntToStr(theArray[num].init_date));
        item.SubItems.Add(theArray[num].remark);
        num := num + 1;
      end;
 
      if ExcelRowCount=num then
      begin
        Application.MessageBox('数据导入完成!','提示',MB_OK);
      end;
      WorkBook.close;
      ExcelApp.Quit;
    end;
  except
      Application.MessageBox('文件打开失败!','提示',MB_OK);
  end;
end;


获得Excel的行和列数:

  ExcelRowCount : Integer;
  ExcelColCount : Integer;
  ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count;      //获取Excel的行数
  ExcelColCount := WorkBook.WorkSheets[1].UsedRange.columns.Count;   //获取Excel的列数

对Excel文件的导入和导出就先介绍到这里,欢迎大家光临,如果哪里有讲错的请及时联系我 : 新浪邮箱:chao_song2011@sina.cn     qq:1574203887
————————————————

原文链接:https://blog.csdn.net/lovescjinbao/article/details/20044675

上一篇:Delphi中如何给一个字符串从左边进行补0下一篇:没有资料