保存文件夾中的特定工作表

我試圖將文件保存在名爲「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

來源

2017-08-28 Jenny

自我介紹了'立即Pane'（按Ctrl-G）。你可以輸入'？ Path2＆Format（Now（），「yyyymmdd」）＆myWorksheets（i）＆「.xlsx」'讓它顯示你正在嘗試使用的確切路徑\文件名，仔細閱讀它會告訴你錯誤。你的問題沒有什麼明顯的錯誤，但是你可以用更少的頭撞來解決問題，也沒有時間花時間寫一篇文章並等待答案。 – FreeMan

你忘了這裏反斜槓：在VBE

Path2 = path1 & "\DD\"

來源

2017-08-28 12:00:32 MatSnow

是的，謝謝它的工作:) – Jenny

也是這樣嗎，我可以保存在CW下而不是日期與年？ – Jenny

newWB.SaveAs filename：= Path2＆Format（Now（），「yyyymmdd」）＆myWorksheets（i）＆「.xlsx」這裏我有保存在日期和時間下的文件，而不是我想要的日曆周 – Jenny

保存文件夾中的特定工作表

回答

相關問題