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