Private Sub 命令8_Click()
on error goto err_proc
　　Dim oapp As Excel.Application, oappwork As Excel.Workbook, oappwork_Sheet1 As Excel.Worksheet
　　Set oapp = CreateObject("Excel.Application")

‘在后台打开操作，不显示出来设置oapp.Visible = False、需要显示的话，就设置true

　　oapp.Visible = True

　　Set oappwork = oapp.Workbooks.Open("c:\book1.xls")
　　Set oappwork_Sheet1 = oappwork.Worksheets("Sheet1")
　　oappwork_Sheet1.Cells(2, 1) = "AAA"
　　oappwork_Sheet1.Cells(2, 2) = "BBB"
err_proc:
      on error resume next
　　oappwork.Close (False)
　　oapp.Quit
　　Set oappwork_Sheet1 = Nothing
　　Set oappwork = Nothing
　　Set oapp = Nothing
End Sub