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:=""