vba를 사용하여 웹 사이트에서 소스 코드를 다운로드하는 방법은 무엇입니까?

Question

웹 사이트에서 소스 데이터를 얻고 활성 워크 시트의 각 행을 다운로드, 복사 및 붙여 넣는 매크로를 작성했습니다. 라인 2 (k - 1) .Copy에서 다음 라인으로 이동하면 Run Time error 424 Object가 필요합니다. 코드 아래

Private Sub UserForm_Click() 
Dim URL2 As String: URL2 = "http://finance.yahoo.com/" 
' to get data from the url we need to creat a win Http object_ 
' tools > references > select Windows Win Http Services 5.1 

Dim Http2 As New WinHttpRequest 
'open the url 
Http2.Open "GET", URL2, False 
'Debug.Print s 
'Debug.Print URL 

' send request 
Http2.Send 
MsgBox Http2.ResponseText 
Debug.Print s 
'Debug.Print Http2 
Debug.Print URL2 
Dim Resp As String: Resp = Http2.ResponseText 
Dim Lines2 As Variant: Lines2 = Split(Resp, vbNewLine) 
Debug.Print Lines2(0) 

f = UBound(Lines2) 

For k = 1 To f + 1 
Lines2(k - 1).Copy 
Range(10 + k, 1).Select 
ActiveSheet.Paste 
Next k 

End Sub 

Answer 1

시도

Private Sub UserForm_Click() 
    Dim URL2 As String: URL2 = "http://finance.yahoo.com/" 
    ' to get data from the url we need to creat a win Http object_ 
    ' tools > references > select Windows Win Http Services 5.1 

    Dim Http2 As New WinHttpRequest 
    'open the url 
    Http2.Open "GET", URL2, False 
    'Debug.Print s 
    'Debug.Print URL 

    ' send request 
    Http2.Send 
    MsgBox Http2.ResponseText 
    Debug.Print s 
    'Debug.Print Http2 
    Debug.Print URL2 
    Dim Resp As String: Resp = Http2.ResponseText 
    Dim Lines2 As Variant: Lines2 = Split(Resp, vbNewLine) 
    Debug.Print Lines2(0) 

    For k = LBound(Lines2) To UBound(Lines2) 
     ActiveSheet.Cells(10 + k, 1).Value = Lines2(k) 
    Next k 
End Sub