GBKEE

¦^´_ 2# daniel1326

1. Option Explicit
   
2. Function Mp3(Word As String) As String
   
3.     Dim Url As String, Ar
   
4.     Url = "http://dictionary.reference.com/browse/" & Word & "?s=b"
   
5.     If Word = "" Then Mp3 = "??": Exit Function
   
6.     With CreateObject("Microsoft.XMLHTTP")
   
7.         .Open "get", Url, False
   
8.        .send     
   
9.         Ar = Split(Split(UCase(.responseText), ".MP3")(1), "/")
   
10.         Mp3 = Ar(UBound(Ar))
    
11.    End With
    
12. End Function

½Æ»s¥N½X

¤U¸ü (155.97 KB)

2013-3-2 08:49

GBKEE

¦^´_ 5# ui123
½Ð»¡©ú:§ì³oºô­¶­þ¸Ìªº¸ê®Æ

1. Option Explicit
   
2. 'Sub Ex()
   
3.     Dim Url As String, AR
   
4.     Url = "https://finance.yahoo.com/quote/AAPL?p=AAPL"
   
5.     With CreateObject("Microsoft.XMLHTTP")
   
6.         .Open "get", Url, False
   
7.        .send
   
8.         If InStr(.responseText, "CrumbStore"":{""crumb"":""") = False Then MsgBox "§ä¤£¨ì°Ú"
   
9.         
   
10.    End With
    
11. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 9# ui123
Java »y¨¥©|¥¼¤Jªù,À°¤£¤W¦£
¥u§ì¨ì100µ§¸ê®Æ

1. Sub Ex()
   
2.     Dim oXmlhttp As Object, oHtmldoc As Object, surl, r, c, E
   
3.     Set oXmlhttp = CreateObject("msxml2.xmlhttp")
   
4.     Set oHtmldoc = CreateObject("htmlfile")
   
5.     surl = "https://finance.yahoo.com/quote/AAPL/history?period1=1473638400&period2=1505174400&interval=1d&filter=history&frequency=1d"
   
6.     With oXmlhttp
   
7.         .Open "Get", surl, False
   
8.         .Send
   
9.         oHtmldoc.write .responseText
   
10.     End With
    
11.      With oHtmldoc
    
12.         Set E = .all.tags("table")(3)
    
13.         ActiveSheet.Cells.Clear
    
14.         For r = 0 To E.Rows.Length - 1
    
15.             For c = 0 To E.Rows(r).Cells.Length - 1
    
16.                 Cells(r + 1, c + 1) = E.Rows(r).Cells(c).innertext
    
17.             Next
    
18.         Next
    
19.     End With
    
20.     Set oXmlhttp = Nothing
    
21.     Set oHtmldoc = Nothing
    
22. End Sub

½Æ»s¥N½X