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

[µo°Ý] ½Ð°Ý³o¥i³]©wµ¥´X¬í¨S¶}ºô­¶©Îºô­¶¿ù»~´N°õ¦æ¤U¤@µ§¶Ü¡AÁÂÁÂ

¥»©«³Ì«á¥Ñ wufonna ©ó 2014-9-1 20:00 ½s¿è

¦^´_ 10# GBKEE

ÁÂÁÂ G ¤j¤j

¦A½Ð°Ý GBKEE  ¤j¤j
¦³®Éºô­¶®»¤£¨ì¬Oºô­¶ªº°ÝÃD ¥i¥H¸Ñ¨M¶Ü
¬O§ï Application.SendKeys "~" ¶Ü

ÁÙ¦³¤U­±¬O¿ù»~¬O¤°ºô­¶¿ù»~¶Ü
ÁÂÁÂ

2014-09-01_194704.jpg (93.92 KB)

2014-09-01_194704.jpg

2014-09-01_194704.jpg (93.92 KB)

2014-09-01_194704.jpg

2014-09-01_195532.jpg (49.64 KB)

2014-09-01_195532.jpg

TOP

¦^´_ 11# wufonna


    ½Ð°Ý G ¤j¤j ¬O
   If Time >= T + #12:00:08 AM# Then        
µ¥¥N®É¶¡¤Öªº°ÝÃD¶Ü §Ú±N3¬í§ï8¬í´N¨S¿ù¤F
¦pªGªÑ²¼¦h¤F¦p¦ó¸Ñ¨M ÁÂÁÂ

TOP

¦^´_ 12# wufonna
11#©Ò»¡ªº¿ù»~,µ{¦¡½X¦b­þµo¥Íªº.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 13# GBKEE

GBKEE ¤j¤j
µ{¦¡¨S¦³¿ù»~
¥i¬O¦³®É¸ê®Æ¨S®»¨ì
¹³³o¦¸ ³Ó¤@ ¨S®»¨ì
ÁÂÁÂ

2014-09-02_171247.jpg (49.77 KB)

2014-09-02_171247.jpg

°t®§´ú¸Õ-2.rar (21.67 KB)

TOP

¥»©«³Ì«á¥Ñ joey0415 ©ó 2014-9-3 11:19 ½s¿è

¦^´_ 14# wufonna

https://djinfo.cathaysec.com.tw/Z/ZC/ZCC/ZCC.DJHTM?A=1101

¥N½XÅܼƦۤv§ï§ï´N¦æ
  1. Sub ¥¨¶°1()
  2. '
  3.     With ActiveSheet.QueryTables.Add(Connection:= _
  4.         "URL;https://djinfo.cathaysec.com.tw/Z/ZC/ZCC/ZCC.DJHTM?A=1101", Destination _
  5.         :=Range("$A$1"))
  6.         .WebFormatting = xlWebFormattingNone
  7.         .WebTables = "3"
  8.         .Refresh BackgroundQuery:=False
  9.         .Delete
  10.     End With
  11. End Sub
½Æ»s¥N½X
¥Î³oºØºô¯¸§ì¸ê®Æ¤ñ¸û¥Î¡A¤£¥Îµ¥´X¬í...

ºô§}¤S²M·¡

yam·|¤U¸ü¤@°ï¨S¥ÎªºªF¦è

§â©Ò¦³§ì¤U¨Ó±Æ§Ç¤@¤U¡A´Nª¾¹D¦³­þ¨ÇªÑ¬O¨S¦³§ì§¹¾ãªº¡A¦A§ì¤@¦¸´N¥i¥H¤F¡K

³q±`¤U¸ü³£¬O·|§äí©w¡B³t«×§Ö¡A¯Â¸ê®Æ¬°³Ì¨Î

°Ñ¦Ò

TOP

¦^´_ 14# wufonna
½Ð¸Ô¬Ýµù¸Ñ
  1. Private Sub GetDividend(ByVal ss As String)
  2.     Dim rr As String, T As Date, i, ii, k, j, S As Object
  3.     'On Error Resume Next 'µ{¦¡ªº°õ¦æ¨S¦³¹w´Áªº¿ù»~,¦¹¦æ¥i¤£¥Î.
  4.     T = Time
  5.     rr = "http://yamstock.megatime.com.tw/asp/stockinfo/GetReport.asp?select_table=html\Ficxxx\&stockid=" & ss & "&name1=D4&index1=12"     ' ¥¿½Tªº
  6.     With ie
  7.         .Navigate rr
  8.         Do While .readyState <> 4                          'µ¥«Ýºô­¶¤U¸ü§¹²¦
  9.               DoEvents
  10.               If Time >= T + #12:00:03 AM# Then            'µ¥«Ý8¬í 3¬í¤Ó¤Ö·|»~¿ù§ï8§®
  11.                 DoEvents
  12.                 Application.SendKeys "~"                    'ªÑ²¼¥N¸¹¿ù»~,ºô­¶·|¦³°T®§,¶·«ö½T©w,¤~¥iÄ~Äò¤U­±ªÑ²¼¥N¸¹
  13.                
  14.                 Exit Do
  15.               End If
  16.         Loop
  17.         ''***¤£¬Oµ¥«Ý8¬í 3¬í¤Ó¤Ö·|»~¿ù§ï8§® ***
  18.         Do
  19.         Set S = .Document.getElementsByTagName("table")(4) ' ·sªº table 4
  20.         Loop Until Not S Is Nothing
  21.         '*** ³Ó¤@ ¨S®»¨ì ????
  22.         '*** ¦]µ{¦¡¹B¦æ¤Ó§Ö , S Is Nothing, S ©|¥¼«ü©w¬°.Document.getElementsByTagName("table")(4)
  23.         '*** µ{¦¡¤w¸g°õ¦æ¤U¤@¦æ, With ¤u§@ªí2 ªºµ{¦¡½X

  24.         With ¤u§@ªí2
  25.             .UsedRange.Clear
  26.             For i = 0 To S.Rows.Length - 1      '¼g¤J¸ê®Æ
  27.                 k = k + 1
  28.                 'For j = 0 To S.Rows(i).Length - 1  '³o¦æ¬O¿ù»~ªº ¤]¬O¦h¾lªº°j°é
  29.                    '¥Î On Error Resume Next ¨Ïµ{¦¡Ä~Äò°õ¦æ
  30.                     For ii = 0 To S.Rows(i).Cells.Length - 1  ' S.Rows(i).Cells.Length - 1 ¤~¬O¥¿½T
  31.                     .Cells(k, ii + 1) = S.Rows(i).Cells(ii).innerText
  32.                     DoEvents
  33.                     Next
  34.                 'Next
  35.             Next
  36.         End With
  37.     End With
  38. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 16# GBKEE


    ÁÂÁÂ G ¤j¤j
    µ{¦¡¹B¦æ¶¶ºZ ^_^
   
¥»·Q¤Gºûªºªí³æ«ç·|¦³¤T­Ó FOR NEXT
¥¿·Qµo°Ý

¦A½Ð¦b G ¤j¤j
·s¤â¦p¦ó¥hµo²{µ{¦¡¤¤¨S¦³¿ù»~ªºÅܤÆ
¹³µ{¦¡¤¤ªº
Do
        Set S = .Document.getElementsByTagName("table")(4) ' ·sªº table 4
        Loop Until Not S Is Nothing
ÁÂÁÂ

TOP

¥»©«³Ì«á¥Ñ wufonna ©ó 2014-9-3 21:11 ½s¿è

¦^´_ 15# joey0415
  1. Sub ¥¨¶°1()
  2. '
  3. ' ¥¨¶°1 ¥¨¶°
  4. '

  5. '
  6.     With ActiveSheet.QueryTables.Add(Connection:= _
  7.         "URL;https://djinfo.cathaysec.com.tw/Z/ZC/ZCX/ZCXNEWCATHAYSEC.DJHTM?A=2882", _
  8.         Destination:=Range("$A$1"))
  9.         .Name = "ZCXNEWCATHAYSEC.DJHTM?A=2882"
  10.         .FieldNames = True
  11.         .RowNumbers = False
  12.         .FillAdjacentFormulas = False
  13.         .PreserveFormatting = True
  14.         .RefreshOnFileOpen = False
  15.         .BackgroundQuery = True
  16.         .RefreshStyle = xlInsertDeleteCells
  17.         .SavePassword = False
  18.         .SaveData = True
  19.         .AdjustColumnWidth = True
  20.         .RefreshPeriod = 0
  21.         .WebSelectionType = xlSpecifiedTables
  22.         .WebFormatting = xlWebFormattingNone
  23.         .WebTables = "2,3"
  24.         .WebPreFormattedTextToColumns = True
  25.         .WebConsecutiveDelimitersAsOne = True
  26.         .WebSingleBlockTextImport = False
  27.         .WebDisableDateRecognition = False
  28.         .WebDisableRedirections = False
  29.         .Refresh BackgroundQuery:=False
  30.     End With
  31. End Sub
½Æ»s¥N½X
½Ð±Ð ¤j¤j ³o¬q¦p¦óºë²µ{¦¡½X
¹³ table ³o¼Ë
¦]­n±q¤¤¨ú±o¦¬½L»ù
ÁÂÁÂ ¤j¤j

TOP

¦^´_ 18# wufonna

¨ä¹ê´N¬O¿ý»s¦n«á¡A§â¬Y¦æµù¸Ñ«á¡A¦A°õ¦æ¡A¦pªG¥i¥H´Nªí¥Ü¸Ó¦æ¤£»Ý¦æ¡A¦]¬°¿ý»sªº³q±`·|¦³«Ü¦h¤£­nªº¥N½X
¿ý¤[¤F´Nª¾¹D¡K
³Ì«á¥[¤W.delete
ªí¥Ü¨ú®ø³s½u
  1. Sub ¥¨¶°1()
  2.     With ActiveSheet.QueryTables.Add(Connection:= _
  3.         "URL;https://djinfo.cathaysec.com.tw/Z/ZC/ZCX/ZCXNEWCATHAYSEC.DJHTM?A=2882", _
  4.         Destination:=Range("$A$1"))
  5.         .WebFormatting = xlWebFormattingNone
  6.         .WebTables = "2,3"
  7.         .Refresh BackgroundQuery:=False
  8.         .Delete
  9.     End With
  10. End Sub
½Æ»s¥N½X

TOP

¦^´_ 19# joey0415
ÁÂÁÂ ¤j¤j
°ê®õªº¸ê®Æ¯uªº§Ö¦h¤F

TOP

        ÀR«ä¦Û¦b : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD