Saltar al contenido
Te enseño 7 de los trucos que me permitieron trabajar 2 horas menos al día >>>

Ayuda con macro

CBAEZ

Por CBAEZ
en Temas Abandonados

Recommended Posts

CBAEZ Novato

CBAEZ

publicado
publicado

Tengo la siguiente macro pero no logro hacer que me deje de poner el nombre del la ruta del archivo, alguien que me pueda ayudar 

Sub Ruta_CFDI()
Dim fs, carpeta, archivo, subcarpeta As Object
contador = 2
Set fs = CreateObject("Scripting.FileSystemObject")
    
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then
Ruta = .SelectedItems(1)
End If
End With
      
If Ruta = "" Then
 Exit Sub
End If
     
Set carpeta = fs.GetFolder(Ruta)
     
For Each archivo In carpeta.Files
 If Right(archivo, 4) = ".xml" Then
  Range("AB" & contador).value = Ruta & "\" & archivo.Name
  contador = contador + 1
 End If
Next
     
If contador = 1 Then
MsgBox "No se encontro ningún archivo *.XML" & Chr(10) & Ruta, vbCritical, "Importar datos CFDI"
End If
Call Lectura_CFDI
End Sub

Sub Lectura_CFDI()
Dim doc As MSXML2.DOMDocument60
Dim objXMLDOMNodeList As MSXML2.IXMLDOMNodeList
Dim intIndiceNodo As Integer
Dim Concepto As String

Set doc = New MSXML2.DOMDocument60
Set r = Range("p1").CurrentRegion
filas = r.Rows.Count
 
For i = 5 To filas
    
    doc.Load ("" & Cells(i, 28) & "")
    
    
    Cells(i, 8) = 0
    Cells(i, 9) = 0
    Cells(i, 10) = 0
     
    
    Set lists = doc.DocumentElement

    
    EmisorRFC = lists.ChildNodes(Emisor).getAttribute("Rfc") & lists.ChildNodes(Emisor).getAttribute("rfc")
    EmisorNobmre = lists.ChildNodes(Emisor).getAttribute("nombre") & lists.ChildNodes(Emisor).getAttribute("Nombre")
    EmisorRegimen = lists.ChildNodes(Emisor).getAttribute("RegimenFiscal")
    ReceptorRFC = lists.ChildNodes(1).getAttribute("rfc") & lists.ChildNodes(1).getAttribute("Rfc")
    ReceptorNobmre = lists.ChildNodes(1).getAttribute("nombre") & lists.ChildNodes(1).getAttribute("Nombre")
    ReceptorUso = lists.ChildNodes(1).getAttribute("UsoCFDI")
    IVA = lists.ChildNodes(3).getAttribute("totalImpuestosTrasladados") & lists.ChildNodes(3).getAttribute("TotalImpuestosTrasladados")

    Set objXMLDOMNodeList = lists.ChildNodes

        For intIndiceAtributo = 0 To objXMLDOMNodeList.Item(2).ChildNodes.Length - 1
        Concepto = Concepto & lists.ChildNodes(2).ChildNodes(intIndiceAtributo).getAttribute("descripcion") & "\" & lists.ChildNodes(2).ChildNodes(intIndiceAtributo).getAttribute("Descripcion") & "\"
        Next intIndiceAtributo
        
        For intIndiceAtributo = 0 To objXMLDOMNodeList.Item(3).ChildNodes.Length - 1
            If lists.ChildNodes(3).ChildNodes(intIndiceAtributo).nodeName = "cfdi:Retenciones" Then
                If lists.ChildNodes(3).ChildNodes(intIndiceAtributo).ChildNodes(intIndiceAtributo).getAttribute("Impuesto") = "IVA" Then
                 RetIVA = lists.ChildNodes(3).ChildNodes(intIndiceAtributo).ChildNodes(0).getAttribute("Importe")
                 On Error Resume Next
                 RetISR = lists.ChildNodes(3).ChildNodes(intIndiceAtributo).ChildNodes(1).getAttribute("Importe")
                 Cells(i, 9) = RetISR
                 Cells(i, 10) = RetIVA
                RetISR = 0
                RetIVA = 0
                Else
                On Error Resume Next
                 RetIVA = lists.ChildNodes(3).ChildNodes(intIndiceAtributo).ChildNodes(1).getAttribute("Importe")
                 RetISR = lists.ChildNodes(3).ChildNodes(intIndiceAtributo).ChildNodes(0).getAttribute("Importe")
                 Cells(i, 12) = RetISR
                 Cells(i, 13) = RetIVA
                RetISR = 0
                RetIVA = 0
                End If
            End If
        Next intIndiceAtributo

        For intIndiceAtributo = 0 To objXMLDOMNodeList.Item(4).ChildNodes.Length - 1
            If Not IsNull(lists.ChildNodes(4).ChildNodes(intIndiceAtributo).getAttribute("TUA")) Then
            TUA = lists.ChildNodes(4).ChildNodes(intIndiceAtributo).getAttribute("TUA")
            End If
            If Not IsNull(lists.ChildNodes(4).ChildNodes(intIndiceAtributo).getAttribute("UUID")) Then
            Folio = lists.ChildNodes(4).ChildNodes(intIndiceAtributo).getAttribute("UUID")
            End If
            If Not IsNull(lists.ChildNodes(4).ChildNodes(intIndiceAtributo).getAttribute("TotaldeTraslados")) Then
            ISH = lists.ChildNodes(4).ChildNodes(intIndiceAtributo).getAttribute("TotaldeTraslados")
            End If
            If Not IsNull(lists.ChildNodes(4).ChildNodes(intIndiceAtributo).getAttribute("FechaTimbrado")) Then
            FechaTimbrado = lists.ChildNodes(4).ChildNodes(intIndiceAtributo).getAttribute("FechaTimbrado") & lists.ChildNodes(4).ChildNodes(intIndiceAtributo).getAttribute("FechaTimbrado")
            End If
            If Not IsNull(lists.ChildNodes(4).ChildNodes(intIndiceAtributo).getAttribute("RfcProvCertif")) Then
            RfcProvCertif = lists.ChildNodes(4).ChildNodes(intIndiceAtributo).getAttribute("RfcProvCertif")
            End If
        Next intIndiceAtributo

    Cells(i, 2) = doc.DocumentElement.getAttribute("serie") & doc.DocumentElement.getAttribute("Serie")
    Cells(i, 3) = doc.DocumentElement.getAttribute("Folio") & doc.DocumentElement.getAttribute("folio")
    Cells(i, 4) = ReceptorRFC
    Cells(i, 5) = ReceptorNobmre
    Cells(i, 6) = EmisorRFC
    Cells(i, 7) = EmisorNobmre
    Cells(i, 8) = Folio
    Cells(i, 9) = Concepto
    Cells(i, 10) = doc.DocumentElement.getAttribute("subTotal") & doc.DocumentElement.getAttribute("SubTotal")
    Cells(i, 11) = IVA
    Cells(i, 14) = doc.DocumentElement.getAttribute("total") & doc.DocumentElement.getAttribute("Total")
    Cells(i, 15) = doc.DocumentElement.getAttribute("fecha") & doc.DocumentElement.getAttribute("Fecha")
    Cells(i, 16) = doc.DocumentElement.getAttribute("fecha") & doc.DocumentElement.getAttribute("FechaTimbrado")
    Cells(i, 17) = doc.DocumentElement.getAttribute("tipoDeComprobante") & doc.DocumentElement.getAttribute("TipoDeComprobante")
    Cells(i, 18) = doc.DocumentElement.getAttribute("CondicionesDePago") & doc.DocumentElement.getAttribute("CondicionesDePago")
    Cells(i, 19) = doc.DocumentElement.getAttribute("FormaPago")
    Cells(i, 20) = doc.DocumentElement.getAttribute("metodoDePago") & doc.DocumentElement.getAttribute("MetodoPago")
    Cells(i, 21) = EmisorRegimen
    Cells(i, 22) = ReceptorUso
    Cells(i, 23) = doc.DocumentElement.getAttribute("Moneda")
    Cells(i, 24) = doc.DocumentElement.getAttribute("LugarExpedicion")
    Cells(i, 25) = doc.DocumentElement.getAttribute("NoCertificado") & doc.DocumentElement.getAttribute("noCertificado")
    Cells(i, 26) = doc.DocumentElement.getAttribute("version") & doc.DocumentElement.getAttribute("Version")
    Cells(i, 27) = RfcProvCertif
    
    

    ReceptorRFC = ""
    ReceptorNobmre = ""
    EmisorRFC = ""
    EmisorNobmre = ""
    Folio = ""
    Concepto = ""
    If Cells(i, 11) = "" Then
    Cells(i, 11) = 0
    End If
    If Cells(i, 12) = "" Then
    Cells(i, 12) = 0
    End If
Next
Set doc = Nothing
MsgBox "Mario A. Rodríguez" & Chr(10) & "importado"

 

Héctor Miguel Gran colaborador

Héctor Miguel

publicado
publicado
Hace 13 horas, CBAEZ dijo:

Tengo la siguiente macro pero no logro hacer que me deje de poner el nombre del la ruta del archivo, alguien que me pueda ayudar

la linea que pone el nombre del archivo esta en este bloque de instrucciones del primer procedimiento:

Hace 13 horas, CBAEZ dijo:

For Each archivo In carpeta.Files
 If Right(archivo, 4) = ".xml" Then
  Range("AB" & contador).value = Ruta & "\" & archivo.Name
  contador = contador + 1
 End If
Next

PERO... OJO: NO la puedes eliminar porque es necesaria para el segundo procedimiento en esta parte:

Hace 13 horas, CBAEZ dijo:

For i = 5 To filas
    
    doc.Load ("" & Cells(i, 28) & "")

la columna 28 es la columna "AB", de donde se toma el nombre del *.xml para extraer los datos :(

analiza otras propuestas en esta conversación: Extraer nodos de los xml version 3.2 y 3.3 (Mex)

saludos,
hector.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • Sí
      • No
      • Ni me he fijado en ellos

  • Current Donation Goals

    • Mantenimiento de la comunidad
      Raised 0.00 EUR of 130.00 EUR target

  • Archivos

  • Estadísticas de descargas

    • Archivos
      189
    • Comentarios
      99
    • Revisiones
      29

  • Crear macros Excel

  • Mensajes

    • Tilin2023
      BUSCAR VALOR , ENCONTRAR TODOS LOS RESULTADOS Y DAR COMO RESPUESTA EN UNA CELDA

      Por Tilin2023 · publicado

      LO MAXIMO !!, MUCHAS GRACIAS MAESTROS. MIL GRACIAS.
    • Israel Cassales
      Ayuda con Formula para archivo de Producción

      Por Israel Cassales · publicado

      Hola, Parece un Kardex aunque al final me he perdido, entendí que necesita sumar las producciones siempre y cuando no pasen un punto del día. Tal vez algún Maestro o usuario avanzado pueda aportar algo con la información que ha compartido, pero en mi caso no comprendí por qué si  el prod1 tuvo una producción de 90 entonces cómo definió restarle ese 78, ¿es por qué tiene un NO en el "cumple"? Y luego termina en -12 porque le restó 24 que tampoco pude deducir cómo se determinaron. Le recomiendo hacer un ejemplo de un solo ITEM que deba ser afectado por las reglas que compartió y con los resultados que serían los correctos esperados.
    • sretamalb
      Ayuda con Formula para archivo de Producción

      Por sretamalb · publicado

      Hola Buenas Noches, Me podrán ayudar a resolver un problema con una planilla que tengo, les comento brevemente. Tengo un archivo que cuenta con 2 hojas, la primera se llama "Movimientos" que básicamente muestra los productos con quiebres que se presentan y la hoja "Producción" que como su nombre lo dice son las producciones de cada producto según fecha de creación. Lo que necesito es lo siguiente: Cada vez que agregue una producción en la hoja "producción", debo ingresar el código creado su cantidad y lote respetivamente, además de la fecha en que se realiza la producción, en caso que sea mayor a las 12:00 se considera PM sino AM. Lo complejo es acá en la otra hoja llamada Movimientos: Esta hoja contiene una columna que se llama "Saldo", que básicamente es la diferencia de lo producido vs el quiebre en esa fecha. Una columna llamada "Cumple", que significa que ese pedido lleva si o no el producto con quiebre. Y una columna "Se preparo", que es si el pedido se preparo o no. Lo complicado viene acá es que si la fecha de la producción que ingrese en la hoja "Produccion", se hace después de la fecha de la hoja movimientos no me debe contar esa producción para efecto de la columna Saldos, si la fecha es igual o menor si se considera y ese saldo que queda disponible se puede ocupar para futuros ingresos de pedidos. Otra conducción es que las producciones siempre se deben asignar al pedido más antiguo de ese código salvo que la fecha de entrega ya haya pasado. La columna "Cumple" es básicamente para poder generar un KPI donde me indique cuales producciones se cumplieron con el plazo y cuales No. Espero me puedan ayudar ya que tengo la siguiente formula pero no sirve ya que me toma las unidades totales y no cumple con la restricción del horario. =SUMAR.SI(Produccion!A:A; $A2; Produccion!C:C) - SUMAR.SI.CONJUNTO($E$2:$E2; $A$2:$A2; A2)) Muchas gracias. Ejemplo..xlsx
    • Victor7
      BUSCAR VALOR , ENCONTRAR TODOS LOS RESULTADOS Y DAR COMO RESPUESTA EN UNA CELDA

      Por Victor7 · publicado

      Hola a ambos, Prueba con: =BYROW(G5:G6;LAMBDA(x;UNIRCADENAS(" - ";1;FILTRAR(E5:E10;B5:B10=x)))) Saludos,
    • DiegoLG
      BUSCAR VALOR , ENCONTRAR TODOS LOS RESULTADOS Y DAR COMO RESPUESTA EN UNA CELDA

      Por DiegoLG · publicado

      Si tienes office 365 puedes usar algo como FILTER ó TEXTJOIN y si no tienes, entonces se puede jugar con las formulas, pero no te recomiendo mucho si son muchos datos, de todas maneras te dejo una fórmula y en vba, ya tu decides cual ocupar, vale Saludos BUSCAR.xlsm

  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.