㈠ Excel中載入宏,分析工具庫和分析工具庫—VBA的區別
分析工具庫是一個按鈕,裡麵包含數據統計工具
分析工具庫VBA載入後才能在VBA里使用數據統計工具相關
㈡ vba提取網頁數據
下面的代碼就可以:
OptionExplicit
Sub批量獲取網頁內容()
Dimhttp,Pols,Arr,i,u
Sethttp=CreateObject("Microsoft.XMLHTTP")
i=1
ForEachuInArray("url1","url2")
http.Open"POST",u,False
http.send""
Ifhttp.Status=200Then
Cells(i,1)=http.responseText
i=i+1
EndIf
Nextu
Sethttp=Nothing
EndSub
url1、url2就是你的網址,有多少寫多少,每一個都要一http開頭(然後是冒號和兩個斜線)的完整地址。
㈢ vba開發怎麼調出工具箱
EXCEL中插入一個用戶窗體後,工具箱會自動出現。如果沒有出現或關閉了,請在菜單 視圖 工具箱 打開
㈣ 為什麼我的Excel中載入宏中沒有「分析工具庫」和「分析工具庫-VBA 函數」這2個選項呀
可能沒有裝吧,你可以從別人的電腦上復制一下.路徑是
C:\Program Files\Microsoft Office\OFFICE11\Library
㈤ 如何用vba抓取網頁數據
Sub cc()
Cells.ClearContents
Set oDoc = CreateObject("htmlfile")
With CreateObject("WinHttp.WinHttpRequest.5.1")
.Open "GET",
"",
False
.Send
.WaitForResponse
oDoc.body.innerHTML = .responsetext
Set r = oDoc.All.tags("table")(7).Rows
For i = 0 To r.Length - 1
k = [a65536].End(3).Row
For j = 0 To r(i).Cells.Length - 1
Cells(k + 1, j + 1) = r(i).Cells(j).innerText
Next j
Next i
Set r = Nothing
End With
End Sub
㈥ 如何使用vba從網頁中提取單一數據
以下代碼能將第一網站的融資融券余額提取放在當前工作表的A1單元格中。你用一下,如果明後天也能使用,說明網站數據結構是固定的,那我再給你做提取第二個網站的。需要的話就追問一下。
Sub提取融資融券余額()
Setxm=CreateObject("Msxml2.XMLHTTP.3.0")
xm.Open"GET","http://www.szse.cn/main/disclosure/rzrqxx/rzrqjy/",False
xm.send
s=StrConv(xm.responsebody,vbUnicode)
[A1]=Val(Replace(Split(s,"class='cls-data-td'align='right'>")(6),",",""))
EndSub
㈦ 如何利用vba調用excel中的數據分析工具
親,「數據的調用」這句話不太專業哦~~~看不懂 您能說明具體要求么,比方說從Sheet2的哪一列,按什麼條件取什麼數據,放在Sheet1的哪一列。要配上帶行列標的截圖。
㈧ Excel vba如何抓取指定的網頁數據到單元格
參考:
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, "</tr><tr class=><td>")
For j = 1 To UBound(B1)
B2 = Split(B1(j), "</td>")
B3 = Split(Replace(B2(1), "<td>", ""), ",")
A2(A + 1, 1) = Replace(B2(2), "<td>", "")
A2(A + 1, 2) = Replace(B2(0), "<td>", "")
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
㈨ Excel 如何用VBA提取網頁數據
1、首先打開Excel 2007工作表,點擊想要把數據導入的位置,然後在菜單欄找到第五項'數據「,點擊,在「獲取外部數據」項下找到「自網站」並點擊。
2、這時彈出來」新建 Web 查詢「對話框,可以在「地址」一欄鍵入要添加數據的網頁的地址。
3、添加完成後,點擊「轉到(G)」,下面會出來要添加網頁的內容和黃色箭頭,單擊要選擇的表旁邊的黃色箭頭,可以看到點擊後黃色箭頭變成綠色的對號,這表示內容已經選中了,然後單擊「導入(I)」。
4、彈出來」導入數據「對話框,設置完成點擊「確定」。
5、Excel表中顯示「正在獲取數據……」。
6、數據獲取完成,之前選中的網頁內容全部導入了Excel工作表裡。
㈩ excel VBA 網頁數據抓取
首先打開Excel 2007工作表,點擊想要把數據導入的位置,然後在菜單欄找到第五項"數據「,點擊,在「獲取外部數據」項下找到「自網站」並點擊。
這時彈出來」新建 Web 查詢「對話框,可以在「地址」一欄鍵入要添加數據的網頁的地址。
添加完成後,點擊「轉到(G)」,下面會出來要添加網頁的內容和黃色箭頭,單擊要選擇的表旁邊的黃色箭頭,可以看到點擊後黃色箭頭變成綠色的對號,這表示內容已經選中了,然後單擊「導入(I)」。
彈出來」導入數據「對話框,設置完成點擊「確定」。
Excel表中顯示「正在獲取數據……」。
數據獲取完成,之前選中的網頁內容全部導入了Excel工作表裡。