Cómo enviar el contenido mostrado por el control TREEVIEW a EXCEL en VB

Solía ​​generar resultados en tablas EXCEL según fuera necesario. Consulte el procedimiento a continuación:

Aplicar. DisplayAlerts = False

Libro de trabajo activo. Guardar como nombre de archivo:=excelpath. "\**" & Kate & Código 1 & Nombre 1 & "-" & Código & Nombre & ".xls", Formato de archivo_

: =xlExcel8, Contraseña: = "", WriteResPassword: = " , ReadOnlyRecommended: = False, CreateBackup: = False

Aplicación DisplayAlerts = False

Aplicación DisplayAlerts = True

Libro de trabajo activo. Cerrar guardando cambios: =False.