dino123

ÁÂÁª©¥D¶}ª©¡Aµ{¦¡§Ú¦³®³¨Ó§ï«á¨Ï¥Î
¦ý¤W¬P´Á(11109)¶°«Oªººô¯¸§ïª©¤F
§Ú¦Û¤v§ï¤£¥X¨Ó§ì¨ú¡A¯à§_§ï¤@¤U©O

dino123

¦^´_ 22# quickfixer


    ·PÁ¦^´_¡K¦ý§Ú«á¨Ó¥Îªº§ìªk¡A¦n¹³¤£¤Ó¤@¼Ë¡A§Ú¥ÎWinHttp ¦ü¥G§Ö«Ü¦h¡C §Ú§â§Ú¥Îªºµ{¦¡¶K¦b¤U­±·sªº¤@«h¶K¤å

dino123

§Úªºµ{¦¡¡A¤@¦¸·|§ì¨ú¤@¦~¤U¨ÓªºTDCC ¸ê®Æ
¤£¾å±o³o¦¸§ïª©«á¡A§Úªºµ{¦¡¨ºÃä¹ïÀ³¤£¨ì¡A

Sub GoTDCC1yr()
'
' GoTDCC1yr Macro
'
Dim TWYear, CEYear As String
    For m = 1 To 51
        Dim WinHttp As Object, DOM As Object, Table As Object
        Dim url As String, Title() As String, Stockid As String, weekDate As String
        Dim i As Integer, j As Integer

        TWYear = Sheets("¤T¤jªk¤H").Cells(m, "O") '¥Á°ê¦~¤é´Á
        CEYear = Sheets("¤T¤jªk¤H").Cells(m, "P")  '¦è¤¸¦~¤é´Á
        Sheets(TWYear).Activate
StartTDCC:
        Stock = Worksheets("¤T¤jªk¤H").Range("M1").Value  'ªÑ²¼¥N½X
        weekDate = Sheets("¤T¤jªk¤H").Cells(m, "P")   '¦è¤¸¦~¤é´Á tdcc ¥Î¦è¤¸¦~¤ë¤é
        url = "https://www.tdcc.com.tw/portal/zh/smWeb/qryStock"  ' §ï³o¼Ë¬O§_¥¿½T¡H
        '  url = "https://www.tdcc.com.tw/smWeb/QryStockAjax.do"    ­ì¥»url

        Set WinHttp = CreateObject("winhttp.winhttprequest.5.1")
        Set DOM = CreateObject("htmlfile")

        With WinHttp                                    '³o¸Ì¤£ª¾¦p¦ó§ï¹ïÀ³³o¦¸ªº§ïª©
            .Open "POST", url, False
            .setrequestheader "Content-Type", "application/x-www-form-urlencoded"
            .send "scaDate=" & weekDate & "&clkStockNo=" & Stock & "&REQ_OPR=SELECT"
        
            If .Status = 200 Then
                DOM.body.innerHTML = .responsetext
            End If
        End With

        Set Table = DOM.getElementsByTagName("table")
        i = 1
        For Each tr In Table(6).Rows                                                     ' ÁÙ¬O¦^¶Ç¸ê®Æ­n§ï¡H
            j = 1
            For Each td In tr.Cells
                Sheets(TWYear).Cells(i, j) = td.innerText
                j = j + 1
            Next
            i = i + 1
        Next
   
        i = 2
        For Each tr In Table(7).Rows
            j = 1
            For Each td In tr.Cells
                Sheets(TWYear).Cells(i, j) = td.innerText
                j = j + 1
            Next
            i = i + 1
        Next
   
        Set Table = Nothing
        Set DOM = Nothing
        Set WinHttp = Nothing
              
    Next
   
End Sub