Question

我一直在尝试自动刷新我的表（通过电源查询从SQL数据库中获取）并直接将其保存为文本文件（制表符分隔）我对VBA很新，我使用的宏是

    Public Sub UpdatePowerQueries()
 'Macro to update the Power Query script(s) and save the file as .txt

Dim cn As WorkbookConnection

For Each cn In ThisWorkbook.Connections
 If Left(cn, 13) = "Power Query -" Then cn.Refresh
 Next cn

Application.DisplayAlerts = False
ActiveSheet.SaveAs Filename:="customfile" & Format(Date, "yyyymmdd") & ".txt", FileFormat:=xlTextWindows
Application.DisplayAlerts = True


 End Sub

现在我遇到的问题是刷新部分和保存部分可以自行运行，但是如果我把它们放在同一个宏中，保存部分会很快发生，文本文件是空。任何人都可以帮助我吗？

由于

Answer 1

Personnaly，我选择有点耐心，并在几秒钟后添加一个计时器继续！

尝试在两者之间添加：

DoEvents
Application.Wait (Now + TimeValue("0:00:05"))
DoEvents

刷新并保存为Excel中的文本文件

1 个答案: