Buenas, en la línea:
dw_reporte.saveas(file,HTMLTable!,true)//guardas datos del datawindows
cambiá donde dice "HTMLTable!" por "XLS!" o "CSV!".
Te quedaría así la línea:
dw_reporte.saveas(file,XLS!,true)//guardas datos del datawindows
No se si resperta el formato del reporte, pero creo que sí, espero tu respuesta para ver si te funcionó, saludos.