- 帖子
- 5
- 主題
- 1
- 精華
- 0
- 積分
- 6
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2013
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2015-3-2
- 最後登錄
- 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
我想問問那麼在這段代碼中
.Refreshstyle 可以插在那個位置??
因為我想這個是覆蓋資料而不是不斷插入 |
|