Ver Mensaje Individual
  #6 (permalink)  
Antiguo 21/06/2005, 15:06
masterboy6666
 
Fecha de Ingreso: mayo-2004
Mensajes: 183
Antigüedad: 20 años, 11 meses
Puntos: 0
Hola.
Cuando creo un archivo en excel utilizo el driver de odbc. El cual te permite crear tablas(hojas de calculo), te pongo un ejemplo, espero que te sirva.

dim PathDest
PathDest="c:\ejemplo.xls"
strConn="Driver={MICROSOFT EXCEL DRIVER (*.xls)};DSN='';FIRSTROWHASNAMES=1;" &_
"READONLY=FALSE;CREATE_DB=" & PathDest & ";DBQ=" & PathDest

conn.open strConn
sqlcmd="create table list (Numero TEXT,Nombre_Completo TEXT, Grupo TEXT)"
conn.Execute(sqlcmd)
sqlcmd="insert into list(Numero,Nombre_Completo,Grupo)"
sqlcmd=sqlcmd & " values('1','Juan','Grupo')"
conn.Execute(sqlcmd)

'Si necesito crear otra hoja
sqlcmd="create table list1 (Numero TEXT,Nombre_Completo TEXT, Grupo TEXT)"
conn.Execute(sqlcmd)

sqlcmd="insert into list1(Numero,Nombre_Completo,Grupo)"
sqlcmd=sqlcmd & " values('1','Juan','Grupo')"
conn.Execute(sqlcmd)

Lo malo de todo esto es que no tendrá un formato :(