Private Sub Command1_Click()
    Dim exob As Excel.Application
    Dim exws As Excel.Worksheet
    Dim exwb As Excel.Workbook
 
    Set exob = CreateObject("Excel.Application")
    Set exwb = exob.Workbooks.Open("d:\test.xls")
    Set exws = exwb.Worksheets("test1")
 
        '...
 
    exwb.Save
    exwb.Close
    exob.Quit
    Set exwb = Nothing
    Set exob = Nothing
End Sub