如何将包含多个工作表的工作簿合并成一个工作簿

a68508122

smartelfs 发表于 2014-10-11 20:46
合并前  sheet 外币日均 和  sheet外币时点 两个表中的AH-AK有内容 ...

test04-v2.rar (29.08 KB, 下载次数: 103)

2014-10-12 19:56 上传

点击文件名下载附件

希望您满意

smartelfs

a68508122 发表于 2014-10-12 19:57
希望您满意

Perfect!!~~~~

三克油~~~~

excel_芳婷

liulang0808 发表于 2014-10-9 08:46
http://club.excelhome.net/blog-238368-1694.html
遍历各个工作薄及其表，然后看具体怎么合并吧
上面的 ...

效果xls就是我的需求，文件夹下的工作簿合并到效果xls下的sheet，但一定要保持原格式列宽。在线急等。

excel_芳婷

a68508122 发表于 2014-10-12 19:57
希望您满意

效果xls就是我的需求，文件夹下的工作簿合并到效果xls下的sheet，但一定要保持原格式列宽。在线急等。

liulang0808

excel_芳婷 发表于 2015-10-27 11:01
效果xls就是我的需求，文件夹下的工作簿合并到效果xls下的sheet，但一定要保持原格式列宽。在线急等。

...

遍历文件见示例
表格拷贝，直接用sheets(1).copy after.......这种方式，保证是你需求的

excel_芳婷

liulang0808 发表于 2015-10-27 11:06
遍历文件见示例
表格拷贝，直接用sheets(1).copy after.......这种方式，保证是你需求的

你好，能做给我吗？一定要保留原列宽，因为我vba不是很明白，我刚学的，我看过你的那个，我还要逐句逐句翻译，最好写备注，谢谢。在线等。

liulang0808

excel_芳婷 发表于 2015-10-27 11:17
你好，能做给我吗？一定要保留原列宽，因为我vba不是很明白，我刚学的，我看过你的那个，我还要逐句逐句 ...

Sub aa()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set fso = CreateObject("scripting.filesystemobject")
    Set ff = fso.getfolder(ThisWorkbook.Path) 'ThisWorkbook.Path是当前代码文件所在路径，路径名可以根据需求修改
    For j = 2 To Sheets.Count
        Sheets(j).Delete
    Next j
    For Each f In ff.Files
        If InStr(f.Name, ThisWorkbook.Name) = 0 Then
            Set wb = Workbooks.Open(f)
            wb.Sheets(1).Copy after:=ThisWorkbook.Sheets(1)
            ThisWorkbook.Sheets(2).Name = f.Name
            wb.Close False
        End If
    Next f
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

End Sub

excel_芳婷

liulang0808 发表于 2015-10-27 12:53
Sub aa()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

我已经发到你的QQ邮箱，求回复。

liulang0808

excel_芳婷 发表于 2015-10-29 18:15
我已经发到你的QQ邮箱，求回复。

具体要解决什么？

macro_23

银行系统的记录合并，谢谢分享code