如何另存为工作簿至指定目录

yygpd500 · 发表于 2012-8-14 11:04

本帖最后由 yygpd500 于 2012-8-18 20:36 编辑

本人因网上求答花了点时间写了此代码，原求助者并无要求代码中所具有的颇多功能(比如去除命令按钮，去除代码)，本人根据想像扩展了他(她)的需求。因求助者在原贴处不再跟贴，故又花了不少时间对代码作了详细注释，希望对如我这等的VBA初学者有所帮助，也供有心者讨论，特上传附件供人一哂，^_^。

原附件已删除，见新附件。

清风_ll · 发表于 2012-8-14 11:18

楼主有心了

江津 · 发表于 2012-8-14 11:19

先顶后下,看看是么子东东

aman1516 · 发表于 2012-8-14 19:17

谢谢分享，注释得非常详细，对学习和理解VBA很有帮助。

win2009 · 发表于 2012-8-28 14:06

Sub 宏1()
'
' 宏1 宏
'

'
ChDir "D:\tyhj"
ActiveWorkbook.SaveAs Filename:="D:\tyhj\保存至指定文件夹(含删除代码的功能).xls", FileFormat _
:=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
End Sub

ttcesh1 · 发表于 2016-2-19 21:31

谢谢分享虽然现在很多看不懂，但是正好有我想要的一些代码，希望能使用

雏恋的 · 发表于 2019-3-31 17:28

这个会用得上，先收藏了

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

[讨论] 如何另存为工作簿至指定目录

评分