发布网友
共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
你填完数据,然后运行这个宏,就可将文件保存为一个新的不重名文件