使用VBA将数组输出到excel

Sub ExportArrayToExcel()
    Dim dataArr(1 To 5) As Variant
    Dim i As Integer

    ' 假设有一个数组，将其赋值
    For i = 1 To 5
        dataArr(i) = i
    Next i

    ' 创建新的Excel应用程序对象
    Dim xlApp As Object
    Set xlApp = CreateObject("Excel.Application")

    ' 创建新的工作簿
    Dim xlWorkbook As Object
    Set xlWorkbook = xlApp.Workbooks.Add

    ' 获取第一个工作表
    Dim xlWorksheet As Object
    Set xlWorksheet = xlWorkbook.Worksheets(1)

    ' 将数组数据输出到Excel的A列
    For i = 1 To 5
        xlWorksheet.Cells(i, 1).Value = dataArr(i)
    Next i

    ' 保存工作簿
    xlWorkbook.SaveAs "C:\path\to\output.xlsx"

    ' 关闭工作簿和Excel应用程序
    xlWorkbook.Close
    xlApp.Quit

    ' 释放对象
    Set xlWorksheet = Nothing
    Set xlWorkbook = Nothing
    Set xlApp = Nothing

End Sub