Hsieh

¦^´_ 1# FAlonso

1. Sub nn()
   
2. Dim MyIE As InternetExplorer
   
3. Set MyIE = CreateObject("InternetExplorer.Application")
   
4. With MyIE
   
5. .navigate "http://gb.twbts.com/index.php?action=printpage;topic=11352.0"
   
6. Do Until .readyState = READYSTATE_COMPLETE
   
7. Loop
   
8. .ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DONTPROMPTUSER
   
9. .ExecWB OLECMDID_COPY, OLECMDEXECOPT_DONTPROMPTUSER
   
10. Sheet1.[a1].Select
    
11. Sheet1.Paste
    
12. .Quit
    
13. End With
    
14. Set MyIE = Nothing
    
15. End Sub

½Æ»s¥N½X