Ver Mensaje Individual
  #1 (permalink)  
Antiguo 22/07/2008, 18:40
Avatar de cjzava
cjzava
 
Fecha de Ingreso: enero-2006
Mensajes: 41
Antigüedad: 19 años, 3 meses
Puntos: 1
insertar valores en una celda de excel

hola gente le comento que estoy trabajando en asp con excel, y mi problema es que recupero los datos de una base de datos oracle, los valores recuperados de la consulta los guardo en una variable, la cual , esos valores los tengo que insertar en una celda de excel, que dicho excel esta guardado en un servidor,
mi problema es que cuando esta consulta me trae una concatenacion de resultados mayor a 255 caracteres no me inserta nada en el excel, (si es menos de esa cantidad no hay problema), aca les paso el codigo para que si alguien me puede dar una mano con esto


Dim ObConnExcel, oXLSRS

Set ObConnExcel = Server.CreateObject("ADODB.Connection")
Set oXLSRS = Server.CreateObject("ADODB.Recordset")

'------------------------------------------------------------
' recupera la hoja [Cabecera]
'------------------------------------------------------------



ObConnExcel.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sFileNameHDD & ";" & _
"Extended Properties=""Excel 8.0;HDR=NO;"""

oXLSRS.ActiveConnection = ObConnExcel
oXLSRS.CursorType = 3
oXLSRS.LockType = 2


oXLSRS.Source = "Select * from [Cabecera$B13:B13]"
oXLSRS.Open
oXLSRS.MoveFirst
oXLSRS.Fields(0).Value = sDoc_RegLegal
oXLSRS.Update
oXLSRS.Close

'sDoc_RegLegal = variable que me trae los datos de la consulta

'Cierro el Excel
ObConnExcel.Close
Set ObConnExcel = nothing

o bien sino poder hacer que cada registro de la consulta , se inserte en una celda nueva

desde ya muchas gracias por todo