# 엑셀 하나 받아서 수령하려 하는데 워낙 컴맹이라 무슨 말인지 도통 알수가 없어 질문드립니다.
# 원본 엑셀보면 내용 옆에 링크를 만들어서 검색된 제목과 내용에 해당되는 뉴스기사 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.naver?where=news&sm=tab_jum&query=" & 키워드 & "&start=" & Start
변수에 url 넣어주고
Set doc = GetDocumentByURL(url)
Cells(r, 3).Value = url
각각 필요한 곳에서 사용
이런식으로 하시면 될 것 같아요.
그리고 range 앞에는 시트명을 붙여주는게 좋습니다.
range, cells, rows 등