如何复制整个工作簿并重命名(急）

zhang880113 · 发表于 2016-8-9 12:59

本帖最后由 zhang880113 于 2016-8-10 10:23 编辑

如何用VBA代码将123.xls复制并粘贴为321.xls，

看见星光 · 发表于 2016-8-9 13:05

ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & StrReverse(Split(ThisWorkbook.Name, ".xls")(0)) & ".xls"

zhang880113 · 发表于 2016-8-9 13:17

看见星光发表于 2016-8-9 13:05
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & StrReverse(Split(ThisWorkbook.Name, ".xls")(0)) & ...

老师你好，名字如何改成其他的呢？比如123改成“收入管理”。

看见星光 · 发表于 2016-8-9 13:21

zhang880113 发表于 2016-8-9 13:17
老师你好，名字如何改成其他的呢？比如123改成“收入管理”。

ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & "收入管理.xls"

zhang880113 · 发表于 2016-8-9 13:29

看见星光发表于 2016-8-9 13:21
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & "收入管理.xls"

Workbooks(ThisWorkbook.Path & "\" & “收入管理.xls").SaveCopyAs ThisWorkbook.Path & "\" & "02_一区\收入管理.xls"为什么改成这样就提示下标越界呢？

看见星光 · 发表于 2016-8-9 13:31

zhang880113 发表于 2016-8-9 13:29
Workbooks(ThisWorkbook.Path & "\" & “收入管理.xls").SaveCopyAs ThisWorkbook.Path & "\" & "02_一区 ...

你这是要做什么？。。。前面的WORKBOOKS是想干嘛的

wm1364950 · 发表于 2016-8-9 13:32

大神好厉害，学习了

zhang880113 · 发表于 2016-8-9 13:38

看见星光发表于 2016-8-9 13:31
你这是要做什么？。。。前面的WORKBOOKS是想干嘛的

我是想把另一个文件ThisWorkbook.Path & "\" & "收入管理.xls"复制到ThisWorkbook.Path & "\" & "02_一区”这个文件夹里面

zhang880113 · 发表于 2016-8-9 13:39

看见星光发表于 2016-8-9 13:31
你这是要做什么？。。。前面的WORKBOOKS是想干嘛的

就是代码在文件1中，要把文件2复制到一个其他的文件夹中去。

zhang880113 · 发表于 2016-8-9 13:45

看见星光发表于 2016-8-9 13:31
你这是要做什么？。。。前面的WORKBOOKS是想干嘛的

老师还在吗？

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

[已解决] 如何复制整个工作簿并重命名(急）