Os pongo mi codigo aqui abajo:
Código:
otra pregunta mas es como puedo hacer para darle un nombre a los libros??MkDir App.Path & "\" & bd 'creamos la carpeta. Dim ApExcel As Variant Set ApExcel = CreateObject("Excel.application") ' Hace que Excel no se vea ApExcel.Visible = False 'Agrega un nuevo Libro ApExcel.Workbooks.Add
desde ya mil y una gracias por vuestro tiempo y ayuda.
saludos
swaze