VB更改EXCEL单元格内容

 

'更改c:
.xls中sheet1 E2内容修改为1020 

'先点击 工程－引用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:
.xls") 
Set xlsheet = xlbook.Worksheets("sheet1") 
xlsheet.Cells(2, 5) = "1020" 
xlbook.Save 
xlbook.Close 
Set xlapp = Nothing 
MsgBox ("完成") 
End Sub