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

[µo°Ý] ¦p¦ó±N±qEXCEL¤ºªº¸ê®Æ¶K¤Jºô¯¸¤¤(¹Lµ{³£¥ÑVBA¦Û°Ê°õ¦æ)



­ì¥»³£¨S¦³ÃD¦ý¬Q¤Ñ¸ò¤µ¥ª¶}©l¦p¤W¹Ïªº¿ù»~ µM«á ¿ù¦æ½X°±¦b
   
    Application.Wait Now + TimeValue("00:00:05")  'µ¥«Ý5¬í§¹¦¨
Set x = .document.getElementById("results").tFoot.all.tags("span") ¦b³o¤@¦æ?

³oºØ°ÝÃD¬Oºô¯¸¨Ó¤£¤Î³B²zªº°ÝÃD  ¹ï§a?? ¯à«ç³B²z©O? §â5¬íÅÜ10©Î§óªø¥i¦æ??

TOP

¦^´_ 21# icestormer


  §Ñ¤F»¡ ºô¯¸¦³®É ¥i¥H¥Î¦³®É¤S¤£¦æ..¤£ª¾¬O¤£¬O­è¦n«Ü¦h¤H¥Î¦b¦£¤¤

TOP



§Ú¥Î¥H¤Uªºµ{¦¡½X ¥X²{¥H¤W¹Ïªº¿ù(¤§«e¤£·|¦³³o°ÝÃD) ¥t¥~©_©Çªº¬O ¥u­n§Ú¬O¤â°Ê¶K¤J ¦A¤â°ÊÂIÀ»SUMBIT ºô¯¸³£¤£·|¥X¿ù©O ¤£ª¾ ¦pªG§ï¥ÎFIREFOX ©ÎGOOGLEªº·|¦n¨Ç?
¦³¤H¯àÀ°¦£¶Ü?

Sub Test()
  Dim oIe, myData As DataObject, x
  
  Set myData = New DataObject  '»Ý¤Þ¥Î MS Form Object Library
  
  With Sheets("¦Û°Ê­pºâªí")
    .Range(.[A4], .[F4].End(xlDown)).Copy
  End With
  myData.GetFromClipboard
  
  Set oIe = CreateObject("internetExplorer.Application")
  With oIe
    '.Visible = False
    .navigate "http://www.evepraisal.com"
    Do While oIe.readystate <> 4: DoEvents: Loop
   
    .document.getElementById("raw_textarea").innerText = myData.GetText '¶ñ¤J
    .document.getElementById("result_submit").Click 'submit
   
    Application.Wait Now + TimeValue("00:00:05")  'µ¥«Ý5¬í§¹¦¨
   
       Set x = .document.getElementById("results").tFoot.all.tags("span")
    [L22].Value = x(0).innerText & " : " & x(3).innerText
    [L23].Value = x(1).innerText & " : " & x(4).innerText
    [L24].Value = x(2).innerText & " : " & x(5).innerText
    .Quit
  End With
  
End Sub

TOP

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