Jump to content

Janlui

Members
  • Posts

    579
  • Joined

  • Last visited

  • Days Won

    58

Everything posted by Janlui

  1. Observa el correo y le falta un caracter del lado izquierdo (en algunos)
  2. Cada que vayas recorriendo el TXT , pregunta el largo de la fila y asi determinaras que tratamiento le drás. Pero sube tu archivo.
  3. Antoni no puede pensar en retiros... el es MODERADOR PERPETUO.
  4. Espero que este ejercicio te de una idea para tu primer paso. VENTA DE CAJAS.xlsx
  5. PODRIASD PROPORCIONAR LA VARIEDAD E SABORES?
  6. Puedes compartir tu archivo para dar un primer paso a la solución
  7. Tiene como tope 12 movimientos... dale una revisada a cada caso 34 Certificados.pdf
  8. Pero no comentas que hacen con ese certificado... primero todo en un archivo word, despues individual, no queda claro. Si finalmente cada Certificado lo mandas por mail... entonces que genere PDF individual.
  9. Si se hace sobre excel, sería mucho mas facil y esta seria un ejemplo de salida:
  10. Comentarios: - No hacer cambios en Plantilla - Hay un Botón para procesar la información - Al procesar cada Certificado, se abre Word, genera los cambios - Saldrá un mensaje si se desea continuar, para ello hay que renombrar el Word y Cerrar. Haz prueba y me comentas. Caso de ayuda excel 2.xlsm Plantilla.docx
  11. Felicidades por destacado nombramiento...
  12. Pregunta: En la base que proporcionas hay 34 Certificados.... quieres que se generen 34 archivos word? Observo que HUMBERTO PATRICIO PAVEZ SOTO tiene 15 registros... cual seria el numero máximo a preever.
  13. Otra posibilidad es que el certificado pase de excel a PDF
  14. Yo veo esto en el XML en esta factura 1549 y tu tienes otra cifra en tu hoja MKT
  15. Te refieres a esto? Ayuda grupos y subgrupos.xlsx
  16. Lo que veo que la factura 1549 tiene 4 importes y en tu Hoja MKT tienes solo 1 y no da la suma de la factura... es correcto?
  17. Los archivos XML deberán estar en la misma carpeta del archivo Excel. Sub EXTRAE() Sheets("READFACT").Select Range("A1:ZZ10000").ClearContents RUTA = "TEXT;" & ActiveWorkbook.Path & "\" Dim ARCH(2) As String ARCH(1) = "D77368930-KD033F0000001548.xml" ARCH(2) = "D77368930-KD033F0000001549.xml" For I = 1 To 2 Cells(1, I) = ARCH(I) ARCHIVO = ARCH(I) With ActiveSheet.QueryTables.Add(Connection:=RUTA & ARCHIVO, Destination:=Cells(4, I)) .Name = ARCHIVO .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 1252 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With Next End Sub Espero te sirva
  18. Sube tu archivo excel con tu macro y 2 ejemplos (archivos) XML
×
×
  • Create New...

Important Information

Privacy Policy