엑셀, 파일열지않고 값 복사해오기

http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=72846894&qb=7JeR7IWA7YyM7J28IOyXtOyngCDslYrqs6Ag7JeF642w7J207Yq4&enc=utf8&section=kin&rank=3&search_sort=0&spq=0
 
Sub Macro1()
Dim rng As Range, rngList As Range
Dim strVar As String, strFile As String
  Set rngList = Range(Cells(2, 1), Cells(Rows.Count, 1).End(3))
  With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
   For Each rng In rngList
   strFile = ThisWorkbook.Path & Application.PathSeparator & rng.Value & ".xls"
   If Dir(strFile) <> Empty Then
    Workbooks.Open Filename:=ThisWorkbook.Path & "\" & rng.Value & ".xls"
       strVar = Sheets("Ratio").Range("B38").Value
         rng.Next = IIf(strVar = "비율산정 없음", "-", strVar)
        ActiveWorkbook.Close
        Else
          rng.Next = "Skip"
        End If
      Next rng
       .ScreenUpdating = True
      .DisplayAlerts = True
  End With
End Sub