vba獲取網頁表格資料庫數據
『壹』 excel VBA 網頁數據抓取
首先打開Excel 2007工作表，點擊想要把數據導入的位置，然後在菜單欄找到第五項"數據「，點擊，在「獲取外部數據」項下找到「自網站」並點擊。
這時彈出來」新建 Web 查詢「對話框，可以在「地址」一欄鍵入要添加數據的網頁的地址。
添加完成後，點擊「轉到（G）」，下面會出來要添加網頁的內容和黃色箭頭，單擊要選擇的表旁邊的黃色箭頭，可以看到點擊後黃色箭頭變成綠色的對號，這表示內容已經選中了，然後單擊「導入（I）」。
彈出來」導入數據「對話框，設置完成點擊「確定」。
Excel表中顯示「正在獲取數據……」。
數據獲取完成，之前選中的網頁內容全部導入了Excel工作表裡。
『貳』 謝謝你的回答。請問VBA抓取網頁數據，能不能做到
可以，通過Excel——數據——自網站，錄取一份代碼，根據代碼進行適當修改，提取所需數據。
舉例：
Sub讀取網頁數據()
DimsAddressAsString
Fori=1To90
sAddress=Range("A"&Range("A:A").Rows.Count).End(xlUp).Offset(1,0).Address
WithActiveSheet.QueryTables.Add(Connection:=_
"URL;
"&i,Destination:=Range(sAddress))
.Name="page="&i
.FieldNames=True
.RowNumbers=False
.FillAdjacentFormulas=False
.PreserveFormatting=True
.RefreshOnFileOpen=False
.BackgroundQuery=True
.RefreshStyle=xlInsertDeleteCells
.SavePassword=False
.SaveData=True
.AdjustColumnWidth=True
.RefreshPeriod=0
.WebSelectionType=xlSpecifiedTables
.WebFormatting=xlWebFormattingNone
.WebTables="""listTable"""
.WebPreFormattedTextToColumns=True
.WebConsecutiveDelimitersAsOne=True
.WebSingleBlockTextImport=False
.WebDisableDateRecognition=False
.WebDisableRedirections=False
.RefreshBackgroundQuery:=False
EndWith
Nexti
EndSub
上面代碼不全，網址部分被屏蔽了，參考：
http://..com/question/1990077664368754987
『叄』 做一個電子表格excel vba 實時獲取網頁數據
首先打開Excel 2007工作表，點擊想要把數據導入的位置，然後在菜單欄找到第五項"數據「，點擊，在「獲取外部數據」項下找到「自網站」並點擊。
『肆』 Vba 如何獲取Edge網頁數據
將_頁中表的數據輸出到excel中。
下面會出來要添加網頁的內容和黃色箭頭，單擊要選擇的表旁邊的黃色箭頭，可以看到點擊後黃色箭頭變成綠色的對號，這表示內容已經選中了，然後單擊導入。
『伍』 怎麼用VBA或網路爬蟲程序抓取網站數據
VBA網抓常用方法
1、xmlhttp/winhttp法：
用xmlhttp/winhttp模擬向伺服器發送請求，接收伺服器返回的數據。
優點：效率高，基本無兼容性問題。
缺點：需要藉助如fiddler的工具來模擬http請求。
2、IE/webbrowser法：
創建IE控制項或webbrowser控制項，結合htmlfile對象的方法和屬性，模擬瀏覽器操作，獲取瀏覽器頁面的數據。
優點：這個方法可以模擬大部分的瀏覽器操作。所見即所得，瀏覽器能看到的數據就能用代碼獲取。
缺點：各種彈窗相當煩人，兼容性也確實是個很傷腦筋的問題。上傳文件在IE里根本無法實現。
3、QueryTables法：
因為它是excel自帶，所以勉強也算是一種方法。其實此法和xmlhttp類似，也是GET或POST方式發送請求，然後得到伺服器的response返回到單元格內。
優點：excel自帶，可以通過錄制宏得到代碼，處理table很方便
。代碼簡短，適合快速獲取一些存在於源代碼的table里的數據。
缺點：無法模擬referer等發包頭
也可以利用採集工具進行採集網頁端的數據，無需寫代碼。
『陸』 求助用VBA抓取網頁數據
應該實現不了吧，你只能是把你需要的所有數據都弄到表格中，然後篩選出你需要的數據，你不可能用excel鏈接到別人的資料庫，那樣你就成黑客了，如果你能進入對方的資料庫 那還可以實現你的要求，但也有難度
『柒』 excel vba如何讀取網頁中的某個數值。
用數據字典，dictionary value，item 。 value不允許重復。
Sub test()
Dim name()
Set dic = CreateObject("Scripting.Dictionary")
a = [a65536].End(xlUp).Row
For Each Cell In Worksheets("Sheet1").Range("A1:A" & a)
If Not dic.exists(Cell.Value) Then
dic.Add Cell.Value, Cell.Value
On Error Resume Next
End If
Next
name = dic.items
For i = 1 To dic.Count
Worksheets("Sheet1").Cells(i, 2) = name(i - 1)
Next
End Sub
『捌』 vba如何抓取網頁上的數據
代碼：
Private Sub CommandButton1_Click()
Dim IE As Object
Dim i As Integer
i = 1
'打開網頁：創建一個IE對象，然後給一些屬性賦值。Visible是可見性，navigate是網頁地址
Set IE = CreateObject('internetexplorer.application')
With IE
.Visible = True
.navigate 'http://hanyu.iciba.com/pinyin.html'
'等待網頁完全載入
Do Until .ReadyState = 4
DoEvents
Loop
'拷貝漢字到網頁文本框,然後點擊轉換按鈕,並取出轉換結果
Do While Sheets('sheet1').Cells(i 1, 1).Value <> ''
'從IE.Document.all句柄中把頁面上要使用的節點找出來。這里的方法是：
.document.all('source').Value 給以source為ID的文本框賦值
.document.all.tags('img')(1).Click 點擊圖片集合里的第二張圖片
.document.all('to').Value 取出以to為ID的文本框內容
.document.all('source').Value = Sheets('sheet1').Cells(i 1, 1).Value
.document.all.tags('img')(1).Click
Do Until .ReadyState = 4
DoEvents
Loop
Sheets('sheet1').Cells(i 1, 2).Value = .document.all('to').Value
i = i 1
Loop
'關閉網頁
.quit
End With
End Sub
代碼解釋：(見注釋)
貼士：
1)VBA只能操作IE瀏覽器，原因就一句話：都是微軟家的產品嘛
2)要先引用Micorsoft Internet Controls
『玖』 如何用VBA提取網上的表格數據進Excel
VBA提取網頁數據有三種方式：
首選的是查詢，編程最簡單，選一個工作表新建一個網頁查詢，VBA每次刷新數據，就可以使用了。
另外兩種是XML下載網頁，IE對象下載網頁，需要處理HTML代碼，很麻煩的。
『拾』 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開頭（然後是冒號和兩個斜線）的完整地址。