我正在尝试保存 DOM 文档并且 save 方法工作正常：
xDoc.Save "myFileName"
但我希望用户能够选择路径和可能的名称。所以我试过：
xDoc = "Application.FileDialog(msoFileDialogSaveAs).Show"
If myNum <> 0 Then
XDoc = Application.FileDialog(msoFileDialogSaveAs).SelectedItems(1)
End If
这打开了一个另存为对话框，但是当我单击确定时，我得到一个运行时“对象不支持此属性或方法”。我知道它可能行不通，但认为它应该是有道理的。
任何人都知道如何使用 VBA 打开另存为对话框来保存 DOM（文档）？
所以这是一个问题，因为您使用的是文字字符串，而不是调用方法：
xDoc = "Application.FileDialog(msoFileDialogSaveAs).Show"
'The value of xDoc has been assigned literally as above!!!
相反，这样做是为了实例化一个FileDialog对象，然后使用它。Show它，请确保它已被使用（如果用户取消Show将返回False然后.Execute进行SaveAs操作。
Dim fdlg As FileDialog
Set fdlg = Application.FileDialog(msoFileDialogSaveAs)
fdlg.Title = "Save XML file as..."
fdlg.FilterIndex = 5 'Defaults to the XML Data file filter
If fdlg.Show() Then
xDoc.Save fdlg.SelectedItems(1)
Else:
MsgBox "File has not been saved!"
End If
注意：上面的代码中没有包含错误处理，如果文件已经存在，则预计它会失败或引发警告/等。根据需要进行修改。
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句