level 2
young__chan
楼主
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleServer, ExcelXP, StdCtrls , ExtCtrls;
procedure TForm1.btn1Click(Sender: TObject);
begin
exclplctn1.Connect;
exclwrkbk1.ConnectTo(exclplctn1.Workbooks.Add(EmptyParam , 0));
exclplctn1.Workbooks[1].Activate(0);
exclplctn1.Visible[0] := True;
exclplctn2.Connect;
exclplctn2.Workbooks.Open('d:\Information.xlsx' ,
EmptyParam , EmptyParam , EmptyParam , EmptyParam ,
EmptyParam , EmptyParam , EmptyParam , EmptyParam ,
EmptyParam , EmptyParam , EmptyParam , EmptyParam ,
EmptyParam , EmptyParam , 0);
exclplctn2.Workbooks[1].Activate(0);
exclplctn2.Visible[0] := True;
exclplctn2.ActiveSheet.Used.Range.Copy; //这句拷贝操作不能执行,直接报错;
end;
Used报错为:IDisptch does not contain a member named 'Used';
Range & Copy报错为:Undeclared indentifier。
2015年10月25日 08点10分
1
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleServer, ExcelXP, StdCtrls , ExtCtrls;
procedure TForm1.btn1Click(Sender: TObject);
begin
exclplctn1.Connect;
exclwrkbk1.ConnectTo(exclplctn1.Workbooks.Add(EmptyParam , 0));
exclplctn1.Workbooks[1].Activate(0);
exclplctn1.Visible[0] := True;
exclplctn2.Connect;
exclplctn2.Workbooks.Open('d:\Information.xlsx' ,
EmptyParam , EmptyParam , EmptyParam , EmptyParam ,
EmptyParam , EmptyParam , EmptyParam , EmptyParam ,
EmptyParam , EmptyParam , EmptyParam , EmptyParam ,
EmptyParam , EmptyParam , 0);
exclplctn2.Workbooks[1].Activate(0);
exclplctn2.Visible[0] := True;
exclplctn2.ActiveSheet.Used.Range.Copy; //这句拷贝操作不能执行,直接报错;
end;
Used报错为:IDisptch does not contain a member named 'Used';
Range & Copy报错为:Undeclared indentifier。