- 帖子
- 90
- 主題
- 16
- 精華
- 0
- 積分
- 114
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- sp2
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-7-9
- 最後登錄
- 2018-10-7
|
7#
發表於 2012-8-10 16:39
| 只看該作者
最近忙了一些事,到今天再回來,你可以參考看看以下的code,是不是你要的- 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
複製代碼 |
|