coom vaciar datos de una tabla a un archivo predefinido en excel

[rezocrew]

logre solucionar en parte mi problema , pude hacer que los datos se vaciaran en la hoja predefinida de excel

dim Dsist1

Dsist1 = split(datos,"@@")
l_vector = Ubound(Dsist1) -1
response.write(l_vector)


Path=Server.MapPath("hola.xls")
Set XLSstrcxn = Server.CreateObject("ADODB.Connection")
XLSstrcxn.Open "DRIVER={Microsoft Excel DRIVER (*.xls)};DBQ= "& Path&";ReadOnly=0;"

Set sql = Server.CreateObject("ADODB.command")
sql.CommandType = 1
sql.ActiveConnection = XLSstrcxn

sql.CommandText= "INSERT INTO [Hoja1$]("&_
"DIRECCION,"&_
"MONTOS)"&_
"VALUES( '"&Dsist1(0)&"' ,'"&Dsist1(1)&"');"
sql.execute


rediseñe el codigo pero lo unico que varia en si es que al string de conexion le agregue ReadOnly=0

pero ahora tengo el sgte problema y es que lo datos que me deposita en el excel me los tira como texto y por lo tanto mis graficos no se ven por que el tipo de dato en excel es texto donde deberia ser numerico, cabe señalar que las columnas del excel estan debidamente configuradas para texto y numero segun corresponda.

entonces mi duda es como en el insert into de sql hago para que tome la variable como un numero y no como caracter

sql.CommandText= "INSERT INTO [Hoja1$]("&_
"DIRECCION,"&_
"MONTOS)"&_
"VALUES( '"&Dsist1(0)&"' ,"&Dsist1(1)&");"


para que asi lleguen al excel con formato de numero y con eso pueda ver mis graficos