0 votes
in VBA by Beginner (5 points)


I am trying to automatically open a excel power query file and refresh on a schedule basis however the above prompt keeps on popping up -  "This will cancel a pending refresh".

Is it the Dim pause or do I perhaps need to disable notifications?

See query below:

Set fso = CreateObject("Scripting.FileSystemObject")
Set xl  = CreateObject("Excel.Application")
xl.Visible = True

For Each f In fso.GetFolder("C:\Users\BenjaminS\Google Drive\appsheet").Files
  If LCase(fso.GetExtensionName(f.Name)) = "xlsx" Then
    Set wb = xl.Workbooks.Open(f.Path)
 Dim Pause
Pause = DateAdd("s",50, Now())

  End If



1 Answer

+1 vote
by Skilled (605 points)
selected by
Best answer

Try these lines

xl.Visible = True
xl.DisplayAlerts = False
xl.DisplayAlerts = True


by Beginner (5 points)
Working, thank you very much. :)
by Skilled (605 points)
You're welcome. Glad it worked for you

Welcome to wellsr Q&A

Getting Started
VBA Cheat Sheets (On Sale Now)


What makes us different?

runfunke $10 Amazon Gift Card
coolag $10 Amazon Gift Card
Siew Hun $10 Amazon Gift Card


