Cita:
Iniciado por lexus 
hay veces me funciona y hay veces me sale este error..
Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Controlador ODBC Excel]Error general No se puede abrir la clave 'Temporary (volatile) Jet DSN for process 0xfc0 Thread 0x760 DBC 0x1420064 Excel' del Registro.
/cygnus_oked/subir_proceso.asp, línea 164
la linea 164 es esta
objConn.Open strcxn
el codigo es el ke tengo arriba no lo he modificado.
ke podra ser?
formatos de celda?
Hola Lexus
No he tenido chance de estudiar tu código, pero por lo que medio entendí ocupas abrir un archivo de Excel sin rangos y que no de problemas, ok, el fragmento de código siguiente es algo que siempre uso y jamás he tenido problemas salvo que tenga abierto el Excel por descuido al momento de ejecutarlo
, solo lo copie y pegué por lo que deberás editarle las partes que no te apliquen.
Saludos
Código ASP:
Ver originalsSourceXLS = Server.MapPath(".") & "\ClientUploads\" & sNomXLS
Dim oConn
Set oConn = Server.CreateObject("ADODB.Connection")
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sSourceXLS & ";" & _
"Extended Properties=""Excel 8.0;HDR=YES;"""
oConn.Open conStr
CntErrors = 0
Set oRS = Server.CreateObject("ADODB.Recordset")
' On Error Resume Next
'3704
oRS.Open "Select * from [A1:Y1000] WHERE LTRIM(RTRIM(Barco))<>''", oConn, 1, 3
IF Err.number = -2147217865 Then
AgregaError("No existe la hoja [Rollos] en el archivo")
ElseIf oRs.EOF Then
AgregaError("No hay registros en el archivo")
Else
Campos = "|"
For Each f in oRs.Fields
Campos = Campos & UCase(f.Name) & "|"
Next