如何自动生成新EXCEL工作表?
发布网友
共1个回答
热心网友
学习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
你填完数据，然后运行这个宏，就可将文件保存为一个新的不重名文件
