使用VBA吧,可在EXCEL-1中的(查看代码)ThisWorkbook,增加Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)过程,在该过程中可调用EXCEL-0这个模板,并将EXCEL-1内容填至EXCEL-0模板中,再将EXCEL-0另存为(并重命名)至
指定的文件夹。在过程中还可又EXCEL-1内容完整性进行判断,若内容不完整或输入不合规,则可调用过程中的Cancel =TRUE取消保存。
学习VBA只要2个东西,学过VB,会使用办公软件
在excel的宏里,点击开始录制宏,然后点击保存。
你就可以看到,自动生成的宏代码、然后不清楚的,再按F1帮助。
你这个功能用以下宏实现:
Sub Macro1()
'
' Macro1 Macro
'
Dim n As Integer, fname As String
n = 0
ChDir "D:\"
Do
fname = "D:\工作表" & n & ".xlsm"
If "" <> Dir(fname) Then
n = n + 1
Else
Exit Do
End If
Loop
ActiveWorkbook.SaveAs Filename:=fname
End Sub
你填完数据,然后运行这个宏,就可将文件保存为一个新的不重名文件