Office中国论坛/Access中国论坛

标题: 如何用vba实现不同工作薄上的工作表拷贝? [打印本页]

作者: look_live 时间: 2005-1-16 00:55
标题: 如何用vba实现不同工作薄上的工作表拷贝?
各位高手:如何使用vba将book1上表sheet1拷贝至book2上sheet1中?

[em06][em06][em06][em06][em06][em06][em06]

作者: 老鬼 时间: 2005-1-16 02:31
sub copyit()windows("book1.xls").activatesheets("sheet1").selectusedrange.selectselection.copywindows("book2.xls").activatesheets("sheet2").selectrange("A1").selectselection.pasteend sub

作者: zyz218 时间: 2005-1-27 02:22
高手,不错不错!!!!!!!!向老鬼学习!!!

作者: cxffxc 时间: 2005-1-29 04:56
Sub Macro1()

Windows("Book1.xls").Activate

Sheets("Sheet1").Select

Sheets("Sheet1").Copy Before:=Workbooks("Book2.xls").Sheets(2)

End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)