VBA保存路径的问题（指定路径不行）

白杨M

Private Sub CommandButton4_Click() '单独输出配方表
Sheets("正刚").Select
Sheets("正刚").Copy
ActiveWorkbook.SaveAs Filename:= _
    "正刚派车清单" & Format(Now, "YYYY-MM-DD-HHmmSS") & ".xls", FileFormat:=xlNormal, _
    Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
    CreateBackup:=False
End Sub
以上代码我输入了以后文件是默认生成到C:\我的文档 文件夹下面的。然后我想修改保存路径。不知道怎么修改，文件名还是需要和上面一样按当前时间保存文件名称，麻烦各位大神！

白杨M

比如我想保存到E盘123文件夹下面，应该怎么写代码，小白太难了！

白杨M

没有大神回复一下吗？还有一个就是这个代码运行完成以后，新复制的表格就打开了，怎么才能让他只复制不打开？谢谢各位大神

匡峰

文件名前面加上文件夹就行了ActiveWorkbook.SaveAs Filename:="E:\123\正刚派车清单" & Format(Now, "YYYY-MM-DD-HHmmSS") & ".xls", FileFormat:=xlNormal, _