Delphi控制Excel2000，在同一个工作薄中，sheet2完全从sheet1中复制出来(100分)

阿

阿黛

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-09

• #1

我搜过全文检索，前面的兄弟的帖子给了我很多的帮助，但是我没有找到这样的说明，或者有兄弟能够回答我页面横向的命令

 

阿

阿黛

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-10

• #2

我的源程序如下：
var
ExcelApp:variant;
string1:string;
begin
try
ExcelApp := CreateOleObject('excel.Application');
Except
Messagedlg('Excel2000 Not Setup!',mtError,[mbYes],0);
Abort;
end;
Excelapp.Caption:='Toshiba Report Program';
string1:=ExtractFilePath(paramstr(0))+'excelb.xls';
Excelapp.workbooks.open(string1);
Excelapp.Visible:=true;
excelapp.worksheets.add;
ExcelApp.sheets['sheet0'].activate;
// excelapp.sheets['sheet0'].copy;会重新开一个工作薄，我想在同一个工作薄中　
// ExcelApp.sheets['sheet1'].activate;
// excelapp.sheets['sheet1'].paste;
excelapp.Worksheets.Copy('sheet0','sheet1');;
// Excelapp.activesheet.printpreview;
end;

 

天

天堂鸟6420

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-10

• #3

拷贝操作：
a.拷贝整个工作表：
ExcelApp.ActiveSheet.Used.Range.Copy;
b.拷贝指定区域：
ExcelApp.ActiveSheet.Range[ 'A1:E2' ].Copy;
c.从A1位置开始粘贴：
ExcelApp.ActiveSheet.Range.[ 'A1' ].PasteSpecial;
d.从文件尾部开始粘贴：
ExcelApp.ActiveSheet.Range.PasteSpecial;
转贴自《全面控制EXCEL》,不知道对你有没有用

 

W

Wizard00

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-10

• #4

有没有人知道怎么移动excel？请大家指点。

 

阿

阿黛

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-11

• #5

To:天堂鸟6420
这个我已有，ExcelApp.ActiveSheet.Used.Range.Copy和ExcelApp.ActiveSheet.Range[ 'A1' ].PasteSpecial;在里面不能使用，出现OLE不支持
“Method used not supported by automation Object”

To:Wizard00
有没有人知道怎么移动excel？请大家指点。
不清楚你的需求

 

K

kevin8093

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-11

• #6

我想一个非常简单的方法，你可以用ADO直接操作SHEET，在ADO种直接配置EXCEL数据源就可以了，你可以看看以前的关于EXCEL的方法，没时间了，一会再给你讲清楚

 

阿

阿黛

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-11

• #7

thanks,wait for you!

 

W

wwwwb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-12

• #8

var i,j:integer;
begin
excelapplication1.Connect;
excelapplication1.Caption:='123';
excelapplication1.Visible[0]:=true;
excelapplication1.Workbooks.Add('d:/rsc/book1.xls',0);
excelworkbook1.ConnectTo(excelapplication1.Workbooks[1]);
excelworksheet1.ConnectTo(excelworkbook1.Worksheets[1] as _worksheet);
excelworksheet2.ConnectTo(excelworkbook1.Worksheets[2] as _worksheet);
excelworksheet3.ConnectTo(excelworkbook1.Worksheets[3] as _worksheet);
excelworksheet1.Activate;
excelworksheet1.PageSetup.Orientation:=XLLANDSCAPE;//页面横向的命令
excelworksheet1.Cells.Copy(excelworksheet2.UsedRange[1]);//将SHEET1COPY到SHEET2

 

江

江南大米

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-12

• #9

wwwwb快来答我的问题啊！我还是注册类型的问题！试了N次了！[]

 

W

Wizard00

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-19

• #10

to 阿黛
把一个excel的workbook里面的sheet移动或复制到另一个excel的workbook里面，看看这个帖子：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2364773

 

W

Wizard00

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-19

• #11

哦，如果你知道怎么复制一个sheet的话，就可以复制然后重新命名了，问题是我不知道怎么复制sheet，从宏里面录制的语句是这样的，不知道怎么转换。

Sheets("Sheet2").Select
Sheets("Sheet2").Move After:=Workbooks("Book2").Sheets(3)

 

阿

阿黛

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-20

• #12

多人接受答案了。