作者：乔山办公网日期：
返回目录：excel表格制作
右键工作表名称。
有个新建选项。
sub aa
dim nwb as workbook
dim mypath,myfile
dim i, j
mypath = "目录路zhidao径"
myfile = Dir(mypath & "\*.xlsx") '.xlsx是后缀名看情况自己改下版
Do While myfile <> ""
set nwb = workbooks.open(myfile)
nwb.saveas("新完整路径及名称权") '做备份用的话用nwb.savecopyas
nwb.close
myfile=dir
loop
end sub
数据zd库一般是用access来做，不太理解为啥要批量另存为单独的excel文件。
建议使用插入数据透视图，或者使用VLOOKUP公式。
把你需要的回表格模板以样设置好，可以达到输入样品答编号，其他单元格数据自动显示的效果。
如果必须做成单独的excel文件，也不是不可能，比较复杂。
需要写VBA程序处理一下