ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

Sendkey°ÝÃD

Sendkey°ÝÃD

§Q¥ÎVBA¶}啓Internet Explorer, ·QCopy and Paste ¦Ü¬Yworksheet
  1. Sub callraceresult()
  2. Dim myIE As Object
  3. Dim mydate, myrace, myvenue

  4. mydate = Sheet1.Cells(4, 1)
  5. myrace = Sheet1.Cells(4, 2)
  6. myvenue = Sheet1.Cells(4, 3)

  7. Set myIE = CreateObject("InternetExplorer.application")
  8. myIE.Visible = True
  9. myIE.navigate xxxxxxxx

  10. While myIE.busy
  11. DoEvents
  12. Wend

  13. myIE.SendKeys "^A" <=³o¸Ì¥X¿ù¤F Error 438, ª«¥ó¤£¤ä´©¦¹¤èªk
  14. myIE.SendKeys "^C"

  15. End Sub
½Æ»s¥N½X
¤£½×¿é¤J¤°»ò«ü¥O, sendkey³¡¥÷³£¬O¥X¿ù, ÁÙ¦³À³¸Ó«ç¼Ë§â¸ê®Æ§Û¥X¯S©wworksheet?
ÁÂÁÂ
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

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

TOP

G¦Ñ®vªºsendkey,¥u¯à¦bVBA¤¶­±¨Ï¥Î, §Ú§Æ±æ¦b·s¶}ªºInternet Explorer¥Î, copy and paste ºô­¶¤¤ªº©Ò¦³¸ê®Æ
ÁÂÁÂ
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

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

TOP

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

¦A§äworksheet paste
´ú¸Õ¼È®É¦³®Ä
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD