c_c_lai

¦^´_ 47# ML089

¤U¸ü (69.15 KB)

2013-11-20 17:56

¤U¸ü (71.83 KB)

2013-11-20 17:56

ML089

¦^´_ 46# c_c_lai

¥i§_¤À¨É¤@¤U¡A§ÚÁÙ¬O¬Ý¤£À´ ^_^

c_c_lai

¦^´_ 44# joey0415

¤U¸ü (46.96 KB)

2013-11-20 14:00

«éµM¤j®©¡AÁÂÁÂÅo¡I

joey0415

¦^´_ 43# GBKEE

½Ð°Ý¶Wª©¡A¥­±`³£­n¥[¸ü§¹¦¨¡A¤~°µ¤U¤@¨B¡I­Y¤£§¹¦¨¡A¥i¯à­n§äªº¸ê®Æ¨S¦³§ä¨ì·|¥X¿ù

¦ÓBUSY »P§¹¥þªº®t²§¤S¦b­þ©O¡H½Ð«ü±Ð¤@¤U

¦pªG¥Dªº¤èªk¬O¥¿½Tªº¡A¨º¥H«á¥u¦³¤U¸ü¦³Ãöªº»yªk³£­n§ï¦¨³o¼Ë¡AÁÙ¬O¥u¦³³oºô¯¸¤~­n¯S§O¦p¦¹©O¡H

ÁÂÁ¶Wª©
==========================
½Ð°Ý¶Wª©¡G
¦pªG¤w¬d¸ß¤@­Óºô§}«á¡A¤w±Nºô¯¸¤º®e§ï¦¨¤U¥y
.document.body.innerHTML = .document.getElementsBytagname("table")
¡A¦pªG¶K¤W«á¡AÁÙ­n¦^¨ì·íªìªºµe­±¦A©¹¤U¬d¥t¤@­Ó¸ê®Æ¡A¦Ó§Ú¤S¤£·Q¦ACREAT¥t¤@­ÓIE¡A¥u·Q¥Î¥Ø«eªºIE¡A¦b¤£­«±Òªº¤è¦¡¤U¡A¦p¦ó¦AÂà¦^·íªìªºµe­±¡A¦A©¹¤U¬d©O¡H
ÁÂÁÂ

joey0415

¦^´_ 42# c_c_lai


ÂIÀ»innertextªº¸Ó³æ¤¸®æ¡A´N¬Ý¨ì¤º®e§r¡I

[CA4]¨º®æ´Nª¾¹D¤F¡A¯uªº²M·¡¡A©¹¥ª¤@¬Ý´Nª¾¹D¬O«üTABLE 1

GBKEE

¦^´_ 41# joey0415

1. Do While .readyState <> 4: DoEvents: Loop

½Æ»s¥N½X

§ï¦¨

1. Do While .readyState <> 4 Or .Busy: DoEvents: Loop

½Æ»s¥N½X

c_c_lai

¦^´_ 40# joey0415
¤F¸Ñ¡I¦ý¥u¬OµLªk©ú½T¦a¬Ý¥X Table ªº³æ¤¸¡A
§Y (0)¡B(1)¡B(2)¡B .  .  .  .µ¥µ¥¡C
ÁÂÁ¡I

joey0415

¦^´_ 35# GBKEE

¤p§Ì¤S´«¤F¤@­Óºô¯¸
³o­Óºô¯¸§Ú·|¥Î¦n´XºØ¤èªk§ì¤F¡A¥u¤£¹L³o¦¸´«¦¨³oºØ¤è¦¡®É¡A¦pªGª½±µrunµ²ªG¡A·|¥X²{¦p¤U¹Ï¡A¥d¦b¨º¤@¥y¸Ü
ªí®æ("table")(7)¬O¹ïªº¡A¦]¬°¦³¦¨¥\¹L
.document.body.innerHTML = .document.getelementsbytagname("table")(7).outerHTML

¤U¸ü (18.5 KB)

2013-11-20 11:47

¦pªG«öF8¤@¨B¨B°õ¦æ®É¡A¦³®É­Ô·|¦¨¥\¡A¦³®É­Ô·|¥¢±Ñ

1.     Sub test1()
   
2.         Dim URL As String
   
3.         ActiveSheet.Cells.Clear
   
4.         URL = "http://www.tdcc.com.tw/smWeb/QryStock.jsp"
   
5.         With CreateObject("InternetExplorer.Application")
   
6.             .Visible = True     '  ¬O§_Åã¥Ü IE
   
7.             .Navigate URL
   
8.             Do While .readyState <> 4: DoEvents: Loop
   
9.             .document.All.tags("option")(7).Selected = True
   
10.             .document.getelementsbytagname("input")(1).Value = "2330"
    
11.             .document.getelementsbytagname("input")(4).Click
    
12.             Do While .readyState <> 4: DoEvents: Loop
    
13.             .document.body.innerHTML = .document.getelementsbytagname("table")(7).outerHTML
    
14. 
    
15.             .execwb 17, 2       '  Select All
    
16.             .execwb 12, 2       '  Copy selection
    
17.             
    
18.             With ActiveSheet
    
19.                 .Cells.Clear
    
20.                 .[A1].Select
    
21.                 .PasteSpecial Format:="HTML", NoHTMLFormatting:=True
    
22.                 .Cells.EntireColumn.AutoFit     '  ¦Û°Ê½Õ¾ãÄæ¼e
    
23.             End With
    
24.             .Quit
    
25.         End With
    
26.         
    
27.     End Sub

½Æ»s¥N½X

joey0415

¦^´_ 38# c_c_lai


±Nºô§}¶K¦b­º­¶ªº A1

¦A«ö¬d¸ß

ÂIÀ»¸Ó³æ¤¸®æ´N·|¬Ý¨ì¤º®e

¤U¸ü (106.34 KB)

2013-11-20 11:40

c_c_lai

¦^´_ 37# joey0415
¥¦¦n¹³µLªkÀË´ú¥X table¡C