[µ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

table ¥]»qµÛ form ,¥i¯à¬O¬G·N¨¾¤î¤H½Æ»sªº¡Aºô­¶¤~³o»ò¼g¡A½Ð±Ð ¤j¤j¦p¦ó­×§ï¡AÁÂÁÂ

n7822123

¦^´_ 2# wufonna


§Ú¤]¤£ª¾¹D«ç»ò¯}¸Ñ~~~~§Æ±æ¦³°ª¤â¯à¸Ñµª

¦pªG§A¥u¬O·Q§ì¸ê®Æªº¸Ü¡A¥i¥H´«­Óºô¯¸³á¡A§Úı±o³o­Óºô¯¸ÁÙ¤£¿ù

https://histock.tw

³o¬Oªþ¥ó¡A§Ú§ì¨º­Óºô¯¸¸ê®Æ¡A°µ¥X¨Óªº

²z°]µ¦²¤V1.0.rar (37.78 KB)

¤U¸ü¦¸¼Æ: 11

2019-6-14 03:01

¨Ï¥Î¤èªk¡G²Ä¤@Äæ¿é¤JªÑ²¼¥N¸¹§Y¥i¡A«ö"§ì¨ú¸ê®Æ"§Y¥i
¨Ï¥Î´Á­­¡Gª½¨ì¶Ù§ë¸ê§ïºô­¶®æ¦¡
§K³dÁn©ú¡G¸Ì­±«Ü¦h§Úªº¥DÆ[§PÂ_¡A®M¨cÁ«¿ú¤@·§¤£­t³d

wufonna

GetDividend-2019-a.zip (163.55 KB)

¤U¸ü¦¸¼Æ: 0

2019-6-14 15:37

¦^´_ 3# n7822123
ÁÂÁ n7822123 ¤j ªº¸ê®Æµ{¦¡ §Ú°Ñ¦Ò¬Ý¬Ý¡Ahttps://histock.tw/twºô­¶¤º¨S¦³·l¯qªí(¦~ªí)ºô­¶  ¸ê²£­t¶Åªí(¦~ªí)ºô­¶ ¡A§Ú¬O¥Î GBKEE ª©¤jªºµ{¦¡§ïªº¡A¥i¯àºô­¶ªº¤º®e¦h¤F form,¦Óµ{¦¡®»¤£¨ì·l¯qªí(¦~ªí)ºô­¶  ¸ê²£­t¶Åªí(¦~ªí)ºô­¶ ªº¸ê®Æ¡A³Â·Ð ¤j¤j ¬Ý¬Ý

n7822123

¦^´_ 4# wufonna


https://histock.tw/twºô­¶¤º¨S¦³·l¯qªí(¦~ªí)ºô­¶  ¸ê²£­t¶Åªí(¦~ªí)ºô­¶ ???

§A½T©w¶Ü!? ¤]³\§A¨S¦³³}³z~~~©uªí°µ°ò¥»¹Bºâ´N¥i¥H±o¨ì¦~ªí¤F

¥i¥H§ì¸ê®Æªº¦a¤è¤Ó¦h¤F¡A¦pªG§A­n°í«ù¨º­Óºô¯¸............

¨º§Ú¤]¨S¿ìªkÀ°¨ì§A¤F¡A¬Ý¦³¨S¦³°ª¤â¥i¥HÀ°§A

¤U¸ü (61.73 KB)

2019-6-15 03:00

¤U¸ü (63.07 KB)

2019-6-15 03:00

¤U¸ü (66.65 KB)

2019-6-15 03:00

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 '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

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

wufonna

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

wufonna

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

n7822123

¦^´_ 6# f3202


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

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

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

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