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

[µo°Ý] §Q¥ÎXML»yªk¡A¨ú±oºô­¶¸ê°T

[µo°Ý] §Q¥ÎXML»yªk¡A¨ú±oºô­¶¸ê°T

¦U¦ì¦n
ªþ¥óÀɮסA§Ú¨C©u³£·|¨Ï¥Î¡A¦ý³o¤@¦¸§Úµoı¥L¤£¯à¤U¸ü¸ê®Æ
§Ú²q·Q¥i¯à¬O¸ô®|¥X²{°ÝÃD¡A¦ý¤p§Ì¯à¤O¦³­­¡A¤£ª¾¸Ó§ï­þ
©Ò¥H·Q½Ð¦U¦ìÀ°À°¦£
ÁÂÁÂ!!

¬d¸ßªÑ²¼¸ê°T.rar (72.84 KB)

¦^´_ 1# pupai
ºô§}§ï¤F
   
Sub ¨ú±oºô­¶­ì©l½X()
Dim uObj As Object, uFF As Object, xURL$, xFile$
Dim ST1$, ST2$, F1&, F2&
xURL = "https://tw.stock.yahoo.com/d/s/company_" & uRng.Text & ".html?" & Rnd
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE


   ÁÂÁÂ坂¤j

TOP

¦^´_ 2# GBKEE


    ½Ð°Ý¬°¤°»ò
101¦~«×½s¸¹1101¦³¸ê®Æ¡A102¦~«×½s¸¹1102¤]¦³¸ê®Æ¡A¦ý«o³£¶]¤£¥X¨Ó¡H

ÀÉ®×.rar (60.89 KB)

TOP

¦^´_ 4# pupai


   
For j = 3 To xC
    uTxt = MySht.Cells(3, j): If uTxt = "" Then GoTo 101
    Set fRng = WebSht.Cells.Find(uTxt, Lookat:=xlWhole)'Àx¦s®æ¤º®e§¹¥þ¬Û¦P
   
    If fRng Is Nothing Then GoTo 101
    If uTxt = "²{ª÷ªÑ§Q" Or uTxt = "¦X­p" Then
       uRng(1, j).Resize(1, 4).Value = Application.Transpose(fRng(2, 2).Resize(4, 1).Value)
    ElseIf uTxt = "¨CªÑ²b­È" Then
       With uRng(1, j): .Value = fRng: .Replace "¨CªÑ²b­È:* ", "": End With
    Else
       uRng(1, j) = fRng(1, 6)
    End If
101: Next j
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 5# GBKEE


    ·PÁ¶W¯Åª©¥D­×¥¿
°²´Á´r§Ö

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD