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