多个工作簿里的固定表内容复制黏贴到指定工作簿的指定表

ajgdm122

感谢各位朋友支招：



一个文件夹里有个“汇总工地明细”的工作簿，里面有个“”汇总表“”；


这个文件夹里还有根据需要统计的其他表格，名称不定，但里面的“工地明细”表这个表格的格式是固定的，表名称也是固定的；

需求就是把要统计的“工地明细”表除了表头外复制黏贴到“汇总工地明细”的工作簿里的“”汇总表“”，这个VBA怎么写？本人VBA还没学到这么深

ykcbf1100

附件请参考。。。

gwjkkkkk

Option Explicit
Sub test()
    Dim strFileName$, strPath$, Rng As Range, iRow&
   
    Application.ScreenUpdating = False
    strPath = ThisWorkbook.Path & "\"
    strFileName = Dir(strPath & "*.xls*")
   
    [A1].CurrentRegion.Offset(1).ClearContents
    Do Until strFileName = ""
        If strFileName <> ThisWorkbook.Name Then
            iRow = Cells(Rows.Count, "A").End(3).Row + 1
            With GetObject(strPath & strFileName)
                With .Sheets("工地明细").[A1].CurrentRegion
                    Set Rng = Intersect(.Offset(), .Offset(1))
                    Rng.Copy Cells(iRow, 1)
                End With
                .Close False
            End With
        End If
        strFileName = Dir
    Loop
   
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考。。。

ajgdm122

ykcbf1100 发表于 2023-3-14 13:13
附件请参考。。。

感谢，但是会自动复制多一次是什么原因？

ykcbf1100

ajgdm122 发表于 2023-3-14 14:27
感谢，但是会自动复制多一次是什么原因？

数据多了？

ajgdm122

gwjkkkkk 发表于 2023-3-14 13:28
请参考。。。

大哥你好，上次帮我写的表很好用，非常感谢！

但是我现在又遇到新的问题，就是需要汇总的原始表格里“验收年月”里会有不同年份和月份，比如2022年12月，2023年1月，2023年2月这样的数据，能否设计成点“按钮1”的时候会弹出一个框“请输入需要汇总的验收年月”，然后我就输入2023年2月，他才开始汇总2023年2月的。占用您宝贵时间，非常感恩，盼望回复！

fzxba

参与.rar (1 MB, 下载次数: 29)

2023-3-19 11:49 上传

点击文件名下载附件

ajgdm122

fzxba 发表于 2023-3-19 11:49

非常感谢！及时雨

fzxba

ajgdm122 发表于 2023-3-19 12:45
非常感谢！及时雨

嗯，及时雨浇灌 鲜花，花更娇媚艳丽。