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

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

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

·s°ÝÃD.rar (10.19 KB)
¥D­n·QÅý¬õ°é³B ªº¸ê®Æ  ½Æ¨î>>¥´¶}¥k¤W¤èªººô§}>¦A¶K¤W«á«ö¤U submit  


³Ì¦nÁÙ¯à±N¤U­±¬õ°é³B¤Gµ§ISK ¤]³£¶Ç¦^EXCEL¤W

¤£ª¾¦³¨S¦³ªk¤l¯à°µ¨ì©O? ·PÁÂÀ°¦£¤F



§Ú¥Î¥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

¦^´_ 21# icestormer


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

TOP



­ì¥»³£¨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

¦^´_ 17# stillfish00


   ·PÁ §A¤Î¤j®aªºÀ°¦£!

TOP

¦^´_ 18# GBKEE
¦^´_ 16# stillfish00

¥ý·PÁ¨â¦ì«e½ú¦^ÂЧڪº°ÝÃD¡A(ÃD¥~¸Ü¡A½Ð°Ý«ç»ò¤@¤f®ð¦^´_¨â­Ó¤Hªü¡A§Ú¬O¥Î½Æ»s¶K¤W¨C¦¸ªº¦^Âгsµ²ªº@@")

¬Q¤Ñ¬d§ä¤F¤@¤Ñ¡A¦³ÂI°µ¥Õ¤uªº·Pı¡A¦n¹³µLÀY»aÃÇ  ¨S¦³·Q¨ìG¤j¸ò§ÚÁ¿ªºÃöÁä¦r §Ú³æ¯Â·j´M´N¦n¡A
(¬Q¤é¥ÎGOOGLE ÂsÄý¾¹ ¥´¤W¤FDocument.getElementsByName    ¶]¨ì­ì¤åºô¯¸¥h¡A«ç»ò¬Ý«ç»ò¤£¸Ñ°_¦]µ²ªG)

¤µ¤Ñ±oª¾¨â¦ì¡A¤Wºôª¦¤F¤@¤U¤å³¹¡AÂà¸ü¤@¤Uºô§} ¡A§Æ±æµ¹¦U¦ì¤À¨É
­ì¨Óºô¯¸¬O¥Ñ¨C­Ó¤¸¯Àºc¦¨ªº¡A¨C­Ó¤¸¯À³£¦³¦Û¤vªºID¥B¤£­«½Æ¡A(¦ý¬O³o­ÓIDÁÙ¥i¥H¤£¦s¦b....)
Ãø©ÇG¤j¨C¦¸¦b§ìºô¯¸¸ê®Æªº®É­Ô¡A­n§Q¥ÎÃþ¦ü°}¦C¤¸¯À¤@­Ó¤@­Ó§ì
¥H¤Uªººô§}  Âà¸ü¤F2006¦~ªº¨k¤B®æº¸ºô¯¸
http://blog.xuite.net/abgne/diary1/5896789#message_header
ªºÂ²³æ¸ÑÄÀ¡A¬Ý¤F¤@¤U¡Aµy¯à²¤ª¾¤@¤G

­ì©lªºgetElementsByName  
§Ú¥ý§ä¨ì­Óºô¯¸http://blog.longwin.com.tw/2007/08/javascript_set_id_style_method_2007/
GetID ³o­Ó¥Îªk»Pstillfish00¦b16¼Ó¦^§Úªº¨Ì¼Ë¡A¬O¬[³]¦bJAVA µ{¦¡»y¨¥¸Ì­±ªº
¨S¦³·Q¨ì¡A¸I­ÓVBA¡A³s¨ä¥L³nÅé³£­n²¤ª¾¤@¤G¤F

¥H¤W¥ý¸ò¦U¦ì¤À¨É¡A§ÚºCºC¦A¬d§ä¸ê®Æ¡C

TOP

¦^´_ 14# handsometrowa
·j´M   CreateObject("InternetExplorer.APPLICATION") ©Î getElementById   ·|¦³µª®×ªº
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 15# icestormer
  1.     Set x = .document.getElementById("results").tFoot.all.tags("span")
  2.     [L22].Value = x(0).innerText & " : " & x(3).innerText
  3.     [L23].Value = x(1).innerText & " : " & x(4).innerText
  4.     [L24].Value = x(2).innerText & " : " & x(5).innerText
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2013-10-21 16:50 ½s¿è

¦^´_ 14# handsometrowa
http://www.w3school.com.cn/html/index.asp ¥i¥H¥ý¬Ý¤@¤U HTML ªº¤¸¯À¡B¼ÐÅÒ¡BÄÝ©Ê
http://www.w3school.com.cn/htmldom/index.asp ¦A¬Ý¬Ý¸`ÂI¡B³X°Ý¤èªk(³o¬OÂkÃþ¦bjavascript¤Uªº¡A¦ý³£¤j¦P¤p²§)

µM«á¤ñ¹ï¬Ý¹Lªº½d¨Ò¡A¦A¹ï·Ó­ì©l½X¥i¯à·|¤ñ¸û¦³¦¬Ã¬¡A¨ä¹ê´N¬O¦b¾ð¤¤®Ú¾Ú¯S©wÄݩʧä¸`ÂI¡C

TOP

Sub Test()
  Dim oIe, myData As DataObject, x
  
  Set myData = New DataObject  '»Ý¤Þ¥Î MS Form Object Library
  
  With Sheets("°ÝÃD")
    .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("result_container")


¦pªG·Q¤À§O®»¨ú¬õ°é³B亖­Ó 1 total sell value  2 total buy value   3 total volume   ¤À§O¦s¤J L22 L23 L24 ®æ¤¤[/size]''

½Ð°Ý­n«ç§ï©O? ·PÁÂ~




    MsgBox x.All.tags("h4")(0).innerText
    .Quit
  End With
  
End Sub

TOP

        ÀR«ä¦Û¦b : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD