批量复制excel并重命名的方法

发布网友 发布时间：2022-03-31 14:58

我来回答

共5个回答

热心网友 时间：2022-03-31 16:27

sub
yysavecopy()
chdrive
left(thisworkbook.path,
1)
chdir
thisworkbook.path
application.displayalerts
=
false
thisworkbook.savecopyas
filename:=thisworkbook.path
&
"\test.xls"
application.displayalerts
=
true
end
sub
'
以上是将文件存于当前的工作目录下，"\test.xls"即为可自订的[目标文件名称]。

热心网友 时间：2022-03-31 17:45

sub 保存副本()
for i=1 to 500
Thisworkbook.Savecopyas thisworkbook.Path & "副本" & i & ".xls"
next
end sub

将上面的代码复制到你的模块中运行,就会在你的文件所在文件夹中生成500个副本

热心网友 时间：2022-03-31 19:20

工程上用的？

热心网友 时间：2022-03-31 21:11

找人写个VBA代码吧。

热心网友 时间：2022-03-31 23:19

名字什么规律？用VBA来做。