需要用EXCEL生成100个与模板相同的 . XLS文件
发布网友
发布时间：2022-04-19 19:48
共5个回答
热心网友
时间：2023-09-06 05:26
用宏代码可以实现，把模板路径替换进去，直接运行就可以得到复制结果
Sub 批量复制()
Dim 模板路径, 模板扩展名, 文件路径
模板路径 = "D:\1.xls"
模板扩展名 = "." & Split(Right(模板路径, 5), ".")(1)
Workbooks.Open 模板路径
文件路径 = ActiveWorkbook.Path & "\"
Dim fi As Long
模板路径 = Replace(模板路径, "X", "x")
模板路径 = Replace(模板路径, "L", "l")
模板路径 = Replace(模板路径, "S", "s")
For fi = 1 To 100
Application.DisplayAlerts = False
If 模板路径 = ".xls" Then
ActiveWorkbook.SaveAs Filename:=文件路径 & fi & 模板扩展名, FileFormat:=xlExcel8
Else
ActiveWorkbook.SaveAs Filename:=文件路径 & fi & 模板扩展名
End If
Application.DisplayAlerts = True
Next: fi = 0
End Sub
热心网友
时间：2023-09-06 05:27
假设你的模板文件名字为："模板.xls;"
可以按照如下步骤操作：
复制如下代码：
@echo off
for /l %%I in (1,1,100) do (copy 模板.xls %%I.xls)
echo 已经复制完成100份
pause
在模板目录下，新建一个txt文件，将以上代码拷贝到文件内，并将txt文件保存并重命名为: "复制100份.bat"。
双击：“复制100份.bat”
然后关闭cmd命令窗口。
你就可以看到100个文件已经生成。
热心网友
时间：2023-09-06 05:27
【2】按住“ctrl”键，右手鼠标左键按住“1”表往右一拉，就会生成“1（2）”这个表名，如此类推可以生成100个与模板相同的表格。
热心网友
时间：2023-09-06 05:28
介绍个简单点的，但是中途生成后出错了的话，需要删除后重新运行。
1、打开你的模板文件，按Alt+F11组合键进入VBA编程界面，单击“插入”菜单--“模块”;
2、在模块中输入代码:
sub auto()
dim i,fpath
fpath=“E:\”
for i=1 to 100
thisworkbook.savecopyas fpath & i & “.xls”
next i
end sub
其中fpath等于的是自己设定的文件保存位置，这个可以自己修改。
热心网友
时间：2023-09-06 05:29
Sub newbooks()
Dim i&, p$, temp$
On Error Resume Next
p = ThisWorkbook.Path & "\"
Application.ScreenUpdating = False
ActiveWorkbook.Copy
For i = 1 To 100
temp = i & ".xls"
ActiveWorkbook.SaveAs Filename:=p & temp, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Next
'ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub
