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

[µo°Ý] ºô­¶¸ê®Æ«Üªø¡A¦p¦ó¦³®Ä²v¦aª¾¹D¤w§¹¾ã¶i¨Ó

[µo°Ý] ºô­¶¸ê®Æ«Üªø¡A¦p¦ó¦³®Ä²v¦aª¾¹D¤w§¹¾ã¶i¨Ó

¥»©«³Ì«á¥Ñ Scott090 ©ó 2017-11-12 17:01 ½s¿è

'±²°Êºô­¶
'''' i ­È¤Ó¤p¡Aºô­¶¸ê®Æ·|¨Ó¤£¤Î¶i¨Ó¡F¤Ó¤j·|®ö¶O®É¶¡
''''   ¦³¦ó¤èªk¥i¥Hª¾¹D¸ê®Æ¤w¶i¨Ó»ô¥þ¦Ó°±¤î¡F©Î¨ä¥L¤è¦¡¨ú¥N¥»¤èªk?
            i = 0
            While i < 50
                .Document.Parentwindow.scrollby 0, 10000 'Move,Scroll IE window down to bottom
                i = i + 1
            Wend

½Ð°Ý¨º¤@¦ì«e½úÀ°¦£? ¥ýÁÂÁÂ

¥H¤Uªº¨Ò¤l¬O¸ê®Æªºªøµu¦h¹è¨ú¨M©ó¤é´Á´Á¶¡ªºªøµu¡A¦p¦ó°µ·|¤ñ¸û¦³®Ä²v?
  1. '¨Ï¥Î ie,Application ª«¥ó
  2. '±q finance.Yahoo.com¨ú±o¾ú¥v¸ê®Æ
  3. '
  4. Sub getHistoricalData()
  5.         Dim Code
  6.         Code = "AAPL"
  7.         Const mysteryNum = 2209190400#
  8.         Dim ie, DATAar, A$, yyDate
  9.         Dim URL As String
  10.         Dim StartDate, EndDate, timer, tt As Date
  11.         Dim Table As Object, oDoc As Object
  12.         Dim i%, j%, k%
  13.         
  14.         StartDate = "1999/1/2"            '¶}©l¤é´Á
  15.         EndDate = Date                          'µ²§ô¤é´Á¡A¹w³]¬°¤µ¤Ñ

  16.       'Âà´«¬°¬íÄÁ¼Æ¦r
  17.     StartDate = DateValue(StartDate) * 86400 - mysteryNum
  18.     EndDate = DateValue(EndDate) * 86400 - mysteryNum
  19.    
  20.    Set ie = CreateObject("InternetExplorer.Application")
  21.         
  22.     With ie
  23.             Application.StatusBar = "¥´¶}ºô­¶¡Aµ¥«Ý¸ê®Æ³Æ»ô ....."
  24.             URL = "https://finance.yahoo.com/quote/" & Code & "/history?period1=" & StartDate & "&period2=" & EndDate & "&interval=1d&filter=history&frequency=1d"
  25.             .Visible = True ' False                'Åã¥Ü IE§_?
  26.             .navigate URL
  27.             Application.Wait Time + #12:00:04 AM#                   'µ¥­Ôºô­¶4¬íÄÁ
  28.             tt = Time + #12:00:05 AM#
  29.             Do While (.busy Or .readyState <> 4) And Time < tt
  30.                 DoEvents
  31.             Loop
  32.             
  33.             '±²°Êºô­¶
  34. '''' i ­È¤Ó¤p¡Aºô­¶¸ê®Æ·|¨Ó¤£¤Î¶i¨Ó¡F¤Ó¤j·|®ö¶O®É¶¡
  35. ''''   ¦³¦ó¤èªk¥i¥Hª¾¹D¸ê®Æ¤w¶i¨Ó»ô¥þ¦Ó°±¤î¡F©Î¨ä¥L¤è¦¡¨ú¥N¥»¤èªk?
  36.             i = 0
  37.             While i < 50
  38.                 .Document.Parentwindow.scrollby 0, 10000 'Move,Scroll IE window down to bottom
  39.                 i = i + 1
  40.             Wend
  41.                         
  42.             Application.StatusBar = "¨úºô­¶¸ê®Æ¤¤ .... "
  43.             Set oDoc = .Document.getElementsByTagName("TABLE")(1)
  44.             
  45.             ActiveSheet.Cells.Clear
  46.             ReDim DATAar(oDoc.Rows.Length - 1, 7)
  47.             
  48.             For i = 0 To oDoc.Rows.Length - 2
  49.                     For j = 0 To 6
  50.                           On Error Resume Next
  51.                           DATAar(i + 1, j + 1) = oDoc.Rows(i).Cells(j).innertext
  52.                           If j = 0 And i <> 0 Then
  53.                           
  54.                           ''''    yyDate = CDate("Oct 01, 2017")
  55.                                 A = DATAar(i + 1, j + 1)
  56.                                 A = Mid(A, 2, 3) & " " & Mid(A, 8, 2) & ", " & Right(A, 4)
  57.                                 yyDate = CDate(A)
  58.                                 DATAar(i + 1, j + 1) = yyDate
  59.                                 
  60.                           End If
  61.                     Next
  62.             Next
  63.             Application.StatusBar = "¸ê®Æ²¾¨ìExcel ¤u§@ªí ....."
  64.             ActiveSheet.Cells(1, 1).Resize(UBound(DATAar), 7).Value = DATAar
  65.             Columns("A:A").NumberFormatLocal = "yyyy/mm/dd"
  66.             Columns("G:G").NumberFormatLocal = "#,##0_)"
  67.             .Quit
  68.     End With
  69.     Application.StatusBar = "¸ê®Æ¤U¸ü§¹¦¨ ....... "
  70.     Application.Wait Time + #12:00:02 AM#
  71.     Application.StatusBar = False
  72.    
  73. End Sub
½Æ»s¥N½X

¦^´_ 15# quickfixer


    ÁÂÁ´£¨Ñªº«H®§
¥h¦~¦³¥hÂsÄý¹L

TOP

¦^´_ 14# Scott090

§Úª¾¹D¦³¤@¨Ç½d¨Ò¥i·j´M¨ì¡A¥i¬O«Ü¤À´²
¨º¦ê¤å³¹¼g¤F¦U¤jºô¯¸ªº¤U¸ü½d¨Ò«Ü¶°¤¤¡A¦Ó¥B·s¤â¤]¥i¥H¤U¸ü:lol
¥t¥~±z¦b°Ýªº¡A¹d¦ëºô¾ú¥v¦æ±¡¤U¸ü°ÝÃD
01¨ºÃä75¼Óªº¤å³¹¥i¸Ñ¨M
¤£¦n·N«äÅv­­ÁÙ¤£°÷¡A¥u¯à¦b³oµo¨¥

TOP

¦^´_ 13# quickfixer


    ³o­Ó³Â»¶®a±Ú½×¾Â¤]¦³¨Ï¥Î xmlhttp ¨Ñ°Ñ¦Òªº¨Ò¤l¡A
    ·j¯Á¤@¤U´N¦³¤F

TOP

¦^´_ 12# Scott090


  ¦h¤F¤@½g¤£¤U¸ücsv,¥u¤U¸üºô­¶ªºµ{¦¡½X
¤ñ¸ûºC¨C­ÓªÑ²¼¸ê®Æ­n8.91¬í¤U¸ü
¨º½g¤å³¹¨C­Óµ{¦¡³£«Ü§Ö,¥i¬O¦³ÂIÃø

TOP

¦^´_ 11# quickfixer


°Ñ¦Òºô§}¡G   https://www.mobile01.com/topicdetail.php?f=511&t=4737630&p=28
³o­Ó¬Oª½±µ¤U¸ü .csv ÀÉ
ÁÂÁ´£¨Ñªº«H®§

TOP

¥»©«³Ì«á¥Ñ quickfixer ©ó 2017-11-20 10:27 ½s¿è

¤£¦n·N«ä§ÚÁÙ¤£¯à¶Kurl¨S¦³Åv­­
¥h¬Ý´Nª¾¹D¬O¨º½g¤å³¹¤F
¦b¤å®Ñ³B²z°Ïªº²Ä¤@­¶
¤å³¹内11/16¸¹¨º­Óµ{¦¡

TOP

¦^´_ 8# quickfixer


   
§Ú¦b01¤å®Ñ³B²z°Ï¦³¬Ý¨ì¥u­n1.8¬íªºµ{¦¡½X


½Ð§âºô§}¶K¥X¨Ó¡AÅý¤j®a°Ñ¦Ò
ÁÂÁÂ

TOP

¦^´_ 7# GBKEE


    GBKEE ¤j¤j¡G
ÁÂÁ§AªºÁ`µ²

TOP

§Ú¦b01¤å®Ñ³B²z°Ï¦³¬Ý¨ì¥u­n1.8¬íªºµ{¦¡½X

TOP

        ÀR«ä¦Û¦b : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD