VBA宏-在不打开windows资源管理器的情况下保存活动工作簿的副本

我正在Excel宏中保存Word文档，用户使用SaveAs2（）函数定义导出路径（Windows资源管理器打开等）

现在我的问题是，我想将当前工作簿的副本保存到与Word文档具有相同文件名的同一目录中。
但是每当用户选择Word文件的导出路径时，另一个Windows资源管理器窗口就会出现，并询问用户将Excel文件保存到哪里

那么，如何禁用第二个Windows资源管理器窗口

我这样试过：

Dim ExportPath As String
Dim ExcelExport As String

ExportPath = Application.GetSaveAsFilename(ActiveWorkbook.Names("AccountName").RefersToRange.Text & "_LD_Vertrag_DE.docx", FileFilter:="Word Files (*.docx), *.docx")
WordDocument.SaveAs2 (ExportPath)

ExcelExport = Replace(ExportPath, ".docx", ".xlsm")

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs (ExcelExport)
Application.DisplayAlerts = True

---

如果不保存Word文档（如果注释掉

WordDocument.SaveAs2

行），是否也会出现此问题？或者尝试将Excel文件保存为MacroEnabled

ActiveWorkbook.SaveAs文件名：=ExcelExport文件格式：=xlOpenXMLWorkbookMacroEnabled

@Peh是的，注释掉的也会发生这种情况。第一个显示为文件类型“（.docx）”，第二个显示为文件类型“（.xlsm”）您是否尝试将Excel文件保存为MacroEnabled

ActiveWorkbook.SaveAs Filename:=ExcelExport FileFormat:=xlOpenXMLWorkbookMacroEnabled

？也不起作用，结果与之前相同。然后，您必须向我们展示一个失败的最小示例。我看不到任何问题，代码正常工作。