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

[µo°Ý] ·Q½Ð±Ð¤@­Ó§ì¾ú¥vªÑ»ùªºµ{¦¡

½Ð°Ýºô§}ªº¬d¸ß¸ê®Æ«ç»ò§ì §Ú¥Î¥~³¡¸ê®Æ¶×¤J ¥L»¡§Úºô§}¤Óªø

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-5-28 16:53 ½s¿è

http://www.insidermonkey.com/insider-trading/screener/
±b±K¬O
******@gmail.com
******     
·í§Ú³]©w
Transaction date from : 2014-01-01
Transaction date to : 2014-05-23
Minimum Transaction Amount : 1000000
§Ú·|±o¨ì¤@­Ó¬d¸ßªººô§} ¦ý¤Óªø¤F §Ú¤£¯à¥Î¿ý»s¥¨¶°ªº¤è¦¡ ¨Ó½s¼g VBA
http://www.insidermonkey.com/ins ... er-of-min-insiders=
§Ú­n§ì¤j¬ù1000­¶ªº¸ê®Æ
½Ð°Ý§Ú­n«ç»ò§ì ÁÂÁÂ
¤pµæ³¾¤@­Ó ½Ð¦h«ü±Ð~

TOP

¦n¹³¥i¥H¥Î ie ¬d¸ßªº¤è¦¡¨Ó§ì¸ê®Æ
      Const url As String = "http://www.insidermonkey.com/insider-trading/screener/#/symbol=&price=&filing-date-from=&filing-date-to=2014-05-23&transaction=All&amount=&title-director=false&title-officer=false&title-large-shareholder=false&title-other=false&min-transaction-amount=1000000&number-of-min-insiders="
    Cells.Clear
    Set ie = CreateObject("internetexplorer.application") '¨Ï¥Î¦¹¤è¦¡¥i¥H§K°£ "³]©w¤Þ¥Î¶µ¥Ø"
    With ie
        .Visible = True 'True¬°¶}±Òie, False¬°¤£¶}±Òie
        .Navigate url
        Do While .ReadyState <> 4 'µ¥«Ýºô­¶¶}±Ò
            DoEvents
        Loop
.....
¦A¨Óªº §Ú´N¤£·|¼g¤F
¦³¤H¥i¥Hµ¹§ÚÂI´£¥Ü¶Ü
¤pµæ³¾¤@­Ó ½Ð¦h«ü±Ð~

TOP

Sub Purchases()

Set shts = ActiveSheet
   
For i = 0 To 6000 Step 50
   
If i = 0 Then
  j = 1
Else
  j = (i / 50) * 51 + 1
End If
   
URL = "http://www.insidermonkey.com/insider-trading/screener/#/offset=" & i & "&symbol=&price=&filing-date-from=&filing-date-to=2014-05-23&transaction=All&amount=&title-director=false&title-officer=false&title-large-shareholder=false&title-other=false&min-transaction-amount=1000000&number-of-min-insiders="
   
With CreateObject("InternetExplorer.Application")
  .Visible = False     '  ¬O§_Åã¥Ü IE
  .Navigate URL
         
         
  Do While .ReadyState <> 4 Or .Busy
    DoEvents
  Loop
  
  Do While .ReadyState <> 4 Or .Busy
    DoEvents
  Loop
      
  xlHtm = .Document.body.innerHTML                'Àx¦s
  Set A = .Document.getElementsBytagname("table")

  .Document.body.innerHTML = A(0).outerHTML
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ¥L¤T¤£¤­®É·|°±¦b³o¦æ
»¡§ä¤£¨ì©w¸qªºª«¥ó? ¤£¹L§Ú¹L¬q®É¶¡¦A«öF5´N¤S·|¶]¤F
½Ð°Ý³o­Ó«ç»ò§ï¶i
  
  .ExecWB 17, 2       '  Select All
  .ExecWB 12, 2       '  Copy selection
            
  With shts
    .Cells(j, 1).Select
    .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
  End With
            
  .Document.body.innerHTML = xlHtm                  'ÁÙ­ì

  shts.Cells.EntireColumn.AutoFit     '  ¦Û°Ê½Õ¾ãÄæ¼e
        
  .Quit
        
End With
   
Next i
   
End Sub
¤pµæ³¾¤@­Ó ½Ð¦h«ü±Ð~

TOP

¦^´_ 3# kasl

   
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ¥L¤T¤£¤­®É·|°±¦b³o¦æ
»¡§ä¤£¨ì©w¸qªºª«¥ó? ¤£¹L§Ú¹L¬q®É¶¡¦A«öF5´N¤S·|¶]¤F
µ{¦¡°õ¦æªº³t«×,¤ñºô­¶¤U¸ü¸ê®Æ³t«×§Ö¤F
  1. With CreateObject("InternetExplorer.Application")
  2.   .Visible = True     '  ¬O§_Åã¥Ü IE
  3.   .Navigate URL
  4.   Do While .ReadyState <> 4 Or .Busy
  5.     DoEvents
  6.   Loop
  7.   xlHtm = .Document.body.innerHTML                'Àx¦s
  8.   Set A = Nothing
  9.   Do While A Is Nothing  'µ¥­Ôºô­¶¤U¸ü¸ê®Æ§¹¦¨
  10.     Set A = .Document.getElementsByTagName("table")
  11.   Loop
  12.   .Document.body.innerHTML = A(0).outerHTML
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

­ì¨Ó¬O³o¼Ë§PÂ_ §ÚÀ´¤F
·PÁÂ~
¤pµæ³¾¤@­Ó ½Ð¦h«ü±Ð~

TOP

Set A = Nothing
  Do While A Is Nothing  'µ¥­Ôºô­¶¤U¸ü¸ê®Æ§¹¦¨
    Set A = .Document.getElementsByTagName("table")
  Loop
  .Document.body.innerHTML = A(0).outerHTML
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
·í§Ú¥Î loop¨g§ìºô­¶¸ê®Æ®Éµo²{¦³®ÉÁÙ¬O·|¥d¦b³o¤@¦æ¡C
§Ú¦³¥ÎF8³æ¨B¦b¨º¬Ý¡A¦³®É¬Oºô­¶¥´¶}ªº³t«×¤ÓºC¡A¦ý§Ú¤ñ¸û¦n©_ªº¬O
§Ú¥H¬°«e­±¨º­Ó do while loop ·|À°§Ú°µ§âÃöªº°Ê§@¡A­ì¨Ó¨S¦³¡C
¤pµæ³¾¤@­Ó ½Ð¦h«ü±Ð~

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-6-5 09:04 ½s¿è

¦^´_ 6# kasl
¦ý§Ú¤ñ¸û¦n©_ªº¬O §Ú¥H¬°«e­±¨º­Ó do while loop ·|À°§Ú°µ§âÃöªº°Ê§@¡A­ì¨Ó¨S¦³¡C

³oºô­¶¤U¸ü¬y¶q³t«×ªº¦]¯À
  
§Ú¦³¥ÎF8³æ¨B¦b¨º¬Ý¡A¦³®É¬Oºô­¶¥´¶}ªº³t«×¤ÓºC¡A

­×§ï¤@¤U¸Õ¸Õ¬Ý
µ{¦¡¥¿±`®É  A.Length = ?
  1. xlHtm = .Document.body.innerHTML                'Àx¦s
  2.   'Set A = Nothing
  3.   Do
  4.     Set A = .Document.getElementsByTagName("table")
  5.   Loop Until A.Length >= ? And Not A Is Nothing
  6.   .Document.body.innerHTML = A(0).outerHTML
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

§Ú¬Ý length =1 ­è¦Û¤v§ï¤Fµ{¦¡ ¸Õ¶] ¦n¹³¤£·|°±¤F
µ¥ºÎ«e¾ã­Ó¥á¤U¥h§ì¤Q¸Uµ§¸ê®Æ¸Õ¸Õ
·PÁÂ~
¤pµæ³¾¤@­Ó ½Ð¦h«ü±Ð~

TOP

[µo°Ý] ·Q½Ð±Ð¤@­Ó§ì¾ú¥vªÑ»ùªºµ{¦¡

¦pªþ¥ó ¦^´úªí
§Ú¥´ºâ§Q¥Î symbol ©M ¤é´Á ¥h¦p¹d¦ëºô/yahoo/google§ì´X­Ó¤é´Áªº¾ú¥vªÑ»ù¤U¨Ó
¥»¨Ó¦³°µ¤@­Ó©Ò¦³symbolªº¾ú¥vªÑ»ù¡C¦ý¥u­n§ì´X­Ó¤é´Á¡A«o­n§ì2012/6/1~2014/5/31©Ò¦³¸ê®Æ¡A·PıÀ³¸Ó¦³§ó¦nªº¤è¦¡¡C

½Ð°Ý¦³¤°»ò¦nªºµ{¦¡¼gªk©Î·Qªk¶Ü¡HÁÂÁÂ

insiderMonkey(0608-1²¤Æ).rar (728.59 KB)

¤pµæ³¾¤@­Ó ½Ð¦h«ü±Ð~

·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD