[已解决]VBA另存文件（文件另存为与原文件同一目录），急！！！

Jared

各位VBA前辈们，我想请教一下如何如何用VBA另存文件（附件里面代码是另存在E盘的一个文件夹里，现在想另存在与原文件同一目录下面，因为这个VBA是大家都用的，每个人放原文件和另存的位置都不一样。所以想另存的时候不要在保存在E盘，保存在与原文件统一目录下）。希望各位前辈大神们能够抽出时间指点一下，谢谢各位前辈

最佳答案

月排行榜 / 总排行榜

苏子龙

2016-11-24 13:59

    ActiveWorkbook.SaveAs Filename:="E:\批量上传\" & "批量上传" & Format(Now, "yyyymmdd hhmmss")'把这句改成下面的
         ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\批量上传" & Format(Now, "yyyymmdd hhmmss")
      

跳转到最佳答案楼层

苏子龙

    ActiveWorkbook.SaveAs Filename:="E:\批量上传\" & "批量上传" & Format(Now, "yyyymmdd hhmmss")'把这句改成下面的
         ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\批量上传" & Format(Now, "yyyymmdd hhmmss")
      

Jared

苏子龙 发表于 2016-11-24 13:59
ActiveWorkbook.SaveAs Filename:="E:\批量上传\" & "批量上传" & Format(Now, "yyyymmdd hhmmss")'把 ...

已解决，非常谢谢您的帮助{:1112:}