Excel VBAで作成された単語文書を保存するVBAマクロスクリプト

Question

VBAスクリプトから作成された単語文書を保存するためにどのようなVBAスクリプトを書くべきか知っていますか？ここで

は、これまでのところ、私のスクリプトですが、私は、私が追加した

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 

私のエクセルシートに単一のセルを参照する命名規則で特定のディレクトリに作成Word文書を保存するためのステップを追加したいと思いますあなたの参照のための画像：

試し

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

以下

Answer 1

上記のステートメントのフォルダパスは、シート「データ」のセルB2にあります。シナリオごとに変更することができます。また、フォルダのパスが "\"で終わっていることを確認してください。 C：\ mukul.varshney \ Delete \