标签归档：excel

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])

……

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

浅谈Delphi如何控制Excel操作

发表于由
回复

    1 创建Excel文件
　　要在Delphi中控制Excel，就必须用到OLE自动化。现在一般采用OLE2来创建OLE对象，当激活一个OLE对象时，服务器程序仅在容器程序内部激活，这就是所谓的“就地激活”(in-place activation)。

　　创建Excel文件时，先创建一个OLE对象，然后在对象中建立工作表worksheet，如函数createExcel所示：

　　function createExcel:variant;

　　var

　　v:variant;

　　sheet:variant;

　　begin

　　v:=createoleobject(‘Excel.Application’);//创建OLE对象

　　v.visible:=true;

　　v.workbooks.add(-4167); //添加工作表

　　v.workbooks[1].sheets[1].name:=’test’;

　　sheet:=v.workbooks[1].sheets[‘test’];

　　return v;

　　end;

　　2 数据表格控制

　　Excel表格的控制，主要包括数据的导入、修改；单元格的合并、边框的控制；表格的复制、粘贴等。当报表格式一定的情况下，表格的复制、粘贴显得尤为重要，这样，可以先制作一个文件模板，然后按照实际需要输出多页报表即可。

　　(1)数据的导入(importData)

　　procedure importData;

　　var

　　I,j:integer;

　　v:variant;

　　begin

　　v:=createExcel; //创建Excel文件test

　　for I:=0 to maxcolumn do

　　begin

　　for j:=0 to maxrow do

　　v.workbooks[1].sheets[1].cells[I,j]:=I*j; //导入数据

　　end;

　　end;

　　(2)单元格的合并、边框的控制(lineStylecontrol)

　　单元格的合并，是在选定合并范围的情况下进行的。边框控制可以操作边框线条的是否显示。其他方式的控制，可以仿照下面过程进行。

　　procedure lineStylecontrol;

　　var

　　v,sheet,range:variant;

　　begin

　　v:=createExecl;

　　sheet:= v.workbooks[1].sheets[1];

　　range:=sheet.range[sheet.cells[1,1],sheet.cells[39,30]];//选定表格

　　range.select;

　　range.merge; //合并单元格

　　range.borders.linestyle:=xlcontinuous; //置边框线可见

　　range.font.size:=9; //改变表格内文本字体大小

　　end;