返回列表 上一主題 發帖

[發問] 匯入外部資料問題

回復 3# xisun2002
  1. Sub Ex()
  2.     Dim Sh As Worksheet, Query As QueryTable
  3.     For Each Sh In ThisWorkbook.Worksheets
  4.         For Each Query In Sh.QueryTables
  5.             Query.Refresh 0  'BackgroundQuery:=False
  6.         Next
  7.     Next
  8. End Sub
複製代碼

TOP

        靜思自在 : 我們要做好社會的環保,也要做好內心的環保。
返回列表 上一主題