Clear
Wait Window "请稍等片刻......" Nowait
oIE = Createobject("internetexplorer.application")
oIE.Visible = .F.
oIE.Navigate("https://k3.)
tStartSecond = Seconds()
Do While oIE.Busy = .T. Or oIE.ReadyState#4
    If Seconds() - tStartSecond > 10
        Exit
    Endif
    =Inkey(0.5)
Enddo
 
Create Cursor 河南快三 (期号 c(4),百位 c(8), 十位 c(12), 个位 c(8))
 
objTable = oIE.Document.getElementsByTagName("table").[0]
 
For Each objRow In objTable.Rows
    If objRow.cells(0).innertext <> "期号"
    ? objRow.cells(0).innertext
        Insert Into 河南快三 (期号 ,百位, 十位, 个位);
            Values (objRow.cells(0).innertext, ;
            objRow.cells(1).innertext, objRow.cells(2).innertext,objRow.cells(3).innertext)
    Endif
Next
 
Wait Window "完成." Timeout 3
 
oIE.Quit()
 
Go Top
Browse Last Title "河南快三"

分屏、分页、隔行等信息截取还是搞不懂，还请老师帮忙指点下