엑셀에 HTML소스 가져오기(VBA)

인터넷을 돌아다니다보니 VBA에 관련된자료들이 많이 검색됩니다.

신기하게도 엑셀내에 비주얼베이직의 코드를 사용할수 있네요..

예~전에 컴활 2급있을시절에 얼핏 보긴햇는데 그땐 뭔지도 몰랐으니..

Function GetHTML(URL As String) As String

 

    With CreateObject("MSXML2.XMLHTTP") 'ServerXMLHTTP.3.0

            .Open("GET", URL, False)

            .Send()

            GetHTML = .ResponseText

        End With

    End Function

        .Open "GET", URL, False

        .Send

        GetHTML = .ResponseText

    End With

End Function

VBA에서 사용가능한 HTML소스 받아오는 함수입니다..(닷넷에서도 쓸수는있습니다..)

저 위의 Button1을 클릭하면 1,1좌표의 셀에 소스를 뿌립니다.

변수에 넣어놓고 규격에 맞게 자동으로 파싱해서 엑셀자료를 만들수도있겠네요..

VB.NET에서도 엑셀을 참조해서 데이터를 엑셀파일로 저장할수도 있지만 

엑셀파일이 목표라면 이방법이 더 편할것 같네요..