delphi操作excel时候,复制操作不能执行,请大神帮帮忙。
delphi吧
全部回复
仅看楼主
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
level 2
young__chan 楼主
求看到的大神们帮小弟看看啊,跪谢了。
2015年10月25日 08点10分 2
level 12
是usedrange吧,sheet下没有used这个东东
2015年10月26日 04点10分 3
1