[已解决]把工作簿1中的sheet2移动到E盘ZX.xls的sheet4后面代码怎么写

要用就学

把工作簿1中的sheet2移动到E盘ZX.xls的sheet4后面代码怎么写

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-7-10 06:49

1.     Set wg = GetObject("e:\zx.xls")
   
2.     Workbooks("工作簿1").Worksheets("sheet2").Move after:=wg.Worksheets("sheet4")
   
3.     wg.Close True
   
4.     se wg = nohing
   

复制代码

跳转到最佳答案楼层

hwc2ycy

1.     Set wg = GetObject("e:\zx.xls")
   
2.     Workbooks("工作簿1").Worksheets("sheet2").Move after:=wg.Worksheets("sheet4")
   
3.     wg.Close True
   
4.     se wg = nohing
   

复制代码

hwc2ycy

你的工作簿1应该是没保存的吧。
另外如果工作簿1里只有一个工作表，这种移动操作是不允许的。

要用就学

hwc2ycy 发表于 2013-7-10 06:49

你写的代码我无法运行，我是学VBA没几天，代码没有写全，我没法搞！如能够补全最好。

妞叫七七

sub test()
Set wg = GetObject("e:\zx.xls")

    Workbooks("工作簿1").Worksheets("sheet2").Move after:=wg.Worksheets("sheet4")

    wg.Close True

    se wg = nohing

end sub

要用就学

妞叫七七 发表于 2013-7-10 09:30
sub test()
Set wg = GetObject("e:\zx.xls")

无法运行