麻辣家族討論版版 - Powered by Discuz! Board

標題: Excel 如何在背景完成數據導入 [打印本頁]

作者: sfff 時間: 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

作者: mark15jill 時間: 2015-6-28 12:39

當我執行成功導入外部數據，excel 都會被觸發（excel app icon會黃色不停閃爍），然後就要每次手動點滑鼠去 ...
sfff 發表於 2015-6-28 12:29

把 Application.DisplayAlerts = False ' 關閉警告訊息放在工作表1.Cells.Clear 前面

作者: sfff 時間: 2015-6-29 03:44

本帖最後由 sfff 於 2015-6-29 03:46 編輯

果然除了打開文件的首次導入有警告，之後就無觸發警告訊息了！
:victory: Thanks

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)