Delphi中从Excel导入数据的通用方法

用Delphi从excel导入数据的时候,经常都只是需要一个worksheet,然后循环读取单元格信息,存入数据库。但是,每次都要重复的写关于打开,关闭excel的application的代码。

话不多说,看代码:

TypeTExcelFunction = procedure(asheet: OleVariant);//声明导入函数//afilename为数据源文件名,func为执行导入的函数
procedure RunExcelApplication (afilename: string;                              func: TExcelFunction);
var
  app: OleVariant;
  oldCursor: TCurSor;
begin
  oldCursor := Screen.Cursor;  //保存鼠标指针状态
  Screen.Cursor := crHourGlass;
  try
    CoInitializeEx(nil, 0);
    app := CreateOleObject('Excel.Application');
    app.DisplayAlerts := False;
    app.WorkBooks.open(afilename); //打开源文件
    app.WorkSheets[1].Activate;
    app.visible := False;//隐藏excel窗体
    if Assigned(func) then  //执行导入函数
      func(app.ActiveSheet);//传递sheet给函数进行导入
    app.WorkBooks.close;
    app.quit;//关闭推出excel
    Screen.Cursor := oldCursor;
  except
    on e: Exception do
    begin
      MessageBox(GetActiveWindow, pchar(e.message), '提示', MB_OK + MB_ICONINFORMATION);
      Screen.Cursor := OldCursor;
      Exit;
    end;
  end;
end;

关键在于定义一个以sheet:OLEVariant为参数的过程,来执行具体的导入工作。

访问单元格:sheet.cells[row,col]

转为string:vartostr(sheet.cells[row,col])

转为datetime:vartodatetime(sheet.cells[row,col])

……

最好先转化为基本类型后,再进行其他操作,可以减少一些莫名的错误。

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据