웹 페이지 -Excel VBA에서 링크 / URL 가져 오기
Matchendran
웹 페이지에서 검색 결과 링크를 가져 오는 매크로를 작성하고 싶습니다. 나는 이렇게 썼다
Sub webpage()
Dim internet As InternetExplorer
Dim internetdata As HTMLDocument
Dim internetlink As Object
Dim internetinnerlink As Object
Set internet = CreateObject("InternetExplorer.Application")
internet.Visible = True
internet.Navigate ("URL")
Do While internet.Busy
DoEvents
Loop
Do Until internet.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
Set internetdata = internet.Document
Set internetlink = internetdata.getElementsByTagName("a")
i = 1
For Each internetinnerlink In internetlink
ActiveSheet.Cells(i, 2) = internetinnerlink.href
i = i + 1
Next internetinnerlink
End Sub
위의 코드는 웹 페이지의 모든 링크를 가져 오지만 검색 결과 링크 만 필요합니다. 하나의 이미지를 업로드했는데 이것이 내 웹 페이지라면 모든 링크가 아닌 검색 결과 링크 만 가져 가면됩니다. 이 문제를 해결하도록 도와주세요
산토스
이 코드 시도
Sub webpage()
Dim internet As Object
Dim internetdata As Object
Dim div_result As Object
Dim header_links As Object
Dim link As Object
Dim URL As String
Set internet = CreateObject("InternetExplorer.Application")
internet.Visible = True
URL = "https://www.google.co.in/search?q=how+to+program+in+vba"
internet.Navigate URL
Do Until internet.ReadyState >= 4
DoEvents
Loop
Application.Wait Now + TimeSerial(0, 0, 5)
Set internetdata = internet.Document
Set div_result = internetdata.getelementbyid("res")
Set header_links = div_result.getelementsbytagname("h3")
For Each h In header_links
Set link = h.ChildNodes.Item(0)
Cells(Range("A" & Rows.Count).End(xlUp).Row + 1, 1) = link.href
Next
MsgBox "done"
End Sub
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
에서 수정
관련 기사
Related 관련 기사
- 1
웹 페이지에서 링크 가져 오기
- 2
웹 페이지에서 링크 가져 오기
- 3
[JAVA] 웹 페이지에서 html 링크 가져 오기
- 4
BeautifulSoup으로 웹 페이지에서 링크 가져 오기 및 스크롤링
- 5
Python 및 셀레늄-웹 페이지에서 모든 링크 가져 오기
- 6
웹 페이지에서 모든 HTTP URL 가져 오기
- 7
Android에서 웹 페이지 크기 (바이트) 가져 오기
- 8
스크립트 (seajs)로 작성된 웹 페이지에서 Excel로 데이터 가져 오기
- 9
Django 템플릿에서 페이지 URL 가져 오기 및 링크 단축
- 10
웹 페이지에서 모든 링크를 가져 오지 못함
- 11
여러 내부 텍스트로 웹 페이지 Excel vba에서 데이터 가져 오기
- 12
셀 VBA Excel에서 명시 적 시트 하이퍼 링크 가져 오기
- 13
승인 후 URL에서 웹 페이지 텍스트 가져 오기
- 14
Razor 페이지의 마크 업에서 페이지 URL 가져 오기
- 15
일부 웹 페이지에서 Ajax 호출 내에서 요청 된 페이지 <url> 가져 오기
- 16
Excel VBA-웹 스크랩 핑-HTML 표 셀에서 값 가져 오기
- 17
Python으로 웹 사이트에서 오디오 소스 링크 가져 오기
- 18
내 웹 페이지에서 링크드 인 URL을 실행하면 오류가 발생합니다.
- 19
테이블의 모든 항목에 대한 웹 링크 가져 오기 및 페이지 매김
- 20
웹 페이지에서 이미지 URL을 가져 오는 방법
- 21
Fluid-링크에서 페이지 제목 가져 오기
- 22
URL에서 문자열 가져 오기 (웹 스크래핑)
- 23
입력에서 기본 웹 사이트 URL 가져 오기
- 24
contao에 대한 후크 내에서 현재 페이지 URL 가져 오기
- 25
페이지 및 다음 페이지에서 URL 가져 오기
- 26
WWW :: Mechanize 및 Perl을 사용하여 웹 페이지에서 링크를 가져 오는 방법
- 27
삽입 된 JS 스크립트에서 페이지 URL 가져 오기
- 28
웹 페이지에서 테이블 가져 오기
- 29
PHP의 웹 페이지에서 데이터 가져 오기
몇 마디 만하겠습니다