特定のシートをフォルダに保存する

Question

"DD"というフォルダに特定のシートを保存しようとしています。

私は以下のコードを実行しています。シートを保存してパスに保存しますが、特定のフォルダには保存しません。

私はこれをどのように行うことができますか？

Sub save() 

Dim myWorksheets() As String 
Dim newWB As Workbook 
Dim CurrWB As Workbook 
Dim i As Integer 
Dim path1, Path2 As String 
path1 = ThisWorkbook.Path 
Path2 = path1 & "\DD" 
Set CurrWB = ThisWorkbook 
myWorksheets = Split("Report", ",") 
For i = LBound(myWorksheets) To UBound(myWorksheets) 
    Set newWB = Workbooks.Add 
    CurrWB.Sheets(Trim(myWorksheets(i))).Copy Before:=newWB.Sheets(1) 
    newWB.SaveAs filename:=Path2 & Format(Now(), "yyyymmdd") & myWorksheets(i) & ".xlsx" 
    newWB.Close SaveChanges:=True 
Next i 

End Sub 

Answer 1

あなたはここにバックスラッシュを忘れてしまった：

Path2 = path1 & "\DD\"