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 código
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 numérico y no se como hacerlo para que en la celda queden como valor numérico, ya que el variable es un valor numérico con separador de miles y otra_variable es numérico de varios dígitos (19 dígitos)
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 numérico y no se como hacerlo para que en la celda queden como valor numérico, ya que el variable es un valor numérico con separador de miles y otra_variable es numérico de varios dígitos (19 dígitos)