如何往EXCEL的第一行写数据

[china_horse]

我想用COM技术往EXCEL的第一行写入数据，怎么办啊，SetItem好像不行

[沐NeMo]

'要先引用 Excel library
dim NewXlApp as Excel.Application '新工作簿New.xls
dim NewXlBook as Excel.Workbook
dim NewSheet as Excel.Worksheet
Set NewXlApp = New Excel.Application
Set NewXlBook = NewXlApp.Workbooks(1)
Set NewSheet = NewXlBook.Worksheets(1)
NewSheet.Activate
NewSheet.Range("A1")="写入数据"
NewSheet.Cells(1, 2)="第一行，第二列的数据"
NewSheet.Name ="New" '表"new"中
NewXlBook.SaveAs "C:\New.xls" ' C:盘中的工作簿New.xls
NewXlApp.Quit
Set NewSheet = Nothing
Set NewXlBook = Nothing
Set NewXlApp = Nothing