Копирование и вставка содержимого из другой книги в текущую книгу

Question

У меня есть код, который загружает файл Excel из Интернета. Мне нужно его скопировать и вставить его содержимое в мою текущую книгу, но я получаю ошибку «Subscript out range». Код ниже, и спасибо заранее!

Sub dwnld() 
    Set IE = New SHDocVw.InternetExplorer 
    IE.Visible = True 
    IE.navigate "http://broomfield.flatironslibrary.org/" 

    While IE.Busy 
    DoEvents 
    Wend 
    Do Until Not IE.Busy And IE.readyState = 4 
    DoEvents 
    Loop 

IE.document.getElementsByClassName("hidden-xs header-button header-primary")(0).Click 
Application.Wait (Now + #12:00:02 AM#) 
IE.document.getElementById("username").Value = "user" 
IE.document.getElementById("password").Value = "pass" 
IE.document.getElementsByClassName("btn btn-primary extraModalButton")(0).Click 
Application.Wait (Now + #12:00:02 AM#) 
IE.navigate ("http://broomfield.flatironslibrary.org/MyAccount/CheckedOut?exportToExcel") 
Application.Wait (Now + #12:00:02 AM#) 
Application.SendKeys ("%o") 
Application.Wait (Now + #12:00:05 AM#) 
Call CopyingRange 

End Sub 

Копирование Код Диапазон:

Sub CopyingRange() 
    Workbooks("CheckedOutItems").Sheets("Checked Out").Range("A3:E62").Copy Range("B2") 
End Sub 

Answer 1

Пожалуйста, попробуйте этот код ниже CopyingRange

Sub CopyingRange() 
     Workbooks("CheckedOutItems").Sheets("Checked Out").Range("A3:E62").Copy ThisWorkBook.ActiveSheet.Range("B2") 
End Sub 

Удачи!