麻辣家族討論版版 » Excel程式區 » Excel 如何在背景完成數據導入

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

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

小學生 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)

收藏

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

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

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

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

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

小學生 Rank: 1

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

3^#

發表於 2015-6-29 03:44 | 只看該作者

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

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

靜思自在 : 小事不做、大事難成。

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