- 帖子
- 41
- 主題
- 8
- 精華
- 0
- 積分
- 64
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- OFFICE2010
- 閱讀權限
- 20
- 註冊時間
- 2015-3-11
- 最後登錄
- 2020-10-7
|
我用了你的code, 只是換成玉山證券網址
結果還是沒反應。
若我的電腦不能run,也許是環境問題。只是我搞不懂,同樣的code , 我去好幾個人的電腦試過,還是都不行。
Sub 巨集1()
Cells.Clear
sname = 1101
Set myQT = ActiveSheet.QueryTables.Add(Connection:="URL;http://sjmain.esunsec.com.tw/z/zc/zcc/zcc_" & sname & ".djhtm", Destination:=Range("$A$1"))
With myQT
.WebFormatting = xlWebFormattingNone
.Refresh BackgroundQuery:=False
.Delete
End With
Set myQT = Nothing
End Sub |
|