- 帖子
- 4
- 主題
- 2
- 精華
- 0
- 積分
- 6
- 點名
- 0
- 作業系統
- Mac
- 軟體版本
- 10.6
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2012-1-16
- 最後登錄
- 2015-7-9
|
Excel 如何在背景完成數據導入
當我執行成功導入外部數據，excel 都會被觸發（excel app icon會黃色不停閃爍），然後就要每次手動點滑鼠去把它按掉。
如果是每分鐘導入一次，就要每分鐘都按一次滑鼠... 不知有辦法讓excel在背景動態導入，又不會觸發icon不停閃爍呢？
Sub hkdata()
工作表1.Cells.Clear
'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://hk.finance.yahoo.com/q?s=^hsi", Destination:=Range("$A$1"))
.Name = "q?s=^hsi"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub |
-
-
excel.png
(19.7 KB)
|
發表於 2015-6-28 12:29
| 
