VBA另存文件（文件另存为与原文件同一目录），急！！！

Jared-AD · 发表于 2016-11-24 14:30

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

AmoKat · 发表于 2016-11-24 14:43

请参考 Thisworkbook

'取得档案路径
Msgbox Thisworkbook .Path

'取得档案路径及档名
Msgbox Thisworkbook.FullName

Jared-AD · 发表于 2016-11-24 15:01

AmoKat 发表于 2016-11-24 14:43
请参考 Thisworkbook

'取得档案路径

能不能在原代码里面直接修改

AmoKat · 发表于 2016-11-24 17:01

Jared-AD 发表于 2016-11-24 15:01
能不能在原代码里面直接修改

原式
ActiveWorkbook.SaveAs Filename:="E:\批量上傳\" & "批量上傳" & Format(Now, "yyyymmdd hhmmss")

修改
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "批量上傳" & Format(Now, "yyyymmdd hhmmss")

lsc900707 · 发表于 2016-11-24 18:28

Jared-AD 发表于 2016-11-24 15:01
能不能在原代码里面直接修改

详见附件>>>>>>>>>>>>>

Jared-AD · 发表于 2016-11-26 10:28

lsc900707 发表于 2016-11-24 18:28
详见附件>>>>>>>>>>>>>

谢谢您的帮助

gyt5313861 · 发表于 2018-7-18 14:24

谢谢了，参考一下

		自动登录	找回密码
密码			免费注册

[求助] VBA另存文件（文件另存为与原文件同一目录），急！！！