'
更改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
' 先点击 工程-引用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