- ©«¤l
- 25
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 77
- ÂI¦W
- 61
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ª¶¯
- µù¥U®É¶¡
- 2017-11-19
- ³Ì«áµn¿ý
- 2018-4-25
|
³Ìªñ¶°«Oºô¯¸§ïª©¡A¦]¦¹¼g¤F¦¹µ{¦¡¡A¦ý¥u¬O²Ê²¤¦a§â¸ê®Æ§ì¤U¨Ó¡A¨S¦³¦h¥[¾ã²z
Y¦³À°§U¨ì±z¡A§Æ±æ±z¦b¤U¤è¯dÓ¨¥Åý§Úª¾¹D³á:loveliness:
Ó¤H¤£¤Ó³ßÅwIEªk¡A©Ò¥H¥Îªº¬OWinHttpRequest¡A³t«×§Ö«Ü¦h- Sub test()
- Cells.Clear
- Dim myXML As Object
- Set myXML = CreateObject("WinHttp.WinHttpRequest.5.1")
- Dim myHTML As Object
- Set myHTML = CreateObject("HTMLFile")
- With myXML
- .Open "POST", "https://www.tdcc.com.tw/smWeb/QryStockAjax.do", False '¥ý§ì¨ú¤é´Á
- .setRequestHeader "Content-type", "application/x-www-form-urlencoded;charset=UTF-8"
- .send "REQ_OPR=qrySelScaDates"
-
- myText = .responseText
- myText1 = Split(myText, ",")
- k = 1
- For Each myText2 In myText1
- Cells(1, k) = Replace(myText2, Chr(34), "")
- Cells(1, k) = Replace(Cells(1, k), "[", "")
- Cells(1, k) = Replace(Cells(1, k), "]", "")
- k = k + 1
- Next
-
- i = 6
-
- For Each myDate In Range("A1:BH1").Value
-
- .Open "POST", "https://www.tdcc.com.tw/smWeb/QryStockAjax.do", False '¥N¤J¤é´Á¼´¸ê®Æ
- .setRequestHeader "Content-type", "application/x-www-form-urlencoded"
- .send "scaDates=" & myDate & "&scaDate=" & myDate & "&SqlMethod=StockNo&StockNo=2330&StockName=&REQ_OPR=SELECT&clkStockNo=2330&clkStockName="
-
- myHTML.body.innerHTML = .responseText
-
- Set myTable = myHTML.getElementsByTagName("table")(7)
-
- For Each myRow In myTable.Rows
- j = 1
- For Each myCell In myRow.Cells
- Cells(i, j) = myCell.innerText
- j = j + 1
- Next
- i = i + 1
- Next
- i = i + 5
- L = L + 1
- If L > 10 Then Exit For 'n§ì´Xµ§¸ê®Æ
- Next
-
- End With
- Set myXML = Nothing
- Set myHTML = Nothing
- End Sub
½Æ»s¥N½X |
|