[µo°Ý] ½Ð°Ý¦p¦ó­×§ï¤~¯à¸ü¤Jªí®æ ÁÂÁÂ

wufonna

Option Explicit

Dim ie As Object   '¼Ò²Õ³Ì³»ºÝ Dim ¨Ñ³o¼Ò²Õªºµ{§Ç¨Ï¥ÎªºÅܼÆ
Sub AllFile()
    Dim i As Integer, v, Y As Integer, S As String
    Set ie = CreateObject("internetexplorer.application")   '¨Ï¥Î¦¹¤è¦¡¥i¥H§K°£ "³]©w¤Þ¥Î¶µ¥Ø"

           GetDividend (2330)



End Sub


Private Sub GetDividend(ByVal ss As String)     '¨úªÑ§Qºô­¶
  Dim strText As String
  Dim i As Integer, j As Integer, xTable As Object
  With CreateObject("msxml2.xmlhttp")
    .Open "GET", "http://pscnetinvest.moneydj.com.tw/z/zc/zcq/zcqa/zcqa_" & ss & ".djhtm", False
    .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    .send
    strText = BinToStr(.responseBody, "BIG5") '­nª`·Nºô­¶½s½X
  End With
  With CreateObject("htmlfile")
        .Write strText
        Set xTable = .all.tags("table")(2)
        With Sheet2
            .Cells.Clear
            For i = 0 To xTable.Rows.Length - 1
                For j = 0 To xTable.Rows(i).Cells.Length - 1
                    .Cells(i + 1, j + 1) = xTable.Rows(i).Cells(j).innertext
                Next
            Next
        End With
  End With
End Sub




Function BinToStr(arrBin, strChrs)
    With CreateObject("ADODB.Stream")
        .Type = 2
        .Open
        .Writetext arrBin
        .Position = 0
        .Charset = strChrs
        BinToStr = .ReadText
        .Close
    End With
End Function

wufonna

http://forum.twbts.com/thread-23550-1-1.html

wufonna

¦^´_ 11# f3202

ÁÂÁ ¤j¤j ´£¨Ñªº¸ê°T¡A¬ã²ß¤¤😀

wufonna

¦^´_ 10# n7822123
­ìµ{¦¡¥i¯àºô­¶§ïª©¦Ó¤£¯à®»¨ì table ªº¸ê®Æ¡A§Ú¹ï©ó»yªkÄÝ©ÊÁÙ¤£¼ô±x¡A§V¤O¾Ç²ß¤¤😀
ºô­¶¤¤ ¡Õform¡Ö....¡Õ/form¡Ö§Ú·Q¬O¼vÅT¤U¸üªº

f3202

°Ñ¦Ò
https://www.mobile01.com/topicdetail.php?f=511&t=4737630&p=1

n7822123

¦^´_ 6# f3202


¾Ç²ß¤F~~~~¬Ý¨ÓÃöÁä¦b©ó

htmlfileª«¥ó.body.innerhtml = .Responsetext

¥u¬O¤°»ò®É­Ô¥Î .write ¤°»ò®É­Ô¥Î .body.innerhtml

¤£ª¾¹D¦³¨S¦³¿ìªk¤À¿ë¡AÁÙ¬O´N¤G¿ï¤@²q¬Ý¬Ý {:3_59:}

wufonna

¦^´_ 8# wufonna
§ï¹L¤F¡A½Ð ¤j¤j ¬Ý¬Ý¡AÁÂÁÂ

wufonna

¦^´_ 6# f3202
«D±`·PÁ ¤j¤j¡Aµ{¦¡§¹¥þ¥i°õ¦æ¤F

wufonna

¦^´_ 5# n7822123
§Ú¥D­n¬O¨úºô­¶¤ºªº µ|«á¬Õ¾l / ªÑªFÅv¯q ¡A°µ ªÑªFÅv¯q³ø¹S²v  (ROE) = µ|«á¬Õ¾l / ªÑªFÅv¯q¡A§Ú¦b°µ¬Ý¬Ý¡AÁÂÁ ¤j¤j

¦~¦X¨Ö·l¯qªí http://pscnetinvest.moneydj.com.tw/z/zc/zcq/zcqa/zcqa_1723.djhtm
¦~¦X¨Ö¸ê²£­t¶Åªí http://pscnetinvest.moneydj.com.tw/z/zc/zcp/zcpb/zcpb_1723.djhtm

f3202

Sub get_stock()
Dim Url, HTMLsourcecode, GetXml
Set HTMLsourcecode = CreateObject("htmlfile")
Set GetXml = CreateObject("msxml2.xmlhttp")
Url = "http://pscnetinvest.moneydj.com.tw/z/zc/zcq/zcqa/zcqa_2330.djhtm"
With GetXml
.Open "GET", Url, False
.Send

HTMLsourcecode.body.innerhtml = .Responsetext
Set Table = HTMLsourcecode.all.tags("table")(2).Rows
For i = 0 To Table.Length - 1
For j = 0 To Table(i).Cells.Length - 1
ActiveSheet.Cells(i + 1, j + 1) = Table(i).Cells(j).innertext
Next j
Next i
End With
Set HTMLsourcecode = Nothing 'ÄÀ©ñ°O¾ÐÅé
Set GetXml = Nothing
End Sub '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~