Sub 데이터_가져오기()

    ChDir "C:\예제\Part 02\Chapter 05"
    Workbooks.Open Filename:="C:\예제\Part 02\Chapter 05\급여대장.xlsx"
    Range("I6:I10").Copy
    Windows("급여 분석.xlsm").Activate
    Range("C6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("급여대장.xlsx").Activate
    ActiveWindow.Close

End Sub
