[已解决]工作薄另存为

yjwdjfqb

工作薄另存为


请朋友们帮我完善下附件中的代码，谢谢大家了！

工作薄另存为.rar (8.65 KB, 下载次数: 1)

2013-12-20 12:21 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

yyyydddd8888

2013-12-20 12:32

是这样吗？用saveas或者savecopyas
saveas 保存后焦点为新保存的工作簿。修改后的数据都在新保存的工作簿中，原工作簿的数据不变。
savecopyas 是复制一份新文件保存为副本，新工作簿和原来的工作簿的数据都相同。保存后焦点不变，还是在原来的工作簿中。

工作薄另存为.rar (6.87 KB, 下载次数: 10)

2013-12-20 12:31 上传

点击文件名下载附件

1. Sub 工作薄另存为()
   
2. Dim pt
   
3. On Error Resume Next
   
4. pt = InputBox("请输入新生成工作薄的名称", "文件名设置")
   
5. ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "" & pt  '把当前工作薄另存为一个新的工作薄，工作薄的名称就是刚才　输入的名称
   
6. End Sub
   

复制代码

1. Sub 工作薄另存为()
   
2. Dim pt
   
3. On Error Resume Next
   
4. pt = InputBox("请输入新生成工作薄的名称", "文件名设置")
   
5. ThisWorkbook.SaveAs ThisWorkbook.Path & "" & pt  '把当前工作薄另存为一个新的工作薄，工作薄的名称就是刚才　输入的名称
   
6. End Sub
   

复制代码

跳转到最佳答案楼层

yyyydddd8888

是这样吗？用saveas或者savecopyas
saveas 保存后焦点为新保存的工作簿。修改后的数据都在新保存的工作簿中，原工作簿的数据不变。
savecopyas 是复制一份新文件保存为副本，新工作簿和原来的工作簿的数据都相同。保存后焦点不变，还是在原来的工作簿中。

工作薄另存为.rar (6.87 KB, 下载次数: 10)

2013-12-20 12:31 上传

点击文件名下载附件

1. Sub 工作薄另存为()
   
2. Dim pt
   
3. On Error Resume Next
   
4. pt = InputBox("请输入新生成工作薄的名称", "文件名设置")
   
5. ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "" & pt  '把当前工作薄另存为一个新的工作薄，工作薄的名称就是刚才　输入的名称
   
6. End Sub
   

复制代码

1. Sub 工作薄另存为()
   
2. Dim pt
   
3. On Error Resume Next
   
4. pt = InputBox("请输入新生成工作薄的名称", "文件名设置")
   
5. ThisWorkbook.SaveAs ThisWorkbook.Path & "" & pt  '把当前工作薄另存为一个新的工作薄，工作薄的名称就是刚才　输入的名称
   
6. End Sub
   

复制代码

yjwdjfqb

yyyydddd8888 发表于 2013-12-20 12:32
是这样吗？用saveas或者savecopyas
saveas 保存后焦点为新保存的工作簿。修改后的数据都在新保存的工作簿中 ...

感谢老师的帮助！