[Visual Basic] Excel処理の終了方法

Dim xlApp As Excel.Application
Dim xlWkb As Excel.WorkBook
Dim xlWsh As Excel.WorkSheet
Set xlApp = CreateObject("Excel.Application")
Set xlWkb = xlApp.WorkBooks.Open(strfullpass)
Set xlWsh = xlWkb.WorkSheets(strsheet)
xlWsh.Cells(introw, intcol) = strsubs
xlWkb.Save
xlWkb.Close
xlApp.Quit