[已解决]保存和更改名称的代码

642070295 · 发表于 2014-9-5 15:05

本帖最后由 642070295 于 2014-9-5 17:39 编辑

有两个代码不知怎么表达，麻烦老师帮忙写一下：
1、不关闭工作簿直接保存更改工作表中的内容。
2、关闭工作簿并更改该工作簿名称。

先谢了！

最佳答案

zjdh

2014-9-5 15:41

name="ABC" '文件名称
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & name & ".xls", FileFormat:=xlExcel8 '更名保存
ActiveWorkbook.Close '关闭工作簿

跳转到最佳答案楼层

QLZ0602 · 发表于 2014-9-5 15:10

不知道什么意思.最好举例说明

642070295 · 发表于 2014-9-5 15:40

1、比如：保存workbooks("销售").sheets(1)表中更改的内容并且不要关闭该工作簿（就像直接点击存盘一样）。
2、就是workbooks("销售").close savechanges:=true
workbooks("销售").name="售后" '说明：更改workbooks("销售")工作簿的名称为workbooks("售后")

zjdh · 发表于 2014-9-5 15:41

name="ABC" '文件名称
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & name & ".xls", FileFormat:=xlExcel8 '更名保存
ActiveWorkbook.Close '关闭工作簿

642070295 · 发表于 2014-9-5 15:49

zjdh 发表于 2014-9-5 15:41
name="ABC" '文件名称
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & name & ".xls", FileFormat:=xl ...

请问一下老师，FileFormat:=xlExcel8 中的 xlExcel8 是什么意思呢？

zjdh · 发表于 2014-9-5 15:54

2003版

zjdh · 发表于 2014-9-5 15:55

本帖最后由 zjdh 于 2014-9-5 18:01 编辑

工作表保存为文件
Sheets("Sheet3").Copy
ActiveWorkbook.SaveAs Filename:="C:\ABC.xls"

642070295 · 发表于 2014-9-5 16:06

本帖最后由 642070295 于 2014-9-5 16:32 编辑

zjdh 发表于 2014-9-5 15:54
2003版

我用的是excel2010版，需要更改一下代码吗？

su45 · 发表于 2014-9-5 16:26

zjdh 发表于 2014-9-5 15:55
工作表保存为文件
Sheets("Sheet3").Copy
ActiveWorkbook.SaveAs Filename:="C:\ABC.xls"

咱没用过这种方法，学习了！

642070295 · 发表于 2014-9-5 17:03

zjdh 发表于 2014-9-5 15:41
name="ABC" '文件名称
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & name & ".xls", FileFormat:=xl ...

老师，更改（工作簿名称）后的新名称工作簿怎么打不开呀？出错提示是：文件格式或扩展名称无效。（我用的是excel2010版启用宏的工作簿）

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