unit1.pas

用delphi合并两个excel文件的内容

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleServer, Excel2000,ComObj;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ExcelApplication1: TExcelApplication;
    ExcelWorksheet1: TExcelWorksheet;
    ExcelWorkbook1: TExcelWorkbook;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   x1,x2,x3,aa,s:string;
  i:integer;
  v:variant;

begin
    x3:='e:\example.xls'; //文件名
    x1:='e:\11.xls';
    x2:='e:\22.xls';
  if fileexists(x3) then deletefile(x3);
 //加上一句拷贝语句，将x1拷贝到x3
 copyfile(pchar(x1),pchar(x3),true);
  v:=CreateOLEObject('Excel.Application'); //建立OLE对象
  v.Workbooks.Open(x3);
  v.Visible:=true;
  i:=v.ActiveSheet.UsedRange.Rows.Count;
  str(i+3,s);
   aa:='A'+ s;
  v.Range[aa].Select;
  v.ActiveSheet.OLEObjects.Add(FileName:=x2, Link:=False, DisplayAsIcon:=False).Select;
  v.ActiveWorkbook.Saveas(filename:=x3);//文件存盘
end;

end.