Mahmoud451
New Member
- Joined
- Jan 24, 2023
- Messages
- 1
- Office Version
- 365
- 2019
- Platform
- Windows
I tried to use the following macro to refresh queries as the following:
refresh query 1 after 1 minutes
refresh query 2 after 2 minutes
refresh query 3 after 3 minutes
refresh query 4 after 4 minutes
refresh query 5 after 5 minutes
I got error in this line:
please help
refresh query 1 after 1 minutes
refresh query 2 after 2 minutes
refresh query 3 after 3 minutes
refresh query 4 after 4 minutes
refresh query 5 after 5 minutes
I got error in this line:
ThisWorkbook.Queries("q1").Refresh
please help
VBA Code:
Sub RefreshQueries()
For i = 1 To 5
Application.OnTime Now + TimeValue("0:" & i & ":0"), "RefreshQuery" & i
Next i
End Sub
Sub RefreshQuery1()
'Refresh code for query 1
ThisWorkbook.Queries("q1").Refresh
End Sub
Sub RefreshQuery2()
'Refresh code for query 2
ThisWorkbook.Queries("q2").Refresh
End Sub
Sub RefreshQuery3()
'Refresh code for query 3
ThisWorkbook.Queries("q3").Refresh
End Sub
Sub RefreshQuery4()
'Refresh code for query 4
ThisWorkbook.Queries("q4").Refresh
End Sub
Sub RefreshQuery5()
'Refresh code for query 5
ThisWorkbook.Queries("q5").Refresh
End Sub
Last edited by a moderator: