用vbs实现了这样的功能,源码如下： 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 另存为*.vbs,执行即可。 我测试了，没有加载js的，获取还行，如果有js加载的内容就难获取了