Excel VBA自动创建学生成绩表：带文件夹命名功能

以下是在 Excel VBA 中实现上述要求的代码：

Sub CreateWorkbook()
    Dim name As String
    Dim fileName As String
    Dim folderPath As String
    Dim wb As Workbook
    
    ' 获取学生姓名
    name = InputBox("请输入学生姓名：")
    
    ' 构建文件夹路径和文件名
    folderPath = "E:\" & name & "Excel VBA 期末报告数据"
    fileName = name & "成绩表.xlsx"
    
    ' 创建文件夹
    MkDir folderPath
    
    ' 创建新的工作簿
    Set wb = Workbooks.Add
    
    ' 修改工作簿的第一个工作表标签名称
    wb.Sheets(1).Name = "成绩表"
    
    ' 在第一行插入表头
    wb.Sheets(1).Range("A1:F1").Value = Array("课程名称", "任课教师", "所在学期", "课程性质", "成绩", "等级")
    
    ' 保存工作簿
    wb.SaveAs folderPath & "\" & fileName
    
    ' 关闭工作簿
    wb.Close
    
    ' 释放资源
    Set wb = Nothing
End Sub

要使用这段代码，只需在 Excel 中按下 'ALT + F11'，打开 VBA 编辑器，将代码复制粘贴到代码窗口中，然后按下 'F5' 运行即可。

运行后，程序会要求你输入学生姓名。输入完毕后，会在 E 盘创建一个以 '学生姓名 + Excel VBA 期末报告数据' 命名的文件夹，并在该文件夹下创建一个工作簿，文件名为 '学生姓名 + 成绩表'。工作簿的第一张工作表的标签名称为成绩表，且表头（即第一行）依次为课程名称、任课教师、所在学期、课程性质、成绩、等级。