¤U¸ü´Á³f¸ê®Æ¦Ü¤u§@ªí QueryTable¥X¿ù
- ©«¤l
- 2
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 3
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN8
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2015-3-1
- ³Ì«áµn¿ý
- 2015-11-10
|
¤U¸ü´Á³f¸ê®Æ¦Ü¤u§@ªí QueryTable¥X¿ù
«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Á¦^ÂÐ:) |
|
:)
|
|
|
|
|
- ©«¤l
- 2
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 3
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN8
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2015-3-1
- ³Ì«áµn¿ý
- 2015-11-10
|
¦nªº ·PÁ½Ѧì¤j¤j !! |
|
:)
|
|
|
|
|
- ©«¤l
- 41
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 79
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2014-4-1
- ³Ì«áµn¿ý
- 2016-2-17
|
°ò¥»¤W²Ä¤G¦¸¨Ï¥Î- 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 |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 9# GBKEE
§Ú¤w±N±zªº«ü¤Þ (do until) §ï¦^¡C¥Dn¥Øªº§Ú¥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
|
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 6# GBKEE
¹ï¤£°_¨S¯d·N¨ì With Worksheets("Á{®É¸ê®Æ2") ªº°ÝÃD¡A
ÁÂÁ«ü¥¿¡C¦P®É±N¼Ó¤W©Òz Do Loop ×»\«á°õ¦æ¡A
¥X²{ "¨S¦³Åv"¡H
|
|
|
|
|
|
|
- ©«¤l
- 41
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 79
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2014-4-1
- ³Ì«áµn¿ý
- 2016-2-17
|
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 |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 4# GBKEE
ÁÂÁ±z¡I¤£¹L°õ¦æ°_¨Ó¦³¨Ç¿ù»~¡A¦p¹Ï¡G
|
|
|
|
|
|
|