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

我正在试图保存一个名为“DD”的文件夹中的特定工作表。

我有下面的代码运行。 它将表格和存储保存在path中，但不保存在特定的文件夹中。

任何人都可以帮助我如何做到这一点。

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\"