Foxtable(狐表)用户栏目专家坐堂 → 如何复制另一工作簿的第一个工作表?


  共有9180人关注过本帖树形打印复制链接

主题:如何复制另一工作簿的第一个工作表?

帅哥哟,离线,有人找我吗?
sloyy
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2180 积分:13810 威望:0 精华:2 注册:2012/2/25 10:59:00
如何复制另一工作簿的第一个工作表?  发帖心情 Post By:2012/9/14 10:12:00 [只看该作者]

我有2个工作簿 book1.xls book2.xls  在foxtable里面,如何把book.xls的第一个工作表复制到book2.xls ?如果book2.xls 里面有同名文件,能否覆盖掉?

 回到顶部
帅哥哟,离线,有人找我吗?
lin_hailun
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/9/14 10:58:00 [只看该作者]

 看看帮助的这个例子

Dim Book1 As New XLS.Book("C:\001.xls")
Dim
Book2 As New XLS.Book("C:\002.xls")
Dim
Sheet = Book1.Sheets("订单")
Book1.Sheets.Remove(Sheet)
Book2.Sheets.Add(Sheet)

Book2.Save(
"C:\002.xls"
)


 回到顶部
帅哥哟,离线,有人找我吗?
lin_hailun
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/9/14 11:04:00 [只看该作者]

具体例子

Dim book1 As New XLS.Book("d:\test.xls")
Dim book2 As New XLS.Book("d:\test2.xls")
For Each s As XLS.Sheet In book2.Sheets
    try
        book2.Sheets.Remove(s)
        book1.Sheets.Add(s)
    catch ex As exception
        book1.Sheets.Remove(s.Name)
        book1.Sheets.Add(s)
    End try
Next
book1.Save("d:\test.xls")

 回到顶部