VBA编完XML后怎么设置保存路径保存xml文件

调用 GetSaveAsFilename 时加入文件名完整路径即可固定保存在某个目录下，请看演示代码：

Sub DemoSaveAsXML()
    Dim varDialogResult
    
    varDialogResult = Application.GetSaveAsFilename("D:\search_keywords.xml", "XML Files(*.xml), *.xml")
    
    If VarType(varDialogResult) = vbString Then
        ThisWorkbook.SaveAs varDialogResult, xlXMLSpreadsheet
    End If
End Sub

如果不想出现 “另存为” 对话框，那么就这样写：

ThisWorkbook.SaveAs "D:\search_keywords.xml", xlXMLSpreadsheet

注意：新存的 XML 文件中不会包括 VBA 代码，请做好代码备份。

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/v3rv2jf2vvvy3xy3xjx.html