[發問] 利用XML語法，取得網頁資訊

pupai

各位好
附件檔案，我每季都會使用，但這一次我發覺他不能下載資料
我猜想可能是路徑出現問題，但小弟能力有限，不知該改哪
所以想請各位幫幫忙
謝謝!!

GBKEE

回復 1# pupai
網址改了
   

Sub 取得網頁原始碼()
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


   謝謝坂大

pupai

回復 2# GBKEE


    請問為什麼
101年度編號1101有資料，102年度編號1102也有資料，但卻都跑不出來？

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)'儲存格內容完全相同
   
    If fRng Is Nothing Then GoTo 101
    If uTxt = "現金股利" Or uTxt = "合計" Then
       uRng(1, j).Resize(1, 4).Value = Application.Transpose(fRng(2, 2).Resize(4, 1).Value)
    ElseIf uTxt = "每股淨值" Then
       With uRng(1, j): .Value = fRng: .Replace "每股淨值:* ", "": End With
    Else
       uRng(1, j) = fRng(1, 6)
    End If
101: Next j

pupai

回復 5# GBKEE


    感謝超級版主修正
假期愉快