estoy importando desde excel y solo me importa algunos de los datos de una de las columnas de excel, todos las celdas tienen formato general la unica diferencia exixtente entre los datos es q unos estan alineados a la derecha y los demas a la derecha, solo he podido importar los q estan a la derecha, lo curioso es q alineo todos los datos a la derecha y igual no los importa, el archivo d excel en cuestion es generado por un sistema administrativo y solo esporta los datos a excel.
ejemplo de los datos del archivo de excel:
codigo referencia descripcion
11A1-353GC280B P-1816 ANILLOS M.E-6
11A1-3801715-C 181806 BOMBA DE AGUA
11A1-3801788-C 181807 BOMBA DE AGUA M.
11A1-44GB2207AM GB2207 MARTILLO TAQUETE
11A1-454GC568B M-9002 ARBOL DE LEVA
11A1-456GC5113P1 S-2124 CIGUEÑAL SERIE
Código:
'Asigna a la variable Path, la ruta del archivo *.xls
Path=Server.MapPath("lista.xls")
'Path=Server.MapPath("../../db/cargar/lista.xls")
'Path="../../db/cargar/lista.xls"
'Establece una conexión entre el servidor asp y una base de datos
Set ConexionBD = Server.CreateObject("ADODB.Connection")
'Abrimos el objeto con el driver específico para Microsoft Excel
ConexionBD.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & Path
'Crea un objeto de tipo recordset para retornar la consulta sql
Set rsVac = Server.CreateObject("ADODB.Recordset")
'Se abre el recordset, señalando como tabla el rango de celdas Excel llamado Feriado.
'Este nombre de rango se debe definir en MSExcel (>Insertar>Nombre>Definir...).
'rsVac.Open "Select * From lista order by Codigo,Referencia,Descripcion", ConexionBD,3,3
'rsVac.Open "Select * From Feriado order by Oficina, Nombre", ConexionBD,3,3
rsVac.Open "Select * From data order by Código, Referencia, Descripción", ConexionBD,3,3
'Código Referencia Descripción
'rsVac.Open "Select * From A1:c3783 order by Codigo, Nombre", ConexionBD,3,3
'rsVac.Open "Select * From Codigo order by Codigo", ConexionBD,3,3
%>
<%
'Nos posicionamos al principio del recordset, por cualquier cosa
rsVac.MoveFirst
'Y por fin comenzamos a escribir la tabla de resultados
'Primero los nombres de las columnas (el encabezado de la tabla)
Response.Write "<th>" & rsVac.Fields.Item(0).Name & "</th>" & vbCrLf
Response.Write "<th>" & rsVac.Fields.Item(1).Name & "</th>" & vbCrLf
Response.Write "<th>" & rsVac.Fields.Item(2).Name & "</th>" & vbCrLf
'Y por último, el cuerpo de los datos
'************************************************************************
'** ciclo q carga los datos
'************************************************************************
set session("cnn")=server.createobject("ADODB.Connection")
session("cnn").open "driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("../../db/db.mdb")
set cmd2 = Server.createobject("ADODB.Command")
cmd2.activeconnection = session("cnn")
cmd2.commandtext = "DELETE * From productos"
cmd2.execute
count=0
'************************************************************************
Do While Not rsVac.EOF
'************************************************************************
Response.Write "<tr>" & vbCrLf
Response.write "<td>" & rsVac(0) & "</td>"
Response.write "<td>" & rsVac(1) & "</td>"
Response.write "<td>" & rsVac(2) & "</td>"
Response.write "<td>" & rsVac(21) & "</td>"
Response.write "<td>" & rsVac(26) & "</td>"
Response.Write "</tr>" & vbCrLf
'************************************************************************
'** inserto en la db
'************************************************************************
'Código Referencia Descripción
cmd2.commandtext = "Insert Into productos (codigo,referencia," & _
"descripcion,precio,existencia) Values " & _
"('" & rsVac(0) & _
"','" & rsVac(1) & _
"','" & rsVac(2) & _
"','" & rsVac(21) & _
"','" & rsVac(26) & "')"
cmd2.execute
'************************************************************************
rsVac.MoveNext
count=count+1
Loop
Response.Write "</table>"
'Se cierra y se destruye el objeto recordset
rsVac.Close
Set rsVac = Nothing
'Se cierra y se destruye el objeto connection
ConexionBD.Close
Set ConexionBD = Nothing
'************************************************************************
'Se cierra y se destruye el objeto connection
'cmd2.Close
Set cmd2 = Nothing
response.write "<center><b>" & Count & " Registros Cargados</b></center>"