VBA抓取網頁數據詳細教程，舉例抓取網頁中的表格數據 Sub test() Dim ie, dmt, tbs, i&, tb Set ie = CreateObject("InternetExplorer.Application") '創建一個IE對象 With ie .Visible = True '顯示它 .navigate "http://data.eastmoney.com/dxf/default.html" '加載某個頁面 Do Until .ReadyState = 4 '等待頁面加載