웹 사이트를 열고 VBA에서 Excel로 특정 값과 반환 값을 찾으십시오.

Question

VBA를 사용하여 웹 사이트를 열고이 웹 사이트의 HTML 코드에서 특정 단락을 찾고 (<p class="myClass">XYZ</p>)이 값을 Excel로 반환하고 싶습니다. 내 예 : "XYZ".

웹 사이트에는 위 클래스의 단락 (p 요소)이 하나만 있습니다.

나는 이것이 가능하지만 여기서 어디에서 시작해야할지 모른다.

내 코드 :

Dim objIE As Object 

Set objIE = CreateObject("InternetExplorer.Application") 

With objIE 
    .Navigate varUrl 
    Do While .Busy 
      Application.Wait Now + TimeValue("0:00:01") 
    Loop 
    .Visible = True 
End With 

대신 IE가 웹 요청을 사용 여는

Answer 1

Dim objIE As Object 

Set objIE = CreateObject("InternetExplorer.Application") 

With objIE 
    .Navigate varUrl 
    Do While .Busy 
      Application.Wait Now + TimeValue("0:00:01") 
    Loop 
    .Visible = True 
End With 

'HTML document 
Dim doc As Object 
Set doc = objIE.document 

Dim el As Object 
Dim myText as string 
For Each el In doc.GetElementsByClassName("myClass") 
    'put paragrah text in cell A1 
    Cells(1, 1).Value = el.innerText 

    'put your paragraph text in a variable string 
    myText = el.innerText 
Next el 

Answer 2

:

Set oRequest = New WinHttp.WinHttpRequest 
With oRequest 
    .Open "GET", sUrl, True 
    .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=UTF-8" 
    .Send "{range:9129370}" 
    .WaitForResponse 
    Set index = .ResponseText.IndexOf("<p class=""myClass"">") 
    Set text = .ResponseText.Substring(index,3) 
    Cells(row, col).Value = text 
End With 

당신은 당신이 찾고있는 문자열의 길이를 알 수없는 경우, index 뒤에 "<"문자가 나올 때까지 루프를 수행 할 수도 있습니다.

Answer 3

이것은 까다롭고 흥미로운 질문입니다. StackOverflow에서 question-hyperlink 클래스에있는 현재 웹 사이트의 제목을 얻고 싶다고 가정 해 봅시다. 따라서, @ 매트 스핑크스의 솔루션의 아이디어를 사용하여이 같은 결과가 올 수 있습니다 : 당신이 문자열의 제목을 얻고 더 작동 할 수

Option Explicit 

Public Sub TestMe() 

    Dim oRequest As Object 
    Dim strOb  As String 
    Dim strInfo  As String: strInfo = "class=""question-hyperlink"">" 
    Dim lngStart As Long 
    Dim lngEnd  As Long 

    Set oRequest = CreateObject("WinHttp.WinHttpRequest.5.1") 

    With oRequest 
     .Open "GET", "http://stackoverflow.com/questions/42254051/vba-open-website-find-specific-value-and-return-value-to-excel#42254254", True 
     .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=UTF-8" 
     .Send "{range:9129370}" 
     .WaitForResponse 
     strOb = .ResponseText 

    End With 

    lngStart = InStr(1, strOb, strInfo) 
    lngEnd = InStr(lngStart, strOb, "<") 

    Debug.Print Mid(strOb, lngStart + Len(strInfo), lngEnd - lngStart - Len(strInfo)) 

End Sub 

대신 Debug.print의.