ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

VBA¥N½XµLªk¤U¸üYAHOOªÑ¥«ªº§Y®É¸ê®Æ

VBA¥N½XµLªk¤U¸üYAHOOªÑ¥«ªº§Y®É¸ê®Æ

½Ð±Ð¤@¤U¡A¥»¨Ó¬O¨Ï¥Î³oVBA¥N½X¥h¤U¸üYAHOOªÑ¥«ªº§Y®É¸ê®Æ
¤£ª¾¹D¬°¤°»ò«á¨Ó´N¤£¯à¦A¨Ï¥Î¡AµLªk§ó·s·sªº§Y®É¸ê®Æ
½Ð±Ð¦U¦ì«e½ú¬O§_­þ¸Ì¦³°ÝÃD©O¡H
Sub Z¤Î®ÉªÑ»ù()

    Dim myXML As Object
    Set myXML = CreateObject("Microsoft.XMLHTTP")

    Dim myHTML As Object
    Set myHTML = CreateObject("HTMLFile")

    On Error Resume Next
    i = 2
    With myXML

        Do While Cells(2 + QQ, 1) <> ""
   
            .Open "GET", "XXXXXX" & Timer & "&s=" & Cells(2 + QQ, 1), False
            
            
            '¥H¤U³o3¦æÁקK§ì¨ì¼È¦s¸ê®Æ
            .setRequestHeader "Cache-Control", "no-cache"
            .setRequestHeader "Pragma", "no-cache"
            .setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
            .send
            
            '§â¶Ç¦^­ÈÂন¼Ð·Çhtmlfile
             myHTML.body.innerHTML = .responseText
            
            Set myTable = myHTML.getElementsByTagName("table")(6)
            
            For j = 1 To 10
               
                Cells(i, j + 1) = myTable.Rows(1).Cells(j).innerText
            
            Next
            
            i = i + 1
            
            '±NªÑ²¼¥N¸¹¾É¤JCMoney¶W³sµ²
            Cells(2 + QQ, 1).Select
            ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
            "XXXXX" & Cells(2 + QQ, 1) & "?chart=d"
            
            QQ = QQ + 1
        Loop
        
    End With
   
    'ÄÀ©ñ°O¾ÐÅé
    Set myXML = Nothing
    Set myHTML = Nothing

    Var = MsgBox("§ó·s§¹¦¨", vbOKOnly, "°T®§")

End Sub

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD