Excel VBA 自动创建成绩表：一键生成个性化工作簿

以下是在 Excel VBA 中实现创建工作簿并设置工作表的代码：

Sub CreateWorkbook()
    Dim folderPath As String
    Dim fileName As String
    Dim wb As Workbook
    Dim ws As Worksheet
    
    ' 设置文件夹路径和文件名
    folderPath = "E:\" & ActiveSheet.Range("A1").Value & "Excel VBA期末报告数据\"
    fileName = ActiveSheet.Range("A1").Value & "成绩表.xlsx"
    
    ' 创建文件夹
    If Dir(folderPath, vbDirectory) = "" Then
        MkDir folderPath
    End If
    
    ' 创建工作簿
    Set wb = Workbooks.Add
    
    ' 设置工作表
    Set ws = wb.Sheets(1)
    ws.Name = "成绩表"
    
    ' 设置表头
    ws.Range("A1:F1").Value = Array("课程名称", "任课教师", "所在学期", "课程性质", "成绩", "等级")
    
    ' 保存工作簿
    wb.SaveAs folderPath & fileName
    wb.Close
    
    MsgBox "工作簿创建成功！"
End Sub

请将上述代码复制粘贴到 Excel VBA 编辑器中，然后在 Excel 表格中执行该宏即可。在执行宏之前，请确保你已经在 A1 单元格中输入了你的姓名。执行宏后，将在 E 盘创建一个以你的姓名命名的文件夹，并在该文件夹内创建一个名为“姓名成绩表.xlsx”的工作簿，第一张工作表的标签名称为“成绩表”，并设置了表头。