Const ForWriting = 2 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("Kaijiang_xj.txt", ForWriting, True) Set objIE = CreateObject("InternetExplorer.Application") 'objIE.visible = True objIE.Navigate("网址") Do While objIE.ReadyState <>4 Loop Set objDoc = objIE.Document Set aTables = objDoc.getElementsByTagName("Table") For Each objTable In aTables objTextFile.WriteLine objTable.Innertext Next objTextFile.Close objIE.Quit