¤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 !!