Excel VBA 를 이용한 web page scraping

회사에서 컴퓨터를 사용하다보면 McAfee 보안 프로그램이 별거를 다 막는다. 간단한 웹페이지를 읽어보려 해도 python 조차 안된다. 그런데 우연히 Visual Studio (2012) 의 vb.net 으로 해 보니 이건 또 된다. 단, 통합환경 하에서 소스코드 채로 실행할 경우에 한해서... 실행파일로 컴파일해 놓고 그 실행파일을 돌려보면 또 안되고... 그렇다고 그 무거운 visual studio 항상 띄워서 사용하기도 그렇고 해서 늘상 열어두고 주로 사용하는 Excel 2013 의 vba 코드로도 같은 일이 되는지 확인. 잘 됨. 이에 간단한 테스트 코드를 기록해 둠.

Private Sub WebScrapingTest()

    Dim ie As Object

    Dim ieDoc As Object

    Set ie = CreateObject("internetexplorer.application")

    ie.Visible = True 'False

    ie.Navigate "http://www.google.com"

    Do Until (ie.readyState = 4 And Not ie.busy)

        DoEvents

    Loop

       

    Set ieDoc = ie.document

    Dim s As String

    s = ie.document.body.innerhtml

    'Debug.Print s

    ie.Quit   

    

    Dim filenum As Integer

    filenum = FreeFile

    Open "d:\z\1.html" For Output As #filenum

    Print #filenum, s

    Close #filenum

    

    Debug.Print "done"

End Sub