关于狐表中使用vba的一个问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于狐表中使用vba的一个问题

共有2928人关注过本帖树形打印复制链接主题：关于狐表中使用vba的一个问题

benben325

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

等级：幼狐帖子：167 积分：1517 威望：0 精华：0 注册：2021/8/9 16:05:00

关于狐表中使用vba的一个问题 发帖心情

Post By：2022/3/11 8:52:00 [只看该作者]

rt，我想将一个excel里面的sheet表复制到另外一个excel里面，我的代码如下：

Dim path1 As String = "C:\Users\Administrator\Desktop\11\11.xls"

Dim path2 As String = "C:\Users\Administrator\Desktop\11\12.xls"

Dim app As New MSExcel.Application

Dim wb1 As MSExcel.WorkBook = app.WorkBooks.Open(path1)

Dim wb2 As MSExcel.WorkBook = app.WorkBooks.Open(path2)

wb2.Sheets(1).Copy(After:=wb1.WorkSheets.Item(wb1.WorkSheets.Count))

wb1.Save

App.Quit

复制不上去

请问我该怎么改？

[此贴子已经被作者于2022/3/11 8:59:42编辑过]

benben325

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

等级：幼狐帖子：167 积分：1517 威望：0 精华：0 注册：2021/8/9 16:05:00

Post By：2022/3/11 9:07:00 [只看该作者]

晕，又可以了，好了！

有点蓝

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

等级：超级版主帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/3/11 9:20:00 [只看该作者]

……

Dim app As New MSExcel.Application

Dim wb1 As MSExcel.WorkBook = app.WorkBooks.Open(path1)

Dim wb2 As MSExcel.WorkBook = app.WorkBooks.Open(path2)

wb2.Sheets(2).Copy(After:= wb1.Sheets(wb1.Sheets.Count))

wb1.Save

App.Quit

主题：关于狐表中使用vba的一个问题