refresh cả các nguồn dữ liệu và trục bảng bên ngoài cùng nhau trong một thời gian biểu

Question

Trong bài cuối cùng của tôi Auto refresh pivottables data in excel on first run, tôi phát hiện ra rằng trên thực hiện đầu tiên của tôi các truy vấn từ nguồn dữ liệu bên ngoài được làm mới và mất khoảng 1 phút để thực hiện. và trong lần chạy thứ hai của tôi, các bảng tổng hợp được cập nhật.

Có giải pháp (Mã VBA) để làm mới cả nguồn dữ liệu ngoài và bảng tổng hợp trong một lịch trình thời gian (Nếu giả sử chúng tôi đặt hẹn giờ) bằng cách nhấp vào command button?

Answer 1

Trong thuộc tính kết nối, bỏ chọn "Bật làm mới nền". Điều này sẽ làm cho việc làm mới kết nối khi được yêu cầu, không phải trong nền khi các quá trình khác xảy ra.

Với tính năng làm mới nền bị tắt, thủ tục VBA của bạn sẽ đợi dữ liệu ngoài làm mới trước khi chuyển sang dòng mã tiếp theo.

Sau đó, bạn chỉ cần sửa đổi đoạn mã sau:

ActiveWorkbook.Connections("CONNECTION_NAME").Refresh 
Sheets("SHEET_NAME").PivotTables("PIVOT_TABLE_NAME").PivotCache.Refresh 

Bạn cũng có thể tắt refresh background trong VBA:

ActiveWorkbook.Connections("CONNECTION_NAME").ODBCConnection.BackgroundQuery = False 

Answer 2

tôi đã sử dụng các câu trả lời trên nhưng đã sử dụng phương pháp RefreshAll. Tôi cũng đã thay đổi nó để cho phép nhiều kết nối mà không cần phải chỉ định tên. Sau đó tôi liên kết nút này với một nút trên bảng tính của tôi.

Sub Refresh() 

    Dim conn As Variant 

    For Each conn In ActiveWorkbook.Connections 
     conn.ODBCConnection.BackgroundQuery = False 
    Next conn 

    ActiveWorkbook.RefreshAll 
End Sub 

Answer 3

Auto Refresh Workbook ví dụ mỗi 5 giây. Áp dụng đến module

Public Sub Refresh() 
'refresh 
ActiveWorkbook.RefreshAll 

alertTime = Now + TimeValue("00:00:05") 'hh:mm:ss 
    Application.OnTime alertTime, "Refresh" 

End Sub 

Apply to Workbook vào Open

Private Sub Workbook_Open() 
alertTime = Now + TimeValue("00:00:05") 'hh:mm:ss 
Application.OnTime alertTime, "Refresh" 
End Sub 

:)

Answer 4

Tôi nghĩ rằng có một cách đơn giản hơn để làm cho excel chờ đợi cho đến khi làm mới được thực hiện, mà không phải đặt thuộc tính Truy vấn nền thành Sai. Tại sao lộn xộn với sở thích của người dân phải không?

Excel 2010 (và sau này) có phương thức này được gọi là CalculateUntilAsyncQueriesDone và tất cả những gì bạn phải làm là gọi nó sau khi bạn đã gọi phương thức RefreshAll. Excel sẽ đợi cho đến khi việc tính toán hoàn tất.

ThisWorkbook.RefreshAll 
Application.CalculateUntilAsyncQueriesDone 

Tôi thường đặt những thứ này lại với nhau để thực hiện tổng thể tính toán mà không bị gián đoạn, trước khi gửi mô hình của mình cho người khác. Một cái gì đó như thế này:

ThisWorkbook.RefreshAll 
Application.CalculateUntilAsyncQueriesDone 
Application.CalculateFullRebuild 
Application.CalculateUntilAsyncQueriesDone