用vba实现原始数据到excel表格的转换

Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True

Dim xlWorkbook As Object
Set xlWorkbook = xlApp.Workbooks.Add

Dim xlWorksheet As Object
Set xlWorksheet = xlWorkbook.Worksheets.Item(1) ' 获取第一个工作表
' 或者
Set xlWorksheet = xlWorkbook.Worksheets.Add ' 添加新的工作表

xlWorksheet.Range("A1").Value = "姓名"
xlWorksheet.Range("B1").Value = "年龄"
xlWorksheet.Range("A2").Value = "张三"
xlWorksheet.Range("B2").Value = 25
' 可以使用循环将多行数据写入工作表

xlWorksheet.Range("A1:B1").Font.Bold = True ' 设置标题行为粗体
xlWorksheet.Range("A1:B1").Interior.Color = RGB(0, 0, 255) ' 设置标题行背景颜色为蓝色
' 可以根据需要进行更多的格式化操作

xlWorkbook.SaveAs "C:\path\to\output.xlsx" ' 保存为指定路径的Excel文件
xlWorkbook.Close ' 关闭工作簿

Sub ConvertDataToExcel()
    Dim xlApp As Object
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    
    Dim xlWorkbook As Object
    Set xlWorkbook = xlApp.Workbooks.Add
    
    Dim xlWorksheet As Object
    Set xlWorksheet = xlWorkbook.Worksheets.Item(1)
    
    xlWorksheet.Range("A1").Value = "姓名"
    xlWorksheet.Range("B1").Value = "年龄"
    xlWorksheet.Range("A2").Value = "张三"
    xlWorksheet.Range("B2").Value = 25
    
    xlWorksheet.Range("A1:B1").Font.Bold = True
    xlWorksheet.Range("A1:B1").Interior.Color = RGB(0, 0, 255)
    
    xlWorkbook.SaveAs "C:\path\to\output.xlsx"
    xlWorkbook.Close
End Sub