- ©«¤l
- 90
- ¥DÃD
- 16
- ºëµØ
- 0
- ¿n¤À
- 114
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- sp2
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-7-9
- ³Ì«áµn¿ý
- 2018-10-7
|
³Ìªñ¦£¤F¤@¨Ç¨Æ,¨ì¤µ¤Ñ¦A¦^¨Ó,§A¥i¥H°Ñ¦Ò¬Ý¬Ý¥H¤Uªºcode,¬O¤£¬O§Anªº- Sub Ex()
- Const StockIDURL As String = "http://public-cpd.mtnet.gov.tw/pub_newquery/query_national.asp?sel=3&id=16834268&sel01=2&portcode=TWKHH&YYYY1=2012&MM1=06&DD1=01&YYYY2=2012&MM2=07&DD2=01&interval=Y"
- Dim xlSheet As Excel.Worksheet
- Set xlSheet = Sheets("Sheet1")
- With xlSheet.QueryTables.Add("URL;" & StockIDURL, xlSheet.Cells(1, 1))
- .WebFormatting = xlWebFormattingNone
- .WebTables = "1"
- .Refresh 0
- .Delete
- End With
- Set xlSheet = Nothing
- End Sub
½Æ»s¥N½X |
|