
22/07/2008, 18:40
|
 | | | 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 |