当前工作薄名为a，另存为当前目录下改名b 代码如何写！谢谢！

lj1226189 · 发表于 2012-8-20 11:32

我的一个程序要用到，一时想不起来了！谢谢了！

lhw78535 · 发表于 2012-8-20 11:41

这样行不？
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\b.xls"

wajour · 发表于 2012-8-20 11:42

复制代码

roc.jame · 发表于 2012-8-20 11:48

大哥录一个宏不久出来了？

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\b.xls"

lj1226189 · 发表于 2012-8-20 12:46

上面的代码试过了，有一个问题，比如我在a工作薄中运行后，当前显示为b工作薄，a工作薄保存到同录目下，但我想要的是a不关闭，另存一个b，就象平常另存一样！再次感谢楼上几位！

lj1226189 · 发表于 2012-8-20 13:12

我想要另存后当前工作薄不关闭，不变名，另起名的哪个工作薄保存！

yygpd500 · 发表于 2012-8-20 14:21

thisworkbook.sheets.copy
activeworkbook.saveas 自己补上
activeworkbook.close savechanges:=false

yygpd500 · 发表于 2012-8-20 14:23

若想去除生成的新工作簿中的各种代码，可参考我的帖子：http://club.excelhome.net/thread-906040-1-1.html

lj1226189 · 发表于 2012-8-20 14:51

多谢楼上，我想要的是把当前打开的工作薄复制一份,改个名存到当前文件夹下，而当前工作薄仍然打开着没动不知行吗！

yygpd500 · 发表于 2012-8-20 15:03

lj1226189 发表于 2012-8-20 14:51
多谢楼上，我想要的是把当前打开的工作薄复制一份,改个名存到当前文件夹下，而当前工作薄仍然打开着没动不知 ...

代码不是在7楼给了吗？“自己补上”那话是指你自行根据需要补上保存的文件名，比如，根据你此贴的意思：
activeworkbook.saveas filename:=thisworkbook.path & "\" & "b.xls"

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

[求助] 当前工作薄名为a，另存为当前目录下改名b 代码如何写！谢谢！