Excel VBA填写网页上的内容
可以实现
IE属性
Set IE = CreateObject("InternetExplorer.application")
IE.Navigate url:=""
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:=""
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;/portal/cate?cid=1383639648100"
Set objWeb = ActiveSheet.QueryTables.Add(Connection:=""