如何在VBA中输入对话框？

Question

我有一个Excel宏，用于创建.txt文件，打开“另存为”对话框，并填写文件名。但是，我无法弄清楚如何在“另存为”对话框中单击“输入”按钮。

我尝试使用SendKey的输入，但它似乎不起作用。

现在是我宏的底部。

myPath = some path that I have
file_loc = Application.GetSaveAsFilename(myPath, fileFilter:="Text Files 
(*.txt), *.txt")
wb.SaveAs Filename:=file_loc, FileFormat:=xlText
wb.Close

非常感谢任何帮助！

Answer 1

感谢ThunderFrame的答案！我将VBA代码的结尾更改为以下内容并且有效！

Application.DisplayAlerts = False
file_loc = some path that I have
wb.SaveAs Filename:=file_loc, FileFormat:=xlText
wb.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True

请务必将Application.DisplayAlerts = False设置为禁用弹出窗口＆＃34;您确定要保存此文件吗？＆＃34;