Programación VB para abrir y cerrar archivos EXCEL

Dim?xlapp?As?Excel.Application?'Objeto de Excel

Dim?xlbook?As?Excel.Workbook?'Workbook

Dim?xlsheet ? As?Excel.Worksheet?'Hoja de trabajo

Dim?xlrange?As?Excel.Range

'Lo anterior es una variable *** pública

¿Privada? Sub?Command1_Click()

Set?xlapp?=?CreateObject("excel.application")?'Primera capa

Set?xlbook?=?xlapp.Workbooks.Open( " d:\123.xlsx")

xlapp.Visible?=?True

Fin?Sub

Privado?Sub?Command2_Click()

xlbook.Cerrar

¿Fin?Sub