vba新建excel表并命名

你可以使用以下的VBA代码来新建一个Excel表并给它命名：

Sub CreateAndNameExcelSheet()
    Dim wb As Workbook
    Dim ws As Worksheet
    
    ' 新建一个Excel工作簿
    Set wb = Workbooks.Add
    
    ' 在新建的工作簿中新建一个工作表
    Set ws = wb.Worksheets.Add
    
    ' 给新建的工作表命名
    ws.Name = "Sheet1"
    
    ' 保存并关闭工作簿
    wb.SaveAs "C:\路径\文件名.xlsx"
    wb.Close
    
    ' 释放对象变量
    Set ws = Nothing
    Set wb = Nothing
End Sub

你需要将代码中的`"C:\路径\文件名.xlsx"`替换为你想要保存的文件的完整路径和名称。运行这段代码后，它将创建一个新的Excel表，并命名为"Sheet1"，然后保存并关闭工作簿。

希望这可以帮助到你！如果你有任何其他问题，请随时提问。