[求助]excel VBA 表复制问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]excel VBA 表复制问题

共有3394人关注过本帖树形打印复制链接主题：[求助]excel VBA 表复制问题

pcxjxjhkw

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1791 积分：12764 威望：0 精华：1 注册：2013/7/18 15:51:00

[求助]excel VBA 表复制问题 发帖心情

Post By：2014/9/30 17:34:00 [只看该作者]

如何：将一个工作簿中表复制到另一个工作簿的表中？

下面这段代码出错了。

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\1.xls")
Dim Wb2 As MSExcel.WorkBook = App.WorkBooks.Open("D:\2.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("sheet1") '指定要复制的工作表
Dim Ws2 As MSExcel.WorkSheet = Wb2.WorkSheets("sheet1")
With Wb2.WorkSheets
    Ws.Copy(After:=.Item(.Count))'复制到最后面
    'Ws.Copy(Before:=.Item(1))'复制到最前面
    'Ws.Copy '复制到一个新工作簿
End With
Wb.Save
App.Quit

请教大家，谢谢

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/9/30 17:53:00 [只看该作者]

这个意思？

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\1.xls")
Dim Wb2 As MSExcel.WorkBook = App.WorkBooks.Open("D:\2.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("sheet1") '指定要复制的工作表
Dim Ws2 As MSExcel.WorkSheet = Wb2.WorkSheets("sheet1")

With Wb2.WorkSheets
Ws.UsedRange.Copy
ws2.Paste
End With
Wb.Save
wb2.save
App.Quit