如何通过vba从所有打开的excel工作簿进行摘要报告？

Question

我有一个包含相同类型工作簿的文件夹，其中包含单张工作表，即发票表。        我想要一个vba代码，这样我就可以在一个新工作簿中制作一个摘要报告，该工作簿将从每个工作簿中复制账单号，客户名称，金额等，并且还会计算总金额。我希望你已经理解了什么我的意思是说。        有没有聪明的头脑？

Answer 1

使用此功能。

 Sub GetSheets()
    Path = "C:\Users\dt\Desktop\dt kte\"
    Filename = Dir(Path & "*.xls")
    Do While Filename <> ""
    Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
    For Each Sheet In ActiveWorkbook.Sheets
    Sheet.Copy After:=ThisWorkbook.Sheets(1)
    Next Sheet
    Workbooks(Filename).Close
    Filename = Dir()
    Loop
    End Sub