excel with vb 기초

종합리스트.xlsm

리스트1.xlsx

리스트2.xlsx

종합리스트.xlsx

Option Explicit

Sub totalList()

    Dim cntWorkBook As Integer
    Dim cntWorksheet As Integer
    Dim rowCnt As Single
    Dim i As Integer

    '1. 열기대화상자
    Application.Dialogs(xlDialogOpen).Show
   
    '2. WorkBook의 수
    cntWorkBook = Workbooks.Count
   
    '3. 새로 열기한 WorkSheet의 수 - 즉 가장 마지막에 연 workbook의 Sheet이다.
    cntWorksheet = Workbooks(cntWorkBook).Worksheets.Count
   
    '4. 작업하는 WorkBook의 행번호
    rowCnt = ThisWorkbook.Worksheets(1).Range("b3").CurrentRegion.Rows.Count + 3
   
    '5. 자료옮기기
     For i = 1 To cntWorksheet
       
        ThisWorkbook.Worksheets(1).Cells(rowCnt, 3) = Worksheets(i).Range("a1")
        ThisWorkbook.Worksheets(1).Cells(rowCnt, 4) = Worksheets(i).Range("b12")
        ThisWorkbook.Worksheets(1).Cells(rowCnt, 5) = Worksheets(i).Range("b13")
        ThisWorkbook.Worksheets(1).Cells(rowCnt, 6) = Worksheets(i).Range("b10")
        ThisWorkbook.Worksheets(1).Cells(rowCnt, 7) = Worksheets(i).Range("b9")
               
        rowCnt = rowCnt + 1
   
    Next i
   
    '6. workBook 닫기
    Workbooks(cntWorkBook).Close
   
End Sub