返回列表下一主題上一主題發帖

Excel 如何在背景完成數據導入

sfff

小學生 Rank: 1

帖子: 4
主題: 2
精華: 0
積分: 6
點名: 0
作業系統: Mac
軟體版本: 10.6
閱讀權限: 10
性別: 男
註冊時間: 2012-1-16
最後登錄: 2015-7-9

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2015-6-28 12:29 | 只看該作者

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)