用Visual Basic更新Excel表头

Sub UpdateExcelHeader()
    Dim xlApp As Object
    Dim xlWorkbook As Object
    Dim xlWorksheet As Object
    
    ' 创建Excel应用程序对象
    Set xlApp = CreateObject("Excel.Application")
    
    ' 打开Excel文件
    Set xlWorkbook = xlApp.Workbooks.Open("C:\path\to\your\excel\file.xlsx")
    
    ' 获取第一个工作表
    Set xlWorksheet = xlWorkbook.Worksheets(1)
    
    ' 更新表头
    xlWorksheet.Cells(1, 1).Value = "新的表头1"
    xlWorksheet.Cells(1, 2).Value = "新的表头2"
    ' ...
    
    ' 保存并关闭Excel文件
    xlWorkbook.Save
    xlWorkbook.Close
    
    ' 退出Excel应用程序
    xlApp.Quit
    
    ' 释放对象
    Set xlWorksheet = Nothing
    Set xlWorkbook = Nothing
    Set xlApp = Nothing
End Sub