[已解决]打开另外一个文档的同时，保存和关闭当前的文档

zss7758258

求教：在《文档 - 副本1》.xlsm执行VBA按钮，打开在同一个文件夹下的《文档 - 副本2》.xlsm，并且保存《文档 - 副本1》.xlsm，然后关闭《文档 - 副本1》.xlsm。
谢谢老师们！

测试文档.zip (24.57 KB, 下载次数: 10)

2014-11-3 12:39 上传

点击文件名下载附件

经过老师们的指导，最终正确答案如下代码：

1. Sub CCC()
   
2.    'zjdh老师
   
3. Workbooks.Open (ThisWorkbook.Path & "\文档 - 副本2.xlsm")
   
4.    ThisWorkbook.Close True
   
5. End Sub

复制代码

1. Sub AAA()
   
2. 'qh8600老师
   
3.     Workbooks.Open ThisWorkbook.Path & "\文档 - 副本2.xlsm"
   
4.     ThisWorkbook.Close savechange = False
   
5. End Sub

复制代码

1. Sub BBB()
   
2. Workbooks.Open ThisWorkbook.Path & "\文档 - 副本2.xlsm"
   
3. Windows("文档 - 副本1.xlsm").Activate
   
4. ActiveWorkbook.Save
   
5. ActiveWindow.Close
   
6. End Sub

复制代码

最佳答案

月排行榜 / 总排行榜

qh8600

2014-11-3 15:06

zss7758258 发表于 2014-11-3 13:55
老师您的代码和4楼老师的代码一样，但是我复制您俩的代码粘贴到新建文档的《副本1》中，输入新的内容执行 ...

把TRUE改成FALSE

跳转到最佳答案楼层

qh8600

测试文档.rar (25.54 KB, 下载次数: 13)

2014-11-3 13:09 上传

点击文件名下载附件
楼主试试

qh8600

1. Sub 按钮1_Click()
   
2.     Workbooks.Open ThisWorkbook.Path & "\文档 - 副本2.xlsm"
   
3.     ThisWorkbook.Close savechange = True
   
4. End Sub
   

复制代码

zjdh

AAA.rar (23.3 KB, 下载次数: 14)

2014-11-3 13:21 上传

点击文件名下载附件

zss7758258

qh8600 发表于 2014-11-3 13:12

老师您的代码和4楼老师的代码一样，但是我复制您俩的代码粘贴到新建文档的《副本1》中，输入新的内容执行按钮却无法在《副本1》中保存新的内容，请老师再次指教，谢谢

999.zip (27.99 KB, 下载次数: 8)

2014-11-3 14:01 上传

点击文件名下载附件

qh8600

zss7758258 发表于 2014-11-3 13:55
老师您的代码和4楼老师的代码一样，但是我复制您俩的代码粘贴到新建文档的《副本1》中，输入新的内容执行 ...

把TRUE改成FALSE

zjdh

zss7758258 发表于 2014-11-3 13:55
老师您的代码和4楼老师的代码一样，但是我复制您俩的代码粘贴到新建文档的《副本1》中，输入新的内容执行 ...

你没有将我的宏考入你的新文件！
我的宏与3楼的宏是不一样的！
他的是不保存，而我的是保存！