合并表讨教

xing_chen

老师，有2簿，2簿不在同文件夹，甚而有时在不同的盘符。其中1簿为"数据"簿含有12表，另1簿为"汇总"簿。现欲在"汇总"簿中，将“数据”簿中的12表，导入在“汇总”簿中的1表中。文件中有代码（为同簿中合并工作表，未成），并有样张。敬请老师赐教。谢谢

lcluck2002

合并表0629.xls
仅供参考！

哎哟哥哥

Sub 数据合并()
Dim i, j, k As Integer
Dim str As String
Dim wb As Workbook
Dim sht As Worksheet
p = ThisWorkbook.Path
    Set wb = Workbooks.Open(p & "\数据.xls")
        For Each sht In wb.Sheets
            j = ThisWorkbook.Sheets("汇总").Range("a65536").End(xlUp).Row
            k = sht.Range("a65536").End(xlUp).Row
            sht.Range("a7:r" & k).Copy ThisWorkbook.Sheets("汇总").Range("a" & j + 1)
        Next
    wb.Close
End Sub

xing_chen

lcluck2002 发表于 2023-6-29 22:59
合并表0629.xls
仅供参考！

谢谢老师！运行如愿！数据簿与汇总簿不在同个文件夹，甚而分属不同的盘符，则代码有如何修改？

xing_chen

lcluck2002 发表于 2023-6-29 22:59
合并表0629.xls
仅供参考！

谢谢老师！你的注释非常有助于我的学习。谢谢

xing_chen

哎哟哥哥 发表于 2023-6-29 23:00
Sub 数据合并()
Dim i, j, k As Integer
Dim str As String

谢谢老师！运行如愿！但能否修改为选择文件夹导入工作簿？

ykcbf1100

参与一下吧。

xing_chen

ykcbf1100 发表于 2023-6-30 08:55
参与一下吧。

谢谢老师！运行如愿