excel

Homertrix
08 de Enero del 2004
Tengo una consulta a la base de datos y con los resultados genero un xls con el siguiente cdigo

g_filename = replace(Nombre_Archivo," ","_")

set fso = createobject("scripting.filesystemobject")

Set act = fso.CreateTextFile(server.mappath(""&g_filename &".xls"), true)

act.WriteLine "<html xmlns:x=""urn:schemas-microsoft-com:office:excel"">"
act.WriteLine "<head>"
act.WriteLine "<!--[if gte mso 9]><xml>"
act.WriteLine "<x:ExcelWorkbook>"
act.WriteLine "<x:ExcelWorksheets>"
act.WriteLine "<x:ExcelWorksheet>"
act.WriteLine "<x:Name>"& Pagina &"</x:Name>"
act.WriteLine "<x:WorksheetOptions>"
act.WriteLine "<x:Print>"
act.WriteLine "<x:ValidPrinterInfo/>"
act.WriteLine "</x:Print>"
act.WriteLine "</x:WorksheetOptions>"
act.WriteLine "</x:ExcelWorksheet>"
act.WriteLine "</x:ExcelWorksheets>"
act.WriteLine "</x:ExcelWorkbook>"
act.WriteLine "</xml>"
act.WriteLine "<![endif]--> "
act.WriteLine "</head>"
act.WriteLine "<body>"
act.WriteLine "<table>"
act.WriteLine "<tr>"
act.WriteLine "<td></td>"
act.WriteLine "</tr>"
act.WriteLine "<tr>"
act.WriteLine "<td></td>"
act.WriteLine "<td width='228'>&variable&</td>
act.WriteLine "<td width='228'>&otra_variable&</td>
act.WriteLine "</tr>"
act.WriteLine "</tr>"
act.WriteLine "</table>"
act.WriteLine "</body>"
act.WriteLine "</html>"
act.close

y esas dos variable (variable y otra_variable) son de tipo numrico y no se como hacerlo para que en la celda queden como valor numrico, ya que el variable es un valor numrico con separador de miles y otra_variable es numrico de varios dgitos (19 dgitos)