首页 行业资讯 宠物日常 宠物养护 宠物健康 宠物故事

如何自动生成新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
你填完数据,然后运行这个宏,就可将文件保存为一个新的不重名文件

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com