Hola, les dejo un trabajo que hice sobre Excel y Query, es sin macros, el archivo zip al descomprimirlo crea una carpeta de nombre TodoExcel, en ella se encuentra un PDF (que recomindo leer primero), un archivo de Excel '07 (.xlsx) y un archivo Query (.dqy). Espero les guste y sea de utilidad.
Adrian = StrReverse("mslx.2ulaS")





