oIE = createobject( 'internetexplorer.application') oie.Navigate("http://data./cqssc/haoma/2013-04-03/") Do While oie.Busy=.T. Or oie.ReadyState#4 Inkey(1) Enddo strtofile(oIE.Document.body.innerhtml,[11.txt]) MODIFY FILE 11.txt