Sendkey°ÝÃD

FAlonso

§Q¥ÎVBA¶}啓Internet Explorer, ·QCopy and Paste ¦Ü¬Yworksheet

1. Sub callraceresult()
   
2. Dim myIE As Object
   
3. Dim mydate, myrace, myvenue
   
4. 
   
5. mydate = Sheet1.Cells(4, 1)
   
6. myrace = Sheet1.Cells(4, 2)
   
7. myvenue = Sheet1.Cells(4, 3)
   
8. 
   
9. Set myIE = CreateObject("InternetExplorer.application")
   
10. myIE.Visible = True
    
11. myIE.navigate xxxxxxxx
    
12. 
    
13. While myIE.busy
    
14. DoEvents
    
15. Wend
    
16. 
    
17. myIE.SendKeys "^A" <=³o¸Ì¥X¿ù¤F Error 438, ª«¥ó¤£¤ä´©¦¹¤èªk
    
18. myIE.SendKeys "^C"
    
19. 
    
20. End Sub

½Æ»s¥N½X

¤£½×¿é¤J¤°»ò«ü¥O, sendkey³¡¥÷³£¬O¥X¿ù, ÁÙ¦³À³¸Ó«ç¼Ë§â¸ê®Æ§Û¥X¯S©wworksheet?
ÁÂÁÂ

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

FAlonso

§Ú¦bºô¤W§ä¨ì³o­Ó
myIE.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DONTPROMPTUSER
myIE.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT

¦A§äworksheet paste
´ú¸Õ¼È®É¦³®Ä

oobird

¨S¦³¿ï¨úºô­¶¼Æ¾Ú©Î½d³òªº°Ê§@¯à½Æ»s¨ì¤°»ò¡H
¤]³\¥Îweb¬d¸ß¸û¾A¦X¡C

FAlonso

G¦Ñ®vªºsendkey,¥u¯à¦bVBA¤¶­±¨Ï¥Î, §Ú§Æ±æ¦b·s¶}ªºInternet Explorer¥Î, copy and paste ºô­¶¤¤ªº©Ò¦³¸ê®Æ
ÁÂÁÂ

GBKEE

¦^´_ 1# FAlonso
Application.SendKeys "^A"
Application.SendKeys "^C"