vba將word文件保存到創建的文件夾

我寫下面的代碼，目前它創建一個文件夾。不過，我想將相同的文檔保存到該文件夾。任何指針我要去哪裏錯？vba將word文件保存到創建的文件夾

感謝

Sub newfold() 
    Dim strNewFolderName As String 
    strNewFolderName = "New Folder " & (Month(Now())) & " " & Year(Now) 
    If Len(Dir("c:\Users\Jabaar\Documents\" & strNewFolderName, vbDirectory)) = 0 Then 
     MkDir ("c:\Users\Jabaar\Documents\" & strNewFolderName) 
    End If 
    Dim PathName As String 
    PathName = ("New Folder " & MonthName(Month(Now())) & " " & Year(Now)) 
    ActiveDocument.SaveAs "c:\Users\Jabaar\Documents\" & "(strNewFolderName)" + ".doc" 
End Sub

來源

2014-02-08 user1810449

該文件目前正在與我的文檔保存新的名稱下文件夾文件夾2 2014我現在看到這個問題 – user1810449

只是

ActiveDocument.SaveAs FileName:="c:\Users\Jabaar\Documents\" & strNewFolderName & "\" & Split(ActiveDocument.Name, ".")(0) & ".doc", _ 
    FileFormat:=wdFormatDocument

其中Split(ActiveDocument.Name, ".")(0)需要文件的當前名稱不帶擴展名替換

ActiveDocument.SaveAs "c:\Users\Jabaar\Documents\" & "(strNewFolderName)" + ".doc"

。您可以用所需的名稱替換它：

ActiveDocument.SaveAs FileName:="c:\Users\Jabaar\Documents\" & strNewFolderName & "\" & "newFile.doc", _ 
    FileFormat:=wdFormatDocument

來源

2014-02-08 14:52:32

你似乎已經擊中了頭部。我一直在玩這個。 'ActiveDocument.SaveAs「c：\ Users \ Jabaar \ Documents \」＆strNewFolderName＆「\」＆「test」+「.doc' – user1810449

這是做了什麼，它似乎工作。

ActiveDocument.SaveAs "c:\Users\Jabaar\Documents\" & strNewFolderName & "\" & "test" + ".doc

提供的解決方案@simoco就是我一直在尋找，十分感謝確認格式化它@simoco

來源

2014-02-08 14:59:54 user1810449

vba將word文件保存到創建的文件夾

回答

相關問題