Excel VBA填寫網(wǎng)頁上的內容

可以實現(xiàn)

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 自動刷新網(wǎng)頁數(shù)據(jù)，監(jiān)視單元格內容達到...

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

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

怎么用vba抓取excel表格中的數(shù)據(jù)

可以實現(xiàn)

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提取網(wǎng)上的表格數(shù)據(jù)進Excel

參考

Sub A1下載數(shù)據(jù)()

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 = "目標網(wǎng)"

.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實現(xiàn)Excel中數(shù)據(jù)的提取并且匯總

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

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

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填写网页上的内容的全部內容，希望文章能夠幫你解決所遇到的問題。

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