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

lj1226189

比如打开一个工作薄a，加上楼上代码，运行后，当前a工作薄改名成b,仍处于打开状态，当前文件夹内存了一个工作薄名称为a,而我要的是正好相反,就是本身的a工作薄名称不变，而另存的哪个文件名称为b! 还谢楼上再帮我看一下！

yygpd500

lj1226189 发表于 2012-8-20 16:59
比如打开一个工作薄a，加上楼上代码，运行后，当前a工作薄改名成b,仍处于打开状态，当前文件夹内存了一个工 ...

你怎么还没明白呢？我也不明白你加了我上述的代码怎么达不到你要的效果呢？难不成你的意思说来绕口，让俺们误解了？罢，解释下代码吧：
thisworkbook.sheets.copy'此句意为以本代码所在工作簿(即你说的a工作簿啦)的工作表为基础拷贝生成一新工作簿，显然，新的工作簿文件名此时应当为BookN的形式
activeworkbook.saveas filiename:=thisworkbook.path & "\" & "b.xls" '上方代码执行后，显然生成的工作簿成为当前工作簿，故activeworkbook已不再是a工作簿了
activeworkbook.close savechanges:=false'既然达到了目的，直接关闭当前工作簿，显然，该工作簿(即b.xls工作簿)被关闭后，a工作簿即成为当前工作簿了，它并没受到影响

最后：一个问题你反反复复地始终在问，却不上你的附件，能解决问题吗？晕死了。

lj1226189

感谢你的耐心细致的讲解，有一个情况我没有表述清楚，我的哪个工作薄实际上就是一个程序，有大量的工作表，还有几十窗体，如果用thisworkbook.sheets.copy，工作表拷了，但窗体就没有了，所以我想用的是整个工作薄另存后，另存的工作薄改名，而当前工作薄的名称仍然是原来的不变！

yygpd500

lj1226189 发表于 2012-8-20 17:33
感谢你的耐心细致的讲解，有一个情况我没有表述清楚，我的哪个工作薄实际上就是一个程序，有大量的工作表， ...

晕啊晕，果真遮遮掩掩了问题。

答：那就只好用thisworkbook.saveas方法了，若想达到看起来a工作簿在屏幕上不曾有过变动，那就再配以changefileaccess方法

下列代码供参考：

1. 
   
2. Sub 另存为副本()
   
3.     Dim theFullName As String
   
4.     theFullName = ThisWorkbook.FullName
   
5.     Application.ScreenUpdating = False
   
6.     ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly
   
7.     ThisWorkbook.SaveAs ThisWorkbook.Path & "" & "b.xls"
   
8.     Workbooks.Open theFullName
   
9.     Application.ScreenUpdating = True
   
10.     ThisWorkbook.Close savechanges:=False
    
11. End Sub
    

复制代码

lj1226189

打个比方这是我的一个示例，原文件太大，这个文件夹内a文件打开后，运行宏jj,后将工作薄另存到当前目前下工文件夹内，并起名b，当前a工作薄仍处于打开状态，文件名仍是a

谢谢！

引子玄

程序的ＤＤ隐而不见，理解是有一定困难

lj1226189

14楼代码有点问题！请高手出手相助{:soso_e183:}

lj1226189

这么大的论坛！没人帮我？？

lj1226189

这么大的论坛！没人帮我？？

lhw78535

lj1226189 发表于 2012-8-20 20:16
这么大的论坛！没人帮我？？

试试这句行不？
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\b.xls"