- ©«¤l
- 115
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 178
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- Office2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-1-12
- ³Ì«áµn¿ý
- 2024-11-15
|
½Ð°Ý ¦pªG¥u·Q§ì ºô¯¸¤Wªº³¡¤À¸ê®Æ ¤U¨Ó¡A VBA n¦p¦ó¼g ?- Sub ´Á³f¥æ©ö¤f¼Æ()
- Set shFirstQtr = ActiveSheet
- Set qtQtrResults = shFirstQtr.QueryTables _
- .Add(Connection:="URL;http://www.taifex.com.tw/chinese/3/7_12_3_tbl.asp", _
- Destination:=shFirstQtr.Cells(3, 1))
- With qtQtrResults
- .WebFormatting = xlNone
- .WebSelectionType = xlSpecifiedTables
- .WebTables = "2"
- .Refresh
- End With
- End Sub
½Æ»s¥N½X |
-
-
§ì´Á³f¤f¼Æ.jpg
(124 KB)
´Á³f¥æ©ö¤f¼Æ
|