我在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