返回列表 上一主題 發帖

[發問] 不好意思,求教於各方高手...

回復 1# verify9k


    goodinfo 沒辦法用 QueryTables.Add 抓,要用xml,01那邊文書區超多範例,不過很難

很慘忍的幫你翻釋vba下載後的那段亂碼
隢??蝬脩??批捆銝?頠??亥岷?祉雯蝡?
(請勿透過網站內容下載軟體查詢本網站)

TOP

回復 1# verify9k

GBKEE大,寫的很多ie範例也可以用,程式碼長度跟 QueryTables.Add差不多,簡單易懂

Sub Ex()

    Dim R As Integer, C As Integer
   
    With CreateObject("InternetExplorer.Application")
       .Visible = True
        .Navigate "https://goodinfo.tw/StockInfo/ShowSaleMonChart.asp?STOCK_ID=2330"
        Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
        
        With .Document.all.tags("table")(21)
            For R = 0 To .Rows.Length - 1
                For C = 0 To .Rows(R).Cells.Length - 1
                    ActiveSheet.Cells(R + 1, C + 1) = .Rows(R).Cells(C).innerText
                Next
            Next
        End With
        .Quit
      End With
      
End Sub

TOP

        靜思自在 : 為自己找藉口的人永遠不會進步。
返回列表 上一主題