Código:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Dim objExcel As Excel.Application
Dim wblibro As Object
Set objExcel = CreateObject("Excel.Application")
Set wblibro = objExcel.Workbooks.Open("C:\MI HOJA DE EXCEL.xls")
objExcel.Visible = True
Sleep 8000 'Efectua un retardo de 8 segundos
'AQUÍ VIENE TODO EL CÓDIGO PARA TRANSFERIR LOS DATOS DESDE LA BASE
'DE DATOS HASTA LA HOJA DE EXCEL (EN TODO EL PROCESO NO HAY EXIT FUNCTION O EXIT SUB)
objExcel.ActiveWorkbook.Close True
objExcel.Quit
Set wblibro = Nothing
Set objExcel = Nothing
End Sub