Jump to content

programar consultas de archivos planos


Recommended Posts

Estimados, vengo nuevamente con una consulta, y espero tenga buena acogida.

Tengo una rutina en la que habro archivos y rescato datos, le doy formato y otras cosas. El origen de estos datos es de archivos planos pero con extención particular ".mad", que en el fondo puede ser cualquiera pero distinta de ".txt"

La cosa es que algunos archivos por sus datos pierden coherencia. Solución posible hacer conección de datos desde archivos de texto. Hago la conección y grabo una macro, pero no puedo modificarla para los parametros que van cambiando, como la ruta de origen del dato.

Adjunto Query para aclarar el tema y adjunto archivo plano que intento copiar. Este archivo se separa por ancho delimitado de largo 8,8,8,8... hasta 72.


' esto es lo que se obtiene de la macro, más cosas de formato
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\doctos\2012-03-07\M231202.mad", Destination:=Range( _
"$A$1"))
.name = "M231202"
‘por esta modificación
With ActiveSheet.QueryTables.Add(Connection:= _
" TEXT; nombrearchivo", Destination:=Range("A1"))
.name = NOMBRE1

‘donde:
RUTA = Hoja1.Cells(4, 2)
NUMERO = 23
P = Hoja1.Cells(2, 2)
Hoja24.Activate
nombrearchivo = (RUTA & "\" & "M" & NUMERO & P & ".mad")

[/PHP]

en que me dice que no se puede encontrar el archivo de texto. Me pregunto se es por la extención y de ser así cómo lo arreglo?

M231202.rar

Link to comment
Share on other sites

Estimados, Favor si alguien sabe cómo solucionar este tema.

Como dato les puedo decir que al abrir el archivo directamente con excel, no hay problema, al vincularlo tampoco hay problema, pero al programar sea por la ruta (como lo hago hasta ahora) o programando la vinculación. El archivo (al menos a mi) pierde el formato.

Una ayuda please.

Saludos desde Chile.

Link to comment
Share on other sites

Estimados, he pensado y aún no puedo solucionar el tema, la forma en que se abren los archivos es


If NUMERO = 23 Then


nombrearchivo = (RUTA & "\" & "M" & NUMERO & P & ".mad")
NOMBRE = name(nombrearchivo) '''funciones que tengo almacenadas
NOMBRE1 = Mid(NOMBRE, 1, 7) 'SIN EXTENS
Workbooks.Open (nombrearchivo)

[/PHP]

y luego sigo con otro proceso, pero al abrir el archivo, me sale solo blanco.

Realmente no se qué hacer o cómo solucionarlo, porque si la solucion va por el lado de hacer una conección de datos, debo hacerla de forma que esta sea valida para todos los archivos y en el tiempo (cambian de nombre).

En las lineas anteriores "P" es el período ingresado por inputbox.

Favor su ayuda.

Saludos cordiales desde Chile.

Link to comment
Share on other sites

Vamos amigos, alguien se haga un tiempo y comparta cómo programar una conección desde texto con extención distinta de .txt, u otra forma de solucionar el problem.

En lo otro que pienso es consolidar todos los archivos usando DOS, pero creo que la finalidad de "automatizar" se pierde. A menos que alguien sepa cómo programar en excel una interface DOS para hacer un c:\\copy *......

Saludos muy cordiales y no pierdo la fé.

Desde Chile un abrazo

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • Crear macros Excel

  • Posts

    • Y por ultimo, solo me queda esto para acabar lo que necesito. Sucede que a veces un empleado no usa la tarjeta de combustible asociada a su matricula y usan una llamada Comodin1 o Comodin2.., sin embargo tengo una hoja Excel donde tengo la tarjeta Comodín que le hemos entregado y a que matrícula habría que asocial el gasto. En la hoja Comodín aparece los movimientos de la tarjeta y en la de Consumos necesito averiguar a que conductor corresponde para así hacer el desglose de la misma. Ni se como hacerlo ni en que hoja se puede hacer la consulta, si añadir otra columna en la de Consumos...., no se como hacerlo. Adjunto el archivo y agradezco esta ultima ayuda para este asunto.   Gracias de antemano.   Ejemplo consumos combustible sq.xlsx
    • Pues tienes toda la razón.  Mucho más simplificado. ¡GRACIAS!
    • Que tal, verificando la consulta no veo necesidad de duplicar la Tabla de Reparto, dado que se puede simplemente agregar una columna (Importe total) con la siguiente fórmulación: =SUMAR.SI(Consumos!AR$2:AR$8;[@[Nombre completo]];Consumos!AK$2:AK$8)*[@[%]] Espero les sea útil.
    • Hola de nuevo por aquí. Sigo con el fichero de consumos y con problemas. Ayer me ayudasteis y mucho a determinar los conductores y sus consumos. Ahora lo que necesito es lo siguiente. Tengo una tabla donde los empleados imputan de manera porcentual a distintas ordenes de trabajo. Está en la hoja Reparto. Veréis que por ejemplo el primer empleado reparte un 50 a una OT y otro 50 a otra. El segundo empleado imputa un 40 a una OT y otro 60 a otra y el tercero imputa un 25 a una OT, un 65 a otra y un 10 a otra. Esto desglosarlo es un autentico lío, y cada mes me emplea muchísimo tiempo . Lo que quisiera es que en la hoja que le he llamado desglose me creara una tabla o en la que he hecho y me calculara el consumo de combustible de cada empleado teniendo en cuenta la OT y su porcentaje. He creado la tabla y he puesto los importes que deberían salir. Los importes de cada consumo están en la hoja Consumos en la columna AK (IMP_TOTAL). Por ejemplo en la hoja Desglose el primer empleado sería GARCIA FERNANDEZ, VICENTE y a la OT 11000001 tendría un importe de 28,70 euros ya que en la hoja Reparto decimos que imputa un 50 a esa OT y el consumo total de ese empleado de la hoja Consumo es de 57,40 euros. Y así con el resto. He puesto una tabla para que sea dinámico y si hay más consumos o empleados se vaya actualizando dinámicamente, o eso creo. Lo que no veo claro es que busque y autorrellene con formulas la tabla sin hacerlo con macros. Al menos para mi se me hace muy difícil ver la posibilidad. No tengo claro si he conseguido explicarme, cualquier duda os respondo. Y como siempre muy agradecido por vuestro tiempo y compartir tan hábiles conocimientos, y además de manera desinteresada y amable. Gracias.   Ejemplo consumos combustible sq.xlsx
    • Hola, yo también tengo el mismo problema, ¿podrías decir cómo lo solucionaste, por favor? :c
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy