|
采用VB從網(wǎng)頁上獲取數(shù)據(jù) [復(fù)制鏈接] 本帖最后由 crro 于 2012-2-14 21:45 編輯 加入有一個網(wǎng)頁：HTTP://127.0.0.1/1.asp?id=1,表示查詢ID=1時的數(shù)據(jù)，如果要查詢ID=2時的數(shù)據(jù)時網(wǎng)址變成了：HTTP://127.0.0.1/1.asp?id=2，以此類推。 現(xiàn)在要做一個EXCEL文件，在一個表格中填寫入“1”、“2”、“3”等數(shù)據(jù)，添加一個提交按鈕，當(dāng)按鈕按下之后，會提取到對應(yīng)網(wǎng)址：http://127.0.0.1/1.asp?id=1、[url=http://127.0.0.1/1.asp?id=2、HTTP://127.0.0.1/1.asp?id=3[/url],HTTP://127.0.0.1/1.asp?id=2]HTTP://127.0.0.1/1.asp?id=2、HTTP://127.0.0.1/1.asp?id=3相應(yīng)的數(shù)據(jù)。 請問各位大俠可否用VB實(shí)現(xiàn)？程序該怎么寫啊？ 分享0 收藏5 有用0 無用0 猜您喜歡 Excel vba 控制網(wǎng)頁進(jìn)行數(shù)據(jù)提交的問題，求大大們幫助 Excel 關(guān)于網(wǎng)頁操作中碰到的幾個問題 如何利用VBA關(guān)閉360瀏覽器？ Excel 如何通過Web瀏覽器獲取Js變量值？ Excel 為什么win7下excel的web查詢速度很慢？ 用vba隨意控制音樂播放 百度推薦 舉報 1234 xmyjk 12105 財富 97 鮮花 15 技術(shù) 等級 6EH能手 積分排行221帖子3197精華1微積分0 串個門 加好友 打招呼 發(fā)消息 2樓 發(fā)表于 2012-2-15 09:42:30 |只看該作者 ★《精粹》中的精粹：成為Excel高手的捷徑★ ★《循序漸進(jìn)學(xué)Excel》視頻教程免費(fèi)教您起步★ 內(nèi)網(wǎng)吧，沒有源代碼，愛莫能助。 舉報 crro 63 財富 0 鮮花 0 技術(shù) 等級 1EH新人 積分排行3000+帖子5精華0微積分0 串個門 加好友 打招呼 發(fā)消息 3樓 發(fā)表于 2012-2-15 11:45:20 |只看該作者 ★《Excel 2007實(shí)戰(zhàn)技巧精粹》白金打造，重裝上陣 配套視頻教程免費(fèi)下載中★ xmyjk 發(fā)表于 2012-2-15 09:42 內(nèi)網(wǎng)吧，沒有源代碼，愛莫能助。 比如網(wǎng)址：http://dict.cn/yes，可以得到y(tǒng)es的翻譯結(jié)果，如果網(wǎng)址http://dict.cn/love，可以得到love的翻譯結(jié)果。 現(xiàn)在要做一個EXCEL文件，在表格中輸入想要查詢的單詞，然后提交。可以獲取對應(yīng)網(wǎng)頁的數(shù)據(jù)，也就是輸入單詞的翻譯結(jié)果。 請問該怎么實(shí)現(xiàn)，謝謝大俠。 舉報 xmyjk 12105 財富 97 鮮花 15 技術(shù) 等級 6EH能手 積分排行221帖子3197精華1微積分0 串個門 加好友 打招呼 發(fā)消息 4樓 發(fā)表于 2012-2-15 12:42:46 |只看該作者 ★財務(wù)、會計、人力資源、行政、生管、銷售、市場、學(xué)校管理：Excel 行業(yè)應(yīng)用系列視頻課程精彩放送中★ crro 發(fā)表于 2012-2-15 11:45 比如網(wǎng)址：http://dict.cn/yes，可以得到y(tǒng)es的翻譯結(jié)果，如果網(wǎng)址http://dict.cn/love，可以得到love的翻 ... Option Explicit Sub test() Dim tmp() As String, i As Integer, arr() As String, xmlhttp As Object, brr, p& brr = Range([a2], [a65536].End(3).Offset(, 1)).Value For p = 1 To UBound(brr) Set xmlhttp = CreateObject("Microsoft.XMLHTTP") With xmlhttp .Open "get", "http://dict.cn/" & brr(p, 1), False .send tmp = Filter(Split(.responsetext, """/>"), "edit-exp-dd[]"" value=""") End With ReDim arr(UBound(tmp)) For i = 0 To UBound(tmp) arr(i) = Split(tmp(i), "edit-exp-dd[]"" value=""")(1) Next brr(p, 2) = Join(arr, ";") Erase tmp Erase arr Next Set xmlhttp = Nothing [a2].Resize(UBound(brr), 2) = brr MsgBox "Ok" End Sub
|
|
|
