将特定工作表保存在文件夹中

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"