如何在vba中写入excel

Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

xlSheet.Range("A1").Value = "Hello, World!"

Dim data() As Variant
data = Array("Data 1", "Data 2", "Data 3", "Data 4", "Data 5")

xlSheet.Range("A1:A5").Value = Application.Transpose(data)

xlBook.SaveAs "C:\Path\to\your\file.xlsx"
xlBook.Close
xlApp.Quit

Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing