Mensajes

http://www.microsoft.com/downloads/en/details.aspx?familyid=C06B8369-60DD-4B64-A44B-84B371EDE16D&displaylang=en

Microsoft Access Database Engine 2010 Redistributable
ese archivo es el que me faltaba para poder leer el documento office 2007 y cargarlo al recordset

con ese archivo y el siguiente codigo pude lograr capturar los datos de la hoja excel
estoy bajo winxp sp3
con office 2003

Código [Seleccionar] Expandir


conexion.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
           "Data Source=" & Libro & _
         ";Extended Properties=""Excel 12.0;HDR=Yes;"""



Saludos

He buscado y buscado y encontre este codigo que hace referencia a archivos xlsx
pero sale el mensaje de error "error 3706"
- no se encontro el proveedor especificado. es posible que no este instalado correctamente..

a mi entender, debo tener instalado el oficce 2007.. será asi?????

Código [Seleccionar] Expandir


conexion.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
            "Data Source= & Libro " & _
         ";Extended Properties=""Excel 12.0;HDR=Yes;"""



Saludos

Muy buenas tardes a todos los que pasan por aki, tengo un problema al querer importar datos desde XLSX a un recordset, el codigo siguiente funka muy bien en un XLS

espero me puedan ayudar..

Código [Seleccionar] Expandir


Public Sub Importar_Excel( _
Libro As String, _
hoja As String, _
Optional rango As String = "")
Dim Registros() As Variant
Dim direcciontxt As String
Dim separador As String
Dim connString As String

Dim conexion As ADODB.Connection, rst As ADODB.Recordset
Set conexion = New ADODB.Connection

conexion.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & _
             "Data Source=" & Libro & _
         ";Extended Properties=""Excel 12.0;HDR=Yes;"""
         
    Set rst = New ADODB.Recordset

   With rst
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
     
    End With

If rango <> ":" Then
       hoja = hoja & "$" & rango
End If

    rst.Open "SELECT * FROM [" & hoja & "]", conexion, , , adCmdText

    Set DataGrid1.DataSource = rst
        direcciontxt = App.Path & "\" & "DATOS.txt"
        separador = ";"
    Call Exportar_Recordset(rst, direcciontxt, separador)
End Sub


me arroja un mensaje de error aludiendo que "No se puede encontrar el archivo ISAM instalable" marcando las siguientes lineas de codigo

Código [Seleccionar] Expandir


conexion.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & _
             "Data Source=" & Libro & _
         ";Extended Properties=""Excel 12.0;HDR=Yes;"""
         


(para xlsx lei que habia de dejar ";Extended Properties=""Excel 8.0;HDR=Yes;"""
en ";Extended Properties=""Excel 12.0;HDR=Yes;""")

pero aun asi no tengo problema, espero que me ayuden nuevamente
De antemano Muchas Gracias

GRACIAS  por su ayuda, me sirvió de mucho,
gracias nuevamente a todos los que me ha ayudado..... el proceso si ha demorado mucho menos, estaba chato de esperar como 5 horas

Saludos

ha ocurrido un problema, son las 16:35 y el proceso ha finalizado por un error

Ver Imagen: http://s3.subirimagenes.com:81/privadas/previo/thump_1224097dibujo.jpg

el proceso muere cuando X e Y toman un valor superior a los 100.000... :S

Dim RUT(999999) As String
Dim MONTO(999999) As Integer
Dim INICIO(999999) As String
Dim MEDIO(999999) As String
Dim a  As String

Agregue un 9 mas a cada variable y espero que eso haya arreglado el problema, ahora estoy corriendo el proceso nuevamente

Gracias

79137913

acabo de llegar del almuerzo y he corrido el codigo, tuve unos problemas ya que en el archivo base, la primera linea no tenia el mismo largo de los demas registros
pero con un if he solucionado eso..
te cuento .. son las 15:45 y he comenzado el proceso... espero tener los resultados esperados

MUCHAS GRACIAS MAN... UN GRAN A PORTE EN EL FORO..  JUNTO CON TODOS LOS QUE DEDICAN SU VALIOSO TIEMPO EN AYUDAR A LOS DEMAS

Saludos..

PD.: no ocupe el RUTS.txt.. y mas tarde te cuento el tiempo que ocupo en correr elproceso completo.

Hola nuevamente, espero que se encuentren todos bien... tengo el siguiente problema, he tratado de optimizar el codigo para que el proceso lo haga mas rapido no he logrado mejores resultados que el codigo que mas adelante expondré.

el ejercicio es el siguiente:

tengo un archivo base (ARCHIVO_BASE.TXT) con 363.674 registros
(el archivo base que pondre aka tiene una cantidad mucho menor)

Código [Seleccionar] Expandir


20100817036367300000005124506158
001058913920091015200911102010082600000500410000031891920053866123
00099778632009072120090815201008260000286741000003189193005386628K
001058915120091015200911102010082600002770410000031892080053867960
000997793920090721200908152010082600001716410000031892450053872220
001202927320100411201005052010082600014820410000031892470053872549
001307911820100811201009052010082600008610410000031892510053872786
000012517820100807201009012010082600006030390000031892540053872816
000997785420090721200908152010082600001417410000031892570053873081
001201805520100411201005052010082600005320410000001963750132585601
001226921820100507201006012010082600000182410000001966660132612358
001058913920091015200911102010082600000500410000031891920053866123
00099778632009072120090815201008260000286741000003189193005386628K
001058915120091015200911102010082600002770410000031892080053867960
000997793920090721200908152010082600001716410000031892450053872220
001202927320100411201005052010082600014820410000031892470053872549
001307911820100811201009052010082600008610410000031892510053872786
000012517820100807201009012010082600006030390000031892540053872816
000997785420090721200908152010082600001417410000031892570053873081
001201805520100411201005052010082600005320410000001963750132585601
001226921820100507201006012010082600000182410000001966660132612358


este archivo debe ser recorrido y guardar en otra archivo llamado "RUTS.TXT " los RUT  de estos registros se encuentran en la posición 58 y tiene un largo de 9 caracteres. estos RUT  se encuntran algunas veces duplicados x cantidad de veces por lo cual hay que dejar solo 1 de de cada RUT  repetido.

el archivo "RUTS.TXT" quedaria asi:

Código [Seleccionar] Expandir



053866123
05386628K
053867960
053872220
053872549
053872786
053872816
053873081
132585601
132612358


con este archivo tendremos que recorrer nuevamente el archivo "ARCHIVO_BASE.TXT" e ir haciendo una sumatorio de uno de los campos en este caso el campo monto, para si dejar solo 1 rut de los x que se repiten con la sumatoria de los montos y los demas datos que para el ejercicio no tiene importancia.
dejo a continuación el archivo "ARCHIVO_FINAL.txt" con el filtro de RUT ya hecho y con la sumatoria de los montos cuando se repite el RUT.

Código [Seleccionar] Expandir


001058913920091015200911102010082600001000410000031891920053866123
00099778632009072120090815201008260000573441000003189193005386628K
001058915120091015200911102010082600005540410000031892080053867960
000997793920090721200908152010082600003432410000031892450053872220
001202927320100411201005052010082600029640410000031892470053872549
001307911820100811201009052010082600017220410000031892510053872786
000012517820100807201009012010082600012060390000031892540053872816
000997785420090721200908152010082600002834410000031892570053873081
001201805520100411201005052010082600010640410000001963750132585601
001226921820100507201006012010082600000364410000001966660132612358


resalto el campo con la sumatoria

Código [Seleccionar] Expandir


0010589139200910152009111020100826 00001000 410000031891920053866123
0009977863200907212009081520100826 00005734 41000003189193005386628K
0010589151200910152009111020100826 00005540 410000031892080053867960
0009977939200907212009081520100826 00003432 410000031892450053872220
0012029273201004112010050520100826 00029640 410000031892470053872549
0013079118201008112010090520100826 00017220 410000031892510053872786
0000125178201008072010090120100826 00012060 390000031892540053872816
0009977854200907212009081520100826 00002834 410000031892570053873081
0012018055201004112010050520100826 00010640 410000001963750132585601
0012269218201005072010060120100826 00000364 410000001966660132612358


el campo a sumar se encuentra en el archivo "ARCHIVO_BASE.TXT" y esta en la pocición 35 con un largo de 8 caracteres

a continuación el codigo fuente:

se necesita un boton , un modulo y un commonDialog llamado "cd"
codigo para el boton:

Código [Seleccionar] Expandir


Private Sub Command1_Click()

Private Sub Command1_Click()

Dim ARCHIVO_RUT As String
Dim DIRECCION As String
Dim RUT1 As String
Dim SW2 As Integer
Dim rutrut As String
Dim campo1 As String
Dim campo3 As String
Dim sumatoria As String
Dim sumatoriaVal As Long

EscriveLog "", "RUTS"                     ' crea el archivo "RUTS" y guarda un espacio en blanco
ARCHIVO_RUT = App.Path & "\" & "RUTS.txt" ' se guarda la direccion del archivo "RUTS"

   cd.ShowOpen    ' abre una ventana para buscar el archivo base
   DIRECCION = cd.FileName   ' la direccion se guarda en una variable
   
   Open DIRECCION For Input As #1     ' abrimos el archivo
     While Not EOF(1)                 ' lo recorremos mientras no sea fin de archivo
               Line Input #1, linea1  ' se posiciona en la primera o la siguiente linea del archivo
               RUT1 = Mid$(linea1, 58, 9)  ' en la posicion 58 de largo 9 se encuentra el rut y lo guardamos
           
               
               If RUT1 <> "" Then   ' si el rut es distindo de vacio haga
                 Open ARCHIVO_RUT For Input As #2  ' abrir el archivo donde se guardan los rut
                 
                    While SW2 = 0 And Not EOF(2)   ' hacemos mienrras el sw2 sea igual a 0
                              Line Input #2, linea2   ' se posiciona en la  primera o siguiente linea
                              rutrut = Mid$(linea2, 1, 9) ' se guarda lo que se encuntre en la posicion 1 de lsrgo 9
                              If RUT1 = rutrut Then '  si el rut del archivo base = a los que se tomo del archivo_rut
                                 SW2 = 1  ' el sw2 toma el valor 1
                              End If
                    Wend
                 Close #2
                 If SW2 = 0 And RUT1 <> "" Then    si el sw2 es cero es pq el rut no esta repetido en el archivo RUTS
                   EscriveLog RUT1, "RUTS"   ' se guarda el rut nuevo en el archivo RUTS
                 End If
                   SW2 = 0   ' se deja nuevamente el valor del sw2 en cero
               End If
     Wend       ' se va al siguiente registro si no es fin de archivo   
   Close #1 ' cerramos el archivo
   
sumatoria = 0

Open ARCHIVO_RUT For Input As #1  ' abrimos el archivo que contiene los rut una sala vez
    While Not EOF(1)              ' hacemos mientras no sea find e archivo
          Line Input #1, linea1    ' nos posicionamos en la primera o la siguiente linea
          RUT1 = Mid$(linea1, 1, 9) ' se almacena el valor de el rut
     
       If RUT1 <> "" Then   ' si el rut es distinto de blanco
       
          Open DIRECCION For Input As #2   ' abrimos el archivo base
               While Not EOF(2)      ' hacemos mientras no sea finde archivo
                     Line Input #2, linea2   ' no sposicionamos en el primero o siguiente registro
                     rut2 = Mid$(linea2, 58, 9) ' guardamos el rut del registro del archivo base
         
                     If RUT1 = rut2 Then   ' comparamos el rut del archivo base con el el contenedor de rut
                              campo1 = Mid$(linea2, 1, 34)   'dato que no importa
                              campo3 = Mid$(linea2, 43, 24)   ' dato que no importa
                              sumatoria = Mid$(linea2, 35, 8)  ' guardamos el monto (string) del archivo base
                              sumatoriaVal = Val(sumatoria) ' pasamos de string a numerico
                              sumatoria = sumatoria + sumatoriaVal ' sumamos lo que tiene sumatoria con el numerico
                              sumatoria = Str(sumatoria) ' pasamos la sumatoria a string
     
                              sumatoriaVal = Len(sumatoria)  ' obtenemos el largo del string de sumatoria
                              sumatoriaVal = sumatoriaVal - 1  ' al largo del string le restamos 1
                              sumatoria = Right$(sumatoria, sumatoriaVal) ' cortamos el string pq al pasarlo de numerico
                                                                          ' a string se crea un espacio en blanco
                              sumatoriaVal = 8 - sumatoriaVal        'rellena con ceros a la izquierda
                              While sumatoriaVal > 0                 'para tener un string de largo 8
                                   sumatoria = "0" + sumatoria       '   
                                   sumatoriaVal = sumatoriaVal - 1   '
                              Wend
                     End If

               Wend
                   sumatoria = campo1 + sumatoria + campo3           '
                   EscriveLog sumatoria, "ARCHIVO_FINAL"             'guardamos el registro en el archivo final
                   sumatoria = 0
          Close #2
       End If
    Wend
Close #1
MsgBox "FIN"
End Sub


codigo para el modulo:

Código [Seleccionar] Expandir


Public Function EscriveLog(ByRef Texto As String, ByRef tipo As String) ', ByRef xTipo As Byte)
   Dim strFile As String
   Dim fn As Long
   Dim strLog As String
   strFile = App.Path & "\" & tipo & ".txt"
   fn = FreeFile
   strLog = Texto
   Open strFile For Append As fn
       Print #fn, strLog
   Close fn
End Function


duración de lectura

104.000 registros en 90 minutos de un total de 363.674

espero me puedan ayudar, antes ya lo han hecho... de antemano MUCHISIMAS GRACIAS!!!  

Gracias!!!! ahora si funka, voy a pasarle datos ahora 

te cuento,

hice lo siguiente

Código [Seleccionar] Expandir

archivo = App.Path & "\" & "REGISTRO.txt"
Open archivo For Input As #1
Escrivexml "<?xml>", "REGISTROXML"
Escrivexml "<Datos>", "REGISTROXML"
While Not EOF(1)
    Line Input #1, Linea
   
       fecha = Mid$(Linea, 1, 8)
       empresa = Mid$(Linea, 9, 5)
       
       registro = "<cuenta>" + "<fecha>" + fecha + "</fecha>" + "<empresa>" + empresa + "</empresa>" + "</cuenta>"
       Escrivexml registro, "REGISTROXML"
   
Wend

Escrivexml "</Datos>", "REGISTROXML"


me genero el .xml pero no abre ni a palos

tb probe insertando lo que escribiste tu  cambiandole la extension, pensando que no estaba quedando =

Código [Seleccionar] Expandir

<?xml>
<Datos>
  <cuenta><fecha>4/10/2010</fecha><nombre>UDDES</nombre></cuenta>
  <cuenta><fecha>5/10/2010</fecha><nombre>ADDES</nombre></cuenta>
</Datos>

pero pasa lo mismo :S

se pega el explorer abre y abre ventanas

espero me puedas ayudar. Gracias

Gracias, veré que resulta de todo esto.
mas tarde te cuento como me fue

GRACIAS POR TODO,  TE PASASTE