¤U¸ü´Á³f¸ê®Æ¦Ü¤u§@ªí QueryTable¥X¿ù

cat9350621

«e½ú¦n µ{¦¡¦p¤U¡G

Option Explicit

Sub text()
  Dim myIE As InternetExplorer
  Dim myItem
  Dim QryTbl As QueryTable
  Dim myItems
  Dim WebAddress As String
  Dim mydate As Date
  Set myIE = New InternetExplorer
  With myIE
    .Visible = True
    .Navigate "http://www.taifex.com.tw/chinese/3/3_1_1.asp"
    Do Until .ReadyState = READYSTATE_COMPLETE
    Loop
  End With
  With myIE.Document.myform
    .COMMODITY_IDt.Value = "TF"                 '³]©w«´¬ù
  End With
  Set myItems = myIE.Document.getElementsByTagName("Input")
  For Each myItem In myItems
    If myItem.Value = "°e¥X¬d¸ß" Then
      myItem.Click                              '«ö¤U°e¥X¬d¸ß«ö¶s

End If
  Next
  With Worksheets("Á{®É¸ê®Æ2")
    .Cells.Clear
    Set QryTbl = .QueryTables.Add("URL;" & WebAddress, .Range("A1"))
  End With
  
  QryTbl.Refresh True

End Sub
----------------------------
¿ù»~¤@ª½¥d¦b³o¦C
  QryTbl.Refresh True
·Q½Ð±Ð¦³¤°»ò¤è¦¡¯à¸Ñ¨M¦¹°ÝÃD ..
·PÁ¦^ÂÐ:)

cat9350621

¦nªº ·PÁ½Ѧì¤j¤j !!

no3-taco

°ò¥»¤W²Ä¤G¦¸¨Ï¥Î

1. Do Until .readyState = READYSTATE_COMPLETE: DoEvents: Loop

½Æ»s¥N½X

¤w¸g¨S¦³®Ä¤F¡A¦]¬°µ{¦¡¶]±o¤ñ¸û§Ö¡A·|§ì¨ì²Ä¤@¦¸ªºª¬ºA

¥u¬O§Ú·Q¤£¨ì¦³¤°»ò¤ñ¸û§¹¬üªº¸Ñ¨M¿ìªk¡A³B²z¤j¶q°õ¦æ®É¡A¥i¥H³B²z©µ¿ðªº°ÝÃD

c_c_lai

¦^´_ 9# GBKEE
§Ú¤w±N±zªº«ü¤Þ (do until) §ï¦^¡C¥D­n¥Øªº§Ú¥u¬O¦b
´ú¸Õ¥¦ªºÀô¹Ò°õ¦æ¤§¹Lµ{»yµ²ªG¡A®{¼W±`¨£»D§OµL¥L·N¡C
ÁÂÁ±zªº¤£§[«ü¾É¡C
ªþ¤W­è¤~¤£Â_°õ¦æ©Ò¤@ª½²£¥Íªº¤­ºØª¬ªp¡A
³Ì«á¤@¦¸¤~¨£¦¨ªG¡C
·Q¥²¬Oºô¸ôÀW¼e°õ¦æ·í®É³t²v®Ä¯q¤§Ãö«Y§a¡I

¤U¸ü (56.58 KB)

2015-6-11 07:26

GBKEE

¦^´_ 8# c_c_lai
«öF8 ³v¨B¤@¦æ¤@¦æ°õ¦æµ{¦¡½X¬O¨S°ÝÃDªº.¦ýF5°õ¦æµ{§Ç·|¥X²{°ÝÃDªº.

1. Do Until .readyState = 4 And Not .Busy: DoEvents: Loop

½Æ»s¥N½X

³oµ{¦¡½XÁöµM¬Oµ¥­Ô IE.readyState ="§¹¦¨" ,IE Not .Busy  ¤£¦£¸L ,¤§«á

¦ýºô¸ô¸ê®Æªº¤U¸ü³t«×,ÁÙ¬O¤ñµ{¦¡°õ¦æªº³t«×ºC,
¾É­P myItems ÅܼƨS¦³³]©w¨ì .Document.getElementsByTagName("table")

©Ò¥H­nµ¥­Ô¤@¤U,ºô¸ô¸ê®Æ¤U¸ü½T¹ê§¹¦¨

1. Application.Wait Now + #12:00:01 AM#
   
2. Set myItems = .Document.getElementsByTagName("table")

½Æ»s¥N½X

c_c_lai

¦^´_ 6# GBKEE
¹ï¤£°_¨S¯d·N¨ì  With Worksheets("Á{®É¸ê®Æ2")  ªº°ÝÃD¡A
ÁÂÁ«ü¥¿¡C¦P®É±N¼Ó¤W©Ò­z Do Loop ­×»\«á°õ¦æ¡A
¥X²{ "¨S¦³Åv­­"¡H

¤U¸ü (23.44 KB)

2015-6-10 13:47

no3-taco

Do Until .readyState = READYSTATE_COMPLETE: DoEvents: Loop
    Application.Wait Now + #12:00:01 AM#                  

§â¤W­±¨º¨â¦æ§ï¦¨¤U­±³o¤@¦æ¡A¤ñ¸û¤£·|¦]©µ¿ð¿ù»~²£¥Í¿ù»~
    Do Until .readyState = 4 And Not .Busy: DoEvents: Loop

GBKEE

¦^´_ 5# c_c_lai
2003°õ¦æ¨S¦³¿ù»~,½Ð«ü¥X¿ù»~ÂI.

¬O   With Worksheets("Á{®É¸ê®Æ2") ???

c_c_lai

¦^´_ 4# GBKEE
ÁÂÁ±z¡I¤£¹L°õ¦æ°_¨Ó¦³¨Ç¿ù»~¡A¦p¹Ï¡G

¤U¸ü (28.01 KB)

2015-6-8 21:43

GBKEE

¦^´_ 3# c_c_lai

¦p¹Ï
  

¤U¸ü (75.98 KB)

2015-6-7 14:21