新建20个excel代码的文件vba

在VBA（Visual Basic for Applications）中，创建20个Excel工作簿文件是一个自动化任务，可以编写一个循环结构来完成这个操作。以下是一个基本的VBA脚本示例，它会在当前目录下创建20个工作簿：

Sub Create20Workbooks()
    Dim i As Integer
    For i = 1 To 20 ' 创建20个工作的循环
        Workbooks.Add ' 使用Add方法创建新工作簿
        ActiveWorkbook.SaveAs Filename:="NewWorkbook_" & CStr(i) & ".xlsx" ' 给每个工作簿命名并保存
        ActiveWorkbook.Close SaveChanges:=False ' 关闭但不保存改动
    Next i
End Sub

这个脚本会依次生成名为 "NewWorkbook_1.xlsx", "NewWorkbook_2.xlsx", ..., "NewWorkbook_20.xlsx" 的工作簿，并在每个工作簿打开的情况下立即关闭。