Excel VBA填寫網頁上的內容

可以實現

IE屬性

Set IE = CreateObject("InternetExplorer.application")

IE.Navigate url:="http://www.sina.com"

With IE.Document.Forms(0)

.all("ID").Value = IDVALUE

.all("PID").Value = PIDVALUE

End With

其他的自己去

上面的

.all("ID")和.all("PID")請自己看一下HTML的代碼，來修改吧！

excel vba 自動刷新網頁數據，監視單元格內容達到...

看起來挺的，但是這頁面應你們內部使用的某個web系統吧，那為何不直接從數據庫讀據呢。

1587240.0000這個數據不難獲取，在網頁源碼里應該是固定的某個td標簽，只要知道是第幾個或者和某個標志性字段有對應關系就可以。

怎么用vba抓取excel表格中的數據

可以實現

IE屬性

Set IE = CreateObject("InternetExplorer.application")

IE.Navigate url:="http://www.sina.com"

With IE.Document.Forms(0)

.all("ID").Value = IDVALUE

.all("PID").Value = PIDVALUE

End With

其他的自己去

上面的

.all("ID")和.all("PID")請自己看一下HTML的代碼，來修改吧！

如何用VBA提取網上的表格數據進Excel

參考

Sub A1下載數據()

ReDim A2(1 To 200000, 1 To 15): A = 0

For i = 1 To 5

Sleep 2000 1000 * Rnd

With CreateObject("WinHttp.WinHttpRequest.5.1")

URL = "目標網"

.Open "get", URL, False

.setRequestHeader "Host", "xxxxx"

.Send

Q1 = .responseText

Q1 = Replace(Q1, """", "")

Q1 = Replace(Q1, Chr(9), "")

Q1 = Replace(Q1, Chr(10), "")

Q1 = Replace(Q1, Chr(13), "")

Q1 = Replace(Q1, "=odd>", "=>")

End With

'Sheet1.[A2] = Q1

B1 = Split(Q1, "")

For j = 1 To UBound(B1)

B2 = Split(B1(j), "")

B3 = Split(Replace(B2(1), "", ""), ",")

A2(A 1, 1) = Replace(B2(2), "", "")

A2(A 1, 2) = Replace(B2(0), "", "")

For K = 0 To 9

A2(A 1, 3 K) = B3(K)

Next

A = A 1

Next

Application.StatusBar = i

Next

MsgBox A

With Sheet1

If .AutoFilterMode = True Then .AutoFilterMode = False

.Rows("2:600000").ClearContents

If A > 0 Then .[A2].Resize(A, 15) = A2

.Rows(1).AutoFilter '篩選

ActiveWindow.ScrollRow = 1

ActiveWindow.ScrollColumn = 1

End With

End Sub

用VBA實現Excel中數據的提取并且匯總

隨便打開excel，然后輸入下面的代碼，就可以把網站內載到active worksheet

至于怎么改需要的格式你就根據你的需求去抓取你需要的數據填到你的表格里就可以了

Sub getdatafromweb()

Dim objWeb As QueryTable

Dim sWebTable As String

Dim s As String

sWebTable = 1

s = "URL;http://www.dce.com.cn/portal/cate?cid=1383639648100"

Set objWeb = ActiveSheet.QueryTables.Add(Connection:=""

總結

以上是生活随笔為你收集整理的excel vba导入html表格,网页vba excel表格数据-Excel VBA填写网页上的内容的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。