VB如何調用EXCEL 對象更改單元格中的內容

                         在vb中如何調用excel更改其中的內容，看下面的例子：

’先點擊 工程－引用Microsoft Excel... 
Private Sub Command1_Click() 
Dim xlapp As Excel.Application 
Dim xlbook As Excel.Workbook 
Dim xlsheet As Excel.Worksheet 
Set xlapp = CreateObject("excel.application") 
Set xlbook = xlapp.Workbooks.Open("c:a.xls") 
Set xlsheet = xlbook.Worksheets("sheet1") 
xlsheet.Cells(2, 5) = "1020" 
xlbook.Save 
xlbook.Close 
Set xlapp = Nothing 
MsgBox ("完成") 
End Sub