以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  合并工作簿  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=136978)
--  作者：漂亮美眉vszh
--  发布时间：2019/6/25 17:49:00
--  合并工作簿
老师：例如某个文件夹下，有好多EXCEL工作簿，想把这些所有的工作簿内的所有工作表（一张工作簿可能存在一张或有多张表）合并到一张工作簿内。
能实现吗？完全没思路~~
--  作者：有点蓝
--  发布时间：2019/6/25 20:40:00
--  
看看：
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=90446
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=131590
--  作者：漂亮美眉vszh
--  发布时间：2019/7/24 16:15:00
--  
老师：您给的例子与在论坛中搜索了贴子，没找到相要的答案，用VBA是实现了，现在不知道用FAXTABLE如何写这段代码
意思是：A工作簿，循环B工作薄内的工作表（一个工作薄内有可能有多张表），在A工作簿内插入一张新表，接收B工作簿中的循环表
VBA代码如下：
For Each file In files     //循环工作簿，例A
          Set wb = Workbooks.Open(file.Path)  //得到工作簿A
            For y = 1 To wb.Sheets.Count   //循环B工作簿中的工作表
                wb.Sheets(y).Copy After:=Workbooks("合并工作簿转PDF.xlsm").Sheets(Workbooks("合并工作簿转PDF.xlsm").Sheets.Count)  //在A内最后一个工作表后插入新工作表，接收B内循环的工作表，这种方式不会破坏原有表格式
            Next y
           wb.Close
    Next
用FOXTABLE如何写这句？
--  作者：有点蓝
--  发布时间：2019/7/24 16:31:00
--  
看不懂。

上传具体实例看看
--  作者：漂亮美眉vszh
--  发布时间：2019/7/24 16:41:00
--  
这个我只做了VBA的，用FOXTABLE写不出来，VBA也就是上述发你的代码
意思：循环B工作簿内的表格（可能一个工作簿中有多个表），在A工作簿最后插入一张工作表，将B内的表粘贴到A新插入的表中
--  作者：有点蓝
--  发布时间：2019/7/24 16:54:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=131590，看8楼
--  作者：漂亮美眉vszh
--  发布时间：2019/7/24 17:46:00
--  
自己在论坛上搜到过这个帖子，代码上午就试过，他是合并到同一张表上，我是合并到新插入的工作簿中，不一样
--  作者：有点蓝
--  发布时间：2019/7/25 8:32:00
--  
代码是死的，人是活的，学会灵活运用。

参考：http://www.foxtable.com/webhelp/topics/2121.htm

WorkBook

WorkBook对象代表Microsoft Excel工作簿，它在Application对象的下一层。WorkBook是WorkBooks集合的成员。

常用方法

  • Add

    创建新的工作簿。如下面的代码，就将新建一个工作簿，该工作簿的第一个工作表的名称改为hhh，同时在A1单元格写入“hhh123”，然后保存为D:\\123.xls。

    Dim App As New MSExcel.Application
    Dim Wb As MSExcel.Workbook = App.WorkBooks.Add
    Wb.WorkSheets(1).name = "hhh"
    Wb.WorkSheets(1).range("A1").Value = "hhh123"
    Wb.SaveAs("d:\\123.xls")
    App.Quit

    需要说明的是，在创建新工作簿后，该工作簿就成为活动工作簿。