ÆÄ¿ö¸µÅ©µî·Ï¾È³»
# ¿¢¼¿ Çϳª ¹Þ¾Æ¼ ¼ö·ÉÇÏ·Á Çϴµ¥ ¿ö³« ÄĸÍÀÌ¶ó ¹«½¼ ¸»ÀÎÁö µµÅë ¾Ë¼ö°¡ ¾ø¾î Áú¹®µå¸³´Ï´Ù.
# ¿øº» ¿¢¼¿º¸¸é ³»¿ë ¿·¿¡ ¸µÅ©¸¦ ¸¸µé¾î¼ °Ë»öµÈ Á¦¸ñ°ú ³»¿ë¿¡ ÇØ´çµÇ´Â ´º½º±â»ç URLÀ» ±âÀçÇÏ°í ½ÍÀºµ¥
# ¾î¶² ³»¿ëÀ» ÀÛ¼ºÇؼ ºÒ·¯¿Í¾ß ÇÏ´ÂÁö ¾Ë¼ö°¡ ¾ø¾î¼
# ÀÌ·¸°Ô Áú¹® µå¸³´Ï´Ù. Ȥ½Ã °í¼öºÐµé²²¼ ¾Æ½Å´Ù¸é µµ¿ò ºÎŹµå¸®°Ú½À´Ï´Ù. °¨»çÇÕ´Ï´Ù.
# ¹Ø¿¡´Â ¸ðµâ¾È¿¡ µé¾î°¡ÀÖ´Â ÇÁ·Î±×·¥ º¹»çÇÏ¿© ¿Ã¸³´Ï´Ù. ´Ù½Ã Çѹø µµ¿ò Áּż °¨»ç¸»¾¸ µå¸³´Ï´Ù.
Sub ÃʱâÈ()
Range("5:1048576").ClearContents
End Sub
Sub °Ë»ö()
r = 5
Å°¿öµå = Range("A2").Value
For Page = 1 To 10
Start = (Page - 1) * 10 + 1
Set doc = GetDocumentByURL("https://search.naver.com/search.naver?where=news&sm=tab_jum&query=" & Å°¿öµå & "&start=" & Start)
For i = 0 To 9
Cells(r, 1).Value = doc.querySelectorAll(".news_tit").Item(i).innertext
Cells(r, 2).Value = doc.querySelectorAll(".api_txt_lines").Item(i).innertext
Rows(r).Select
DoEvents
r = r + 1
Next
Next
End Sub
Function GetDocumentByURL(URL)
Set winHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
Set document = CreateObject("Htmlfile")
winHttp.Open "GET", URL, False
winHttp.send
document.body.innerhtml = winHttp.responsetext
Set GetDocumentByURL = document
End Function
Set doc = GetDocumentByURL("https://search.naver.com/search.naver?where=news&sm=tab_jum&query=" & Å°¿öµå & "&start=" & Start)
¿©±â¿¡ urlÀÌ »ç¿ëµÇ´Ï±ñ Àú urlÀ» ±×³É °ªÀ¸·Î »Ñ·ÁÁÖ¸é ¸µÅ©·Î µÉ °Å¿¡¿ä.
dim url as string ½ºÆ®¸µ º¯¼ö ¸¸µé¾îÁÖ°í
url = https://search.naver.com/search.nav..." & Å°¿öµå & "&start=" & Start º¯¼ö¿¡ url ³Ö¾îÁÖ°í
Set doc = GetDocumentByURL(url) Cells(r, 3).Value = url °¢°¢ ÇÊ¿äÇÑ °÷¿¡¼ »ç¿ë
ÀÌ·±½ÄÀ¸·Î ÇÏ½Ã¸é µÉ °Í °°¾Æ¿ä.
±×¸®°í range ¾Õ¿¡´Â ½ÃÆ®¸íÀ» ºÙ¿©ÁÖ´Â°Ô ÁÁ½À´Ï´Ù. range, cells, rows µî |