麻辣家族討論版版 » Excel程式區 » 匯入外部資料問題

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

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

小學生 Rank: 1

帖子: 12
主題: 5
精華: 0
積分: 20
點名: 0
作業系統: XP
軟體版本: OFFICE 2010
閱讀權限: 10
性別: 男
註冊時間: 2010-6-10
最後登錄: 2024-11-11

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2010-11-25 10:14 | 只看該作者

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

請問各位大大要如何確認目前所有的工作表已經更新完畢，譬如:工作表1正在執行外部更新，而我要怎麼在程式碼中確認"工作表1的外部更新程序是否已經結束"。

樓主熱帖

收藏

　暱稱: 沙拉油
　頭銜: 正港A水電工

超級版主 Rank: 8 Rank: 8

帖子: 44
主題: 2
精華: 0
積分: 49
點名: 0
作業系統: Windows XP SP3
軟體版本: Office 2003
閱讀權限: 150
性別: 男
來自: 呆丸
註冊時間: 2010-5-1
最後登錄: 2013-1-27

論壇貢獻勳章終身榮譽會員勳章

2^#

發表於 2010-11-26 00:02 | 只看該作者

http://blog.xuite.net/saladoil/excel/7379326

一卵三四、驚到嘸代誌

小學生 Rank: 1

帖子: 12
主題: 5
精華: 0
積分: 20
點名: 0
作業系統: XP
軟體版本: OFFICE 2010
閱讀權限: 10
性別: 男
註冊時間: 2010-6-10
最後登錄: 2024-11-11

3^#

發表於 2010-11-26 12:50 | 只看該作者

大大你的程式我看得懂但是我不知道該怎麼結合自己的程式碼
這是我的程式碼:

Sub 更新外部資料()
'
' 更新外部資料 Macro
' Queen 在 2010/10/7 錄製的巨集
'

'
Application.ScreenUpdating = False
On Error Resume Next
Sheets("損益表").Select
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("資產負債表").Select
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("基本資料").Select
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("股價").Select
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("資料").Select
Application.ScreenUpdating = True
End Sub

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2010-11-26 14:55 | 只看該作者

回復 3# xisun2002

Sub Ex()
Dim Sh As Worksheet, Query As QueryTable
For Each Sh In ThisWorkbook.Worksheets
For Each Query In Sh.QueryTables
Query.Refresh 0 'BackgroundQuery:=False
Next
Next
End Sub

複製代碼

　暱稱: 沙拉油
　頭銜: 正港A水電工

超級版主 Rank: 8 Rank: 8

帖子: 44
主題: 2
精華: 0
積分: 49
點名: 0
作業系統: Windows XP SP3
軟體版本: Office 2003
閱讀權限: 150
性別: 男
來自: 呆丸
註冊時間: 2010-5-1
最後登錄: 2013-1-27

論壇貢獻勳章終身榮譽會員勳章

5^#

發表於 2010-11-26 16:35 | 只看該作者

本帖最後由沙拉油於 2010-11-26 16:45 編輯

一個物件類別、一個模組
貼上程式碼之後得重新開啟檔案

'物件類別模組 QytCls 的程式碼
Public WithEvents qyt As QueryTable
Public qname As String
Private Sub qyt_AfterRefresh(ByVal Success As Boolean)
MsgBox qname & " 更新結束！"
End Sub
'模組 Module1 的程式碼
Dim qyts() As New QytCls
Private Sub auto_open()
Dim n As Integer
Dim sh As Worksheet
'統計本活頁簿共有幾個查詢物件！
For Each sh In ThisWorkbook.Worksheets
n = n + sh.QueryTables.Count
Next
ReDim qyts(1 To n) As New QytCls
Dim i As Integer
Dim qyt As QueryTable
For Each sh In ThisWorkbook.Worksheets
For Each qyt In sh.QueryTables
Set qyts(i + 1).qyt = qyt
qyts(i + 1).qname = sh.Name & " 的查詢 " & qyt.Name
i = i + 1
Next qyt
Next sh
End Sub

複製代碼

附上上面程式碼所製作的範例！

Book1.zip (27.02 KB)

一卵三四、驚到嘸代誌

小學生 Rank: 1

帖子: 12
主題: 5
精華: 0
積分: 20
點名: 0
作業系統: XP
軟體版本: OFFICE 2010
閱讀權限: 10
性別: 男
註冊時間: 2010-6-10
最後登錄: 2024-11-11

6^#

發表於 2010-11-28 18:50 | 只看該作者

感謝各位大大的大力幫助...3Q

靜思自在 : 人要自愛，才能愛普天下的人。

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