[µo°Ý] VBA §ì¨úºô¸ôªí®æ

52028

¦U¦ìµ{¦¡°ª¤â¦n¡A¤p§Ì·Q°µµ{¦¡§ì¨ú¹³¹d¦ëºô³oÃþªººô¯¸¸ê®Æ
http://www.cnyes.com/twstock/ps_historyprice/1101.htm

¤w¯à°µ¨ìÁä¤J°_©l¤é´Á¤Î¬d¸ß¡A¦ý§ì¨ú¸ê®Æªºµ{¦¡¼g¤£¥X¨Ó¡C
ª¦¹L¨ä¥L¤å¡A³£¬OTABLE¦³id¡A¦ý³oºØªº¤£ª¾±q¦ó¤U¤â¡A
½Ð¨D¨ó§U¡C

1. Sub Website()
   
2. 
   
3. 
   
4.     Dim doc As Object
   
5.     Set IE = CreateObject("internetexplorer.application")
   
6.      With IE
   
7.     IE.Visible = True
   
8. 
   
9. navigate:
   
10.     IE.navigate "http://www.cnyes.com/twstock/ps_historyprice/1101.htm"
    
11.                 'http://www.cnyes.com/twstock/ps_historyprice/1101.htm'
    
12. 
    
13.     Do While IE.ReadyState <> 4: DoEvents: Loop
    
14. 
    
15.     Set doc = CreateObject("htmlfile")
    
16.     Set doc = IE.document
    
17. 
    
18.     If doc Is Nothing Then GoTo navigate
    
19. 
    
20.     Set txtDtBegin = doc.getelementbyid("ctl00_ContentPlaceHolder1_startText")  '¶}©l¤é´Á'
    
21.         txtDtBegin.Value = "2015/11/23"
    
22.     Set txtDtEnd = doc.getelementbyid("ctl00_ContentPlaceHolder1_endText")      'µ²§ô¤é´Á'
    
23.         txtDtEnd.Value = "2015/11/25"
    
24.    
    
25.     Set element = doc.getelementbyid("ctl00_ContentPlaceHolder1_submitBut")     'ÂIÀ»«ö¶s'
    
26.         element.Click
    
27.          
    
28.          
    
29.     Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
    
30.     End With
    
31.   
    
32. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 1# 52028

°Ñ¦Ò³o¸Ì