- 帖子
- 835
- 主題
- 6
- 精華
- 0
- 積分
- 915
- 點名
- 0
- 作業系統
- Win 10,7
- 軟體版本
- 2019,2013,2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-3
- 最後登錄
- 2025-7-5
|
回復 1# s13983037
可依下式參照修改 :- Dim StockArr, v
- StockArr = Array(9946, 2330, 2317, 5522) '等等的股票
- For Each v In StockArr
- Debug.Print "http://www.cnyes.com/twstock/intro/" & v & ".htm"
- Next
複製代碼 |
|