So erstellen Sie Ordner, eine Datei und Datei speichern in Ordner

Question

EDIT: War das nicht klar genug mit meiner Frage

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 

Alles hier funktioniert. Alles, was ich tun muss, ist eine Codezeile hinzuzufügen, die die neue Arbeitsmappe in dem Ordner speichert, den ich erstellt habe. Ich kann nicht finden, wie man das macht und weiß nicht, wie man das hinzufügt.

Answer 1

Können Sie ein Zeichenfolgenbeispiel von POname, das Sie verwenden, angeben? Ich glaube, Sie ein '\' verpasst in NewfolderPath:

Versuchen:

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

mit diesem Versuchen, erraten Sie vermissen Ihr Dateiname:

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

, wenn Sie eine Variable verwenden für Ihr Dateiname versuchen:

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