Dim xlApp
Dim xlBook
Dim xlSheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open "d:\neimeng\Book2.xls"
Set xlSheet = xlBook.Worksheets("Sheet1")
With xlSheet.Cells(4, 3).Value = ScreenItems("nian1").OutputValue
objExcelApp.ActiveWorkbook.Save

objExcelApp.Workbooks.Close

objExcelApp.Quit
Set objExcelApp = Nothing
End With

我是这么写的，运行后，还是看不到数据