打开Word模板并保存为.doc到当前工作簿文件夹 – 在Excel中的VBA

在Excel中使用VBA，我打开一个单词模板文件。

我努力将文件保存为与活动的Excel工作簿相同的文件夹。 我不想将其保存在从中检索的同一文件夹中，也不想input另一个绝对path名称。

我当前的代码保持.doc C：\用户\用户\文档而不是工作簿实际文件夹（C：\用户\用户\桌面\testing目录）

我的代码如下：

Sub OpenTemplateSaveAsDoc() Dim wApp As word.Application Dim wDoc As word.Document Set wApp = CreateObject("Word.Application") wApp.Visible = True Set wDoc = wApp.Documents.Open("C:\Users\USER\Documents\Custom Office Templates\wordtesttemplate.dotm", ReadOnly:=True) With wDoc wDoc.SaveAs CurDir & Application.PathSeparator & "MySavedDoc.doc" End With End Sub 

Answer 1

更改

 wDoc.SaveAs CurDir & Application.PathSeparator & "MySavedDoc.doc" 

至

 wDoc.SaveAs ActiveWorkbook.Path & Application.PathSeparator & "MySavedDoc.doc" 

（而且，因为这段代码被封装了一个With wDoc块，所以你可以使用.SaveAs ...而不是wDoc.SaveAs ... – With块的唯一目的是让你避免inputWith对象的名称在块内。）