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

[µo°Ý] vba¤U¸ü¾ú¦~ªÑ²¼¸ê®Æ¡A ¦p¦óÃö±¼IE"À˵ø¤U¸ü"´£¿ôµøµ¡

[µo°Ý] vba¤U¸ü¾ú¦~ªÑ²¼¸ê®Æ¡A ¦p¦óÃö±¼IE"À˵ø¤U¸ü"´£¿ôµøµ¡

¥»©«³Ì«á¥Ñ mattlee1111 ©ó 2017-5-20 10:06 ½s¿è

¼g¤F¤@­Óvba·Q¤U¸üyahoo finance¾ú¦~ªÑ²¼¸ê®Æ¡A¦ýIE¨C¦¸³£·|¸õ¥X"À˵ø¤U¸ü"


ºô¤W¦³¤H»¡³]©wApplication.DisplayAlerts = False´N·|Ãö±¼´£¿ôµøµ¡¡A¦ý¸Õ¤F«Ü¤[ÁÙ¬OÃö¤£±¼¡A½Ð±Ð°ª¤â­Ì­n¦p¦ó­×§ï?
1.JPG
2017-5-20 10:06
1.JPG
1.JPG

¸É¥Rµ{¦¡½X µ{¦¡½X.zip (393 Bytes)

TOP

¦^´_ 3# go2hk

«á¨Ó¦bºô¤W§ä¨ìµª®×¡Aµ{¦¡½X¦p¤U½Ð°Ñ¦Ò µ{¦¡½X2.zip (614 Bytes)
Sub testname()
stock_name = "hnp"
downprice (stock_name)
End Sub
Function downprice(stock_name)
'¤U¸üÀÉ®×
    Filename = Application.ActiveWorkbook.Name
    Dim myURL As String
    myURL = "yahoo financeºô§}, Åv­­¤£¨¬½Ð°Ñ¦Òµ{¦¡½X"
   
    Dim WinHttpReq As Object
    Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
    WinHttpReq.Open "GET", myURL, False
    WinHttpReq.send
   
    myURL = WinHttpReq.responseBody
    If WinHttpReq.Status = 200 Then
        Set oStream = CreateObject("ADODB.Stream")
        oStream.Open
        oStream.Type = 1
        oStream.Write WinHttpReq.responseBody
        oStream.SaveToFile ("D:\" & stock_name & ".csv")
        oStream.Close
    End If

End Function

TOP

¦ý¦³­Ó°ÝÃD´N¬O¡A¦b¿ì¤½«Çªº¹q¸£¥i¥H¤U¸ü¡A¦b®a¸Ìªº¹q¸£«o¨S¿ìªk¤U¸ü?
¦P¼Ë³£¬Oexcel 2000¡A§@·~¨t²Î³£¬Owin7¡Bie11
½Ð°Ý°ª¤â­Ìª¾¹D¬°¦ó??¬O¨º¸Ì¨S³]©w¦n??

TOP

        ÀR«ä¦Û¦b : ¨C¤ÑµL©Ò¨Æ¨Æ¡A¬O¤H¥Íªº®ø¶OªÌ¡A¿n·¥¡B¦³¥Î¤~¬O¤H¥Íªº³Ð³yªÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD