- ©«¤l
- 5
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 6
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2013
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-3-2
- ³Ì«áµn¿ý
- 2015-4-1
|
Sub qq()
Set shFirstQtr = ActiveSheet
Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection:="URL;http://tw.stock.yahoo.com/d/s/company_" & [a1] & ".html", _
Destination:=shFirstQtr.Cells(3, 1))
With qtQtrResults
.WebFormatting = xlNone
.WebSelectionType = xlSpecifiedTables
.WebTables = "9"
.Refresh
End With
End Sub
§Ú·Q°Ý°Ý¨º»ò¦b³o¬q¥N½X¤¤
.Refreshstyle ¥i¥H´¡¦b¨ºÓ¦ì¸m¡H¡H
¦]¬°§Ú·Q³oÓ¬OÂл\¸ê®Æ¦Ó¤£¬O¤£Â_´¡¤J |
|