VBA 下載交易所資料ETF前面的00會自動不見，要如何修正
- 帖子
- 2
- 主題
- 1
- 精華
- 0
- 積分
- 52
- 點名
- 43
- 作業系統
- XP
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2012-8-8
- 最後登錄
- 2025-7-18
|
VBA 下載交易所資料ETF前面的00會自動不見，要如何修正
VBA 下載交易所資料ETF前面的00會自動不見，要如何修正
我要完整證券代號有出現
如：［0050］ ［元大台灣50］會變成［50］ ［元大台灣50］
程式碼如下
Sub test()
Dim strGetDate As String '宣告日期
strGetDate = Format(Range("b1").Value, "YYYYMMDD") '格式化日期
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://www.twse.com.tw/exchangeReport/TWTB4U?response=html&date=20190805&selectType=All" _
, Destination:=Range("$A$4"))
.Refresh BackgroundQuery:=False
.Delete
End With
End Sub |
|
|
|
|
|
|
|
發表於 2019-8-3 17:58
| 
