Question

请问如何用VBA实现将EXCEL中的一个工作表保存在指定文件夹内？

这是我自己写的代码这个我只能保存在桌面但是不能另存为到指定文件夹，不知道怎么修改才能添加保存路径。求大神指导下~
Private Sub CommandButton1_Click()
Sheet1.Copy
Workbooks(Windows(Windows.Count).Index).Close True, ThisWorkbook.Path & "\" & Format(Now(), "库内调车yyyy" & "年" & "mm" & "月" & "dd" & "日" & "h" & "时" & "mm" & "分" & "ss" & "秒") & ".xls"
End Sub

Answer 1

ThisWorkbook.Path 改成你需要的路径就可以了，比如改成 “C:",就在C盘根目录下

追问

大神能否就在我的原代码上改下，我刚刚改了下貌似不行。列如：保存在E盘（计划单）文件夹里。

追答

Private SubCommandButton1_Click()
Sheet1.Copy
Workbooks(Windows(Windows.Count).Index).Close True, "e:\计划单\" & Format(Now(), "库内调车yyyy" & "年" & "mm" & "月" & "dd" & "日" & "h" & "时" & "mm" & "分" & "ss" & "秒") & ".xls"
End Sub