使用SaveAs对话框保存下载文件的vba代码

Question

如何下​​载文件，然后将其保存到我想要的任何地方？下载部分已完成，但当vba代码点击下载按钮时，会弹出一个SaveAs对话框按钮弹出窗口。如何使用SaveAs对话框，以便我的宏可以连续运行而不会间歇。

Answer 1

我同意Iowak的评论，不清楚你在做什么，但在黑暗中有点像，你是说要加入Save作为进行下载的VBA代码的对话而不是单独的操作进行保存？

如果是这样，您可能需要做的就是将Application.GetSaveAsFilename方法合并到下载代码中：

fileSaveName = Application.GetSaveAsFilename( _ 
 fileFilter:="Text Files (*.txt), *.txt") 
If fileSaveName <> False Then 
    MsgBox "Save as " & fileSaveName 
End If

如果那不是，那么Iowak说你真的需要发布代码。