VBA操作網(wǎng)頁讀取數(shù)據(jù)自動填入EXCEL表中

1、-作者xxxx-日期xxxxVBA操作網(wǎng)頁讀取數(shù)據(jù)自動填入EXCEL表中【精品文檔】VBA操作網(wǎng)頁讀取數(shù)據(jù)自動填入EXCEL表中 Sub a正式查分程序() 運行時會出現(xiàn)錯誤提示，中止程序，更改j初值后重新運行 Dim ie, dmt Dim i, j, k, bb, nianfen As Integer Dim text1 As String 存儲考號 Dim text2 As String 存儲報名序號 Dim text3 As String 存儲瀏覽器地址 Dim fuwuqi As String 存儲服務(wù)器地址 Dim tijiao As String 存儲提交命令 nianfen =

2、 2012 存儲年份，每年更改“2012” fuwuqi = 25:81/cjcx/tmp_cx_zzcj.php 自行更改為可用服務(wù)器 tijiao = &cmdok=? cmdok=?為提交命令 bb = Sheet3.Range(a65536).End(xlUp).Row 計算當前工作表sheet3的有效行數(shù)，需自行更改“sheet3” On Error Resume Next 主程序 k = 0 For j = 2 To bb 循環(huán)變量從2到sheet2最后一行，出錯后起始值改為當前行 k = k + 1 If k > 20 Then

3、每20行，可以增大“20”數(shù)值 ActiveWorkbook.Save 自動保存 ActiveWindow.ScrollRow = j 自動滾屏到當前行 k = 0 循環(huán)變量清零 End If text1 = Cells(j, 1) 從當前行第一列讀取考號，根據(jù)情況調(diào)整列“1”數(shù)值 text2 = Cells(j, 2) 從當前行第二列讀取報名序號，根據(jù)情況調(diào)整列“2”數(shù)值 生成查詢地址 text3 = fuwuqi & ?textdate= & nianfen & &textkh= & text1 & &textzjhm= &

4、text2 & tijiao 創(chuàng)建網(wǎng)頁對象 Set ie = CreateObject(InternetExplorer.Application) With ie .Visible = False 網(wǎng)頁設(shè)置為不可見 .Navigate text3 導航到查詢網(wǎng)址并提交 On Error Resume Next MsgBox text3 Sleep 10000 sleep庫函數(shù)未用 Do Until .ReadyState = 4 等網(wǎng)頁完全打開 DoEvents Loop Set dmt = .Document 讀取查詢服務(wù)器返回內(nèi)容 網(wǎng)頁內(nèi)容處理 i = 0 循環(huán)變量清零 For Each td In dmt.getElementsByTagName_r(td) 查找網(wǎng)頁代碼內(nèi)的文本填充到當前行的第i+5列，根據(jù)要求適當調(diào)整i+5的值 End If Next .Quit 關(guān)閉網(wǎng)頁 Set dmt = Nothing DMT對象清空 End With Next j Set ie = Nothing IE對象清空 s2.CurrentRegion.Columns.AutoFit 設(shè)置為自動填充 End Sub i =