stillfish00

¦^´_ 1# icestormer

1. Sub Test()
   
2.   Dim oIe, myData As DataObject, x
   
3.   
   
4.   Set myData = New DataObject  '»Ý¤Þ¥Î MS Form Object Library
   
5.   
   
6.   With Sheets("°ÝÃD")
   
7.     .Range(.[A4], .[F4].End(xlDown)).Copy
   
8.   End With
   
9.   myData.GetFromClipboard
   
10.   
    
11.   Set oIe = CreateObject("internetExplorer.Application")
    
12.   With oIe
    
13.     '.Visible = False
    
14.     .navigate "http://www.evepraisal.com"
    
15.     Do While oIe.readystate <> 4: DoEvents: Loop
    
16.    
    
17.     .document.getElementById("raw_textarea").innerText = myData.GetText '¶ñ¤J
    
18.     .document.getElementById("result_submit").Click 'submit
    
19.    
    
20.     Application.Wait Now + TimeValue("00:00:05")  'µ¥«Ý5¬í§¹¦¨
    
21.    
    
22.     Set x = .document.getElementById("result_container")
    
23.     MsgBox x.All.tags("h4")(0).innerText
    
24.     .Quit
    
25.   End With
    
26.   
    
27. End Sub

½Æ»s¥N½X

stillfish00

¦^´_ 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

stillfish00

¦^´_ 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