Sub 데이터_가져오기()

    Dim 경로 As String
    Dim 파일명 As String

    경로 = ThisWorkbook.Path
    파일명 = "급여대장.xlsx"

    ChDir 경로
    Workbooks.Open Filename:=경로 & "\" & 파일명
    Range("I6:I10").Copy
    ThisWorkbook.Activate
    Cells(6, Month(Date)+2).PasteSpecial Paste:=xlPasteValues
    Workbooks(파일명).Activate
    ActiveWorkbook.Close

End Sub