如何用vba实现不同工作薄上的工作表拷贝?

look_live · 发表于 2005-1-16 00:55:00

各位高手:如何使用vba将book1上表sheet1拷贝至book2上sheet1中?

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

老鬼 · 发表于 2005-1-16 02:31:00

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:00

高手,不错不错!!!!!!!!向老鬼学习!!!

cxffxc · 发表于 2005-1-29 04:56:00

Sub Macro1()

Windows("Book1.xls").Activate

Sheets("Sheet1").Select

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

End Sub

帐号		自动登录	找回密码
密码			注册

群介绍
Excel中国官方交流群2群 (331511605)
Excel中国官方群 (243419633)
Office China for Exc (498717031)
Excel交流群(纯技术) (324568243)
Excel VBA (122204306)

主题相关群

地区相关群[您还没设置居住地]

如何用vba实现不同工作薄上的工作表拷贝?

群介绍
主题无相 (随机显示版	同地区群块其他地区)