Delphi与Excel

最新推荐文章于 2019-06-15 19:24:07 发布

LuckyJan

最新推荐文章于 2019-06-15 19:24:07 发布

阅读量3.2k

点赞数

分类专栏： Delphi与Excel 文章标签： delphi excel access integer string

本文链接：https://blog.csdn.net/LuckyJan/article/details/13066

版权

Delphi与Excel 专栏收录该内容

4 篇文章 0 订阅

订阅专栏

uses comobj,excel97,excel2000;

//从Excel写数据到Access库
prodedure ExcelToMdb(EXLfile:string;);
var
sheet,XLApp,workbook : variant;
  iRow,MaxRow:integer;
begin
  screen.Cursor:=crHourGlass;?
try
   //创建对象
    XLApp:=createOleObject('Excel.Application');
    XLApp.displayAlerts:=false;
    XLApp.ScreenUpdating:=false;
    XLApp.WorkBooks.Add(EXLfile);
    workbook := XLApp.workbooks[1];
    sheet:=workbook.worksheets[1];
    //sheet:=XLApp.WorkBooks[1].worksheets[1];


    //取得最大行数? maxRow
    XLApp.ActiveCell.SpecialCells(xlLastCell).Select;
    maxRow:=XLApp.ActiveCell.Row;       //最大行数
    maxCol:=XLApp.ActiveCell.Column ;   //最大列数

    //写数据到Access库
    ADOTable1.open;
    for iRow:=2 to MaxRow do
    if sheet.cells[iRow,1]<>'' then? //关键字不为空
    begin
     ADOTable1.Append ;
      ADOTable1.fieldByName('ID').asInteger:=strToInt(sheet.cells[iRow,1]);
      ADOTable1.fieldByName('code').asString:=sheet.cells[iRow,2];?//编码
      ADOTable1.fieldByName('name').asString:=sheet.cells[iRow,3];?//名称
      ADOTable1.post;
    end;

  finally
    if not VarIsEmpty(XLApp) then begin? //释放对象
      XLApp.displayAlerts:=false;
      XLApp.ScreenUpdating:=true;
      XLApp.quit;
    end;
    screen.Cursor:=crDefault;
  end;
end;

//=================== 其他一些属性方法 ===============//

    curRow:=XLApp.ActiveCell.Row;?//当前行数
    XLApp.displayAlerts:=false;???//运行宏时是否显示警告和消息
    XLApp.ScreenUpdating:=false;? //屏幕更新功能,提高速度;
    //结束运行后，ScreenUpdating 设回到 True

XLApp.run('macroName',params...)//运行宏

workbook.save ;
workBook.SaveAs(AFileName,xlNormal,'','',False,False);