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

这是我自己写的代码这个我只能保存在桌面但是不能另存为到指定文件夹，不知道怎么修改才能添加保存路径。求大神指导下~PrivateSubCommandButton1_Clic... 这是我自己写的代码这个我只能保存在桌面但是不能另存为到指定文件夹，不知道怎么修改才能添加保存路径。求大神指导下~
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 展开

 我来答

1个回答

#热议# 不吃早饭真的会得胆结石吗？

善良的猪头3
2013-10-14 · TA获得超过2932个赞

知道大有可为答主

回答量：2522

采纳率：71%

帮助的人：2773万

我也去答题访问个人页

关注

展开全部

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

本回答由提问者推荐