はどのフォルダ、ファイルを作成し、フォルダに

Question

EDITをファイルを保存する：

Sub NewWB2() 
Dim wb As Workbook 
Dim POname As String 
Dim lrow As Long 
Dim NewfolderPath As String 

lrow = Cells(Rows.Count, 3).End(xlUp).Row 
POname = Worksheets("Sheet1").Cells(lrow, 10).Value 'name I want for both the folder and the document 

MkDir "C:\Users\First.Last\Desktop" & "\" & POname 'creates the folder in the path I want 
NewfolderPath = "C:\Users\First.Last\Desktop\" & POname ' variable to define that path 

Set wb = Workbooks.Add("C:\Users\First.Last\Documents\Custom Office Templates\PO Template.xltm") ' creates from template 
ActiveWorkbook.SaveAs Filename:=POName 'Saves file as variable "POname" 

End Sub 

すべてがここで働く私の質問では十分明確ではありませんでした。私が行う必要があるのは、作成したフォルダに新しいブックを保存するコード行を追加することだけです。私はこれを行う方法を見つけることができず、これを追加する方法を知らない。

Answer 1

使用しているPOnameの文字列の例を提供できますか？ 私はあなたがNewfolderPathに '\' を逃したと思う：

試してみてください。

Sub NewWB2() 
    Dim wb As Workbook 
    Dim POname As String 
    Dim lrow As Long 
    Dim NewfolderPath As String 

    lrow = Cells(Rows.Count, 3).End(xlUp).Row 'finds the last row 
    POname = Worksheets("Sheet1").Cells(lrow, 10).Value 'name of Folder and File 
    NewfolderPath = "C:\destinationfoldername\" & POname 

    MkDir NewfolderPath 'creates the new folder with the name defined above 
    Set wb = Workbooks.Add("C:\folderwithtemplate\Template.xltm") 'creates new wb from template 

    ActiveWorkbook.SaveAs NewfolderPath & "\" & POname 
End Sub 

Answer 2

はあなたのファイル名が欠落していると思い、これを試してみてください：

ActiveWorkbook.SaveAS Filename:=NewfolderPath & "\" & POname & "\Filename" 

あなたのために変数を使用している場合をあなたのファイル名は試してみてください：

ActiveWorkbook.SaveAS Filename:=NewfolderPath & "\" & POname & "\" & Filename