將其他工作簿中的內容複製並粘貼到當前工作簿中

我有一些代碼可以從網上下載excel文件。我需要它將其內容複製並粘貼到我當前的工作簿中，但是我收到「下標超出範圍」錯誤。代碼如下，並提前致謝！將其他工作簿中的內容複製並粘貼到當前工作簿中

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

來源

2016-03-13 Mark Watney

請[編輯]你的問題，並添加一些注入你的代碼。 –

IDK你的意思。在我的屏幕上，代碼是縮進的。 –

這也是我的縮寫。當你在錯誤上點擊「調試」時，它在哪裏突出顯示？ – Rodger

請在下面試試這個代碼CopyingRange

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

祝你好運！

來源

2016-03-13 18:58:29 Hadi

仍然無法正常工作。調試器突出顯示您提供的代碼，就像以前一樣。 –

將其他工作簿中的內容複製並粘貼到當前工作簿中

回答

相關問題