Sub 데이터_가져오기()

    ChDir "C:\예제\Part 02\Chapter 05"
    Workbooks.Open Filename:="C:\예제\Part 02\Chapter 05"\급여대장.xlsx"
    Range("I6:I10").Copy
    Workbooks("급여 분석.xlsm").Activate
    Range("C6").PasteSpecial Paste:=xlPasteValues
    Workbooks("급여대장.xlsx").Activate
    ActiveWorkbook.Close

End Sub