如何使用VBA生成Excel表格

Sub GenerateExcelTable()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets.Add ' 创建新的工作表
    
    ' 设置表头
    ws.Range("A1").Value = "姓名"
    ws.Range("B1").Value = "年龄"
    ws.Range("C1").Value = "性别"
    
    ' 填充数据
    ws.Range("A2").Value = "张三"
    ws.Range("B2").Value = 25
    ws.Range("C2").Value = "男"
    
    ws.Range("A3").Value = "李四"
    ws.Range("B3").Value = 30
    ws.Range("C3").Value = "女"
    
    ' 设置表格格式
    ws.Range("A1:C1").Font.Bold = True ' 设置表头加粗
    ws.Range("A1:C3").Borders.LineStyle = xlContinuous ' 设置边框线条
    
    ' 自动调整列宽
    ws.Columns.AutoFit
    
    ' 保存Excel文件
    ThisWorkbook.SaveAs "生成的表格.xlsx"
    
    ' 关闭Excel应用程序
    Application.Quit
End Sub