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

sfff

當我執行成功導入外部數據，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

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

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

sfff

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