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

[µo°Ý] ¦p¦ó¼gexcel VBA¥h§ì¨úºô­¶­ì©l½X¤ºªº¯S©w¤å¦r

[µo°Ý] ¦p¦ó¼gexcel VBA¥h§ì¨úºô­¶­ì©l½X¤ºªº¯S©w¤å¦r

¤p§Ì¥¿¦b¥Îexcel¾ã²z­^¤å³æ¦rªºµo­µ¸ê®Æ, »Ý­n¤â°Ê¿é¤J¤@­Ó³æ¦r¨ì­^¤å³æ¦rºô­¶ http://dictionary.reference.com/,·j´M¤§«á¦A¶}±Ò¸Óºô­¶ªº­ì©l½X¤º®e,¥h´M§ä.MP3Àɪº»y­µ½s¸¹«á,¨Ì§Ç½Æ»s¶K¦^excelªºmp3»y­µ½s¸¹Äæ¦ìªºÀx¦s®æ,­Y¬O·Q­n¼g¤@­ÓVBAµ{¦¡,¦Û°ÊŪ¥X³æ¦rÄæ¦ì¤Uªº©Ò¦³³æ¦r,¶K¦^­ì©lÀɤºªºmp3½s¸¹,¡]¦p¶K¹Ï»¡©ú¡^,¥N´À¥Î¤â°Ê¤@­Ó¤@­Ó§ì¨ú­^¤å¦r¨åºô¯¸ªº­ì©l½X¤ºªºMP3½s¸¹,¤£ª¾¸Ó¦p¦ó¼g¡H
¦³½Ð°ª¤â­Ì«üÂI¡I³æ¦rªí®æ¦p¥H¤U¶K¹Ï.
[attach]14281[/attach]
get srccode character.rar (7.84 KB)
Learning is fun .

¤£¦n·N«ä,¬Ý¤£¨ì¶K¹Ï,¦A¶K¤@¦¸
get srccode text.JPG
2013-3-1 17:35
Learning is fun .

TOP

¦^´_ 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
EX1.GIF
2013-3-2 08:49

TOP

¦^´_ 3# GBKEE

¶W¯Åª©¥D¤j¤j¡A§Ú¥Î§Aªº¤èªk¸Õ¤F¤@­Ó§«ô¡A¦ýÁÙ¬O§ì¤£¨ì view-source:https://finance.yahoo.com/quote/AAPL?p=AAPL ¤¤ªº CrumbStore":{"crumb":"9ZYeo7D3CrT"}  ¬õ¦â¦r·|¤£©w®ÉÅÜ¡A©Ò¥H§Ú·Q¥Î¢ä¢Ð¢Ï¥h¦Û°Ê§ì¥¦¡A ¦ý¤@ª½¥¢±Ñ¡A¦n©_©Ç³á¡ã

¦JÂŦ⪺¦a¤è

¿Ã¹õ§Ö·Ó 2017-09-10 ¤U¤È8.06.23.png

TOP

"CrumbStore":{"crumb":" §Ú¦³©w¸q¥XCrumbStart¡A¦ý¦n¹³¬O­ì©l½X¤Ó¦h¡A¥H¦Ü©óµLªk¶ë¶i Dim String ¤j¤p¦Ó·j´M¤£¨ì§Ú­n©w¸qªºCrumbStart ?
  CrumbStart = Chr(34) & "CrumbStore" & Chr(34) & ":{" & Chr(34) & "crumb" & Chr(34) & ":" & Chr(34)

TOP

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

TOP

¦^´_ 6# GBKEE

¶W¯Åª©¤j¡A§Ú·Q§ìªº¬O¬õ®Ø³¡¤À¡A¨º¤@­Ó¨C¹j¤@¬q®É¶¡´N·|§ïÅÜ¡A
¦Óºô­¶­ì©l½X CrumbStore":{"crumb":" ¥u·|¥X²{¤@¦¸¡A©Ò¥H§Ú¥Î³o¥h©w¦ì

    javascript:;

·Q§ì¬õ®Ø³¡¤À

Crumb.PNG

TOP

¦^´_ 6# GBKEE

«Ü©_©Çªº¬O¡Aºô­¶­ì©lÀÉ©ú©ú¦³"CrumbStore":{"crumb":"  ¡A¦ý¬O¥Îµ{¦¡InStr(.responseText, "CrumbStore"":{""crumb"":""") «o·j´M¤£¨ì¡A
·Q»¡¬Oºô­¶­ì©lÀɤӤj©Ò¥H.responseText ©ñ¤£¤U¡A¤S©ÎªÌ¬O¨ä¥L°ÝÃD

TOP

¦^´_ 6# GBKEE
¤j¤j¡A§Ú¸Õ¤F«Ü¤[¤£¦æ¡]¤U­±»yªk¬O Java »y¨¥,¤£ª¾¹D¦³¨S¦³Ãö¡^¡A¦pªG¯u¤£¦æ´Nºâ¤F¡ã
ÁÂÅo¡ã

TOP

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

TOP

        ÀR«ä¦Û¦b : ¦Û¤v®`¦Û¤v¡A²ö¹L©ó¶ÃµoµÊ®ð¡C
ªð¦^¦Cªí ¤W¤@¥DÃD