2014-10-01 3 views
0

vba 프로그래밍에 익숙하지 않고 약간의 프로그램에 대한 도움을 얻기를 원했지만 어려움을 겪고 있습니다. 이 코드에서해야 할 일은 요소에서 특정 데이터를 추출하는 것입니다. 그래서이 예에서는 각 사람의 전화 번호를 추출하고 싶습니다.Excel getElements를 사용하여 특정 텍스트 추출하기

요소의 모든 데이터를 인쇄하는 코드를 얻을 수 있지만 요소의 모든 정보가 아닌 지정된 정보 만 추출하려고합니다. 어떤 도움이라도 굉장합니다.

Set Elements = IE.Document.getElementById("member-items").getElementsByTagName("p") 

    'Get information 
    r = 0 
    c = 0 
    For Each Element In Elements 
     If Element.innerText Like "phone" Then 
      Sheet1.Range("A1").Offset(r, c).Value = Element.innerText 
      Debug.Print Element.innerText 
      r = r + 1 
     End If 
    Next Element 

답변

0

알았어. 나는 그 텍스트가 CAP에 민감하다는 것을 깨닫지 못했다. 따라서 "전화"를 사용하는 대신 CAP "P"가있는 "전화"를 사용했고 코드가 완벽하게 작동했습니다. 록키 실수. =). 희망이 밖에서 다른 초보자를 도와줍니다. 대신 다음 코드를 사용했습니다.

For Each Element In Elements 
     If InStr(Element.innerText, "Phone") Then 
      Sheet1.Range("a1").Offset(r, c).Value = Element.innerText 
      Debug.Print Element.innerText 
      r = r + 1 
     End If 
    Next Element 
관련 문제