用于保存通过Excel VBA创建的Word文档的VBA宏脚本

Question

有谁知道我应该写什么VBA脚本来保存从VBA excel脚本创建的word文档？

这是我的脚本到目前为止，但我想添加一个步骤，将生成的word文档保存到某个目录中，其命名约定引用我的Excel工作表中的单个单元格

Sub Export_to_word()

'Export Return

    Dim wdApp As Object
    Dim wd As Object

    On Error Resume Next
    Set wdApp = GetObject(, "Word.Application")
    If Err.Number <> 0 Then
    Set wdApp = CreateObject("Word.Application")
    End If
    On Error GoTo 0

    Set wd = wdApp.Documents.Add

    wdApp.Visible = True

    Sheets("PM Performance Return").Select
    Range("M1:P200").Select
    Selection.Copy

    wdApp.Selection.PasteExcelTable False, False, False
    wd.SaveAs Filename:="Investment Return Period Data", FileFormat:=wdformatdocm
    WordTable.AutoFitBehavior (wdAutoFitWindow)

End Sub

我添加了一张图片供您参考：

Answer 1

尝试以下

wd.SaveAs Filename:=Worksheets("Data").Range("B2").Value & "Investment Return Period Data", FileFormat:=wdformatdocm

在上面的语句文件夹中，路径位于工作表“Data”的单元格B2中。您可以根据您的方案更改它。还要确保文件夹路径以“\”结尾，例如C：\ mukul.varshney \删除\