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