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

pupai

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

GBKEE

¦^´_ 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

pupai

¦^´_ 2# GBKEE


   ÁÂÁÂ坂¤j

pupai

¦^´_ 2# GBKEE


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

GBKEE

¦^´_ 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

pupai

¦^´_ 5# GBKEE


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