none
Como importar datos con archivo xml desde excel utilizando asignaciones y programado con macros en el editor Visual Basic RRS feed

  • Pregunta

  • Buenas noches estimados: estado re-buscando información por estos medios de la web y encontré un pequeño ejemplo empezando como se hace un archivo con formato xml; luego pegue el cogido en excel en visual basic ahí no hay problema seguílos pasos y me gusto es parecido lo que me gustaría hacer: ya que yo ingreso manualmente facturas electrónicas por ejemplo deseo saber:

    #autorizacion, ruc, # de estableciemto,  de secuencias # de factura,  fecha, subtotal, iva; pero no me sale por ningún lado la macro; es decir deseo que quede en forma de plantilla en excel pero la verdad nada me sale, si hay algunas persona tan amable que me pudiera orientar en esto le quedaría muy agradecida ya que me ayudaría muchísimo ya que casi no veo casi mucha información de algo parecido en al web.

    Este es el código xml. ejemplo 

    <?xml version="1.0" encoding="UTF-8" standalone="true"?>

    -<autorizacion>

    <estado>AUTORIZADO</estado>

    <numeroAutorizacion>0103201701201450400000423317902988176</numeroAutorizacion>

    <fechaAutorizacion>2017-03-01T16:33:08-05:00</fechaAutorizacion>

    <ambiente>PRODUCCIÓN</ambiente>


    -<comprobante>

    <![CDATA[<factura id="comprobante" version="1.1.0"> <infoTributaria> <ambiente>2</ambiente> <tipoEmision>1</tipoEmision> <razonSocial>KERAMIKOS S.A.</razonSocial> <ruc>1790298817001</ruc> <claveAcceso>0103201701179029881700120145040000042331133092213</claveAcceso> <codDoc>01</codDoc> <estab>014</estab> <ptoEmi>504</ptoEmi> <secuencial>000004233</secuencial> <dirMatriz>Av.H. De Verdeloma 9-22</dirMatriz> </infoTributaria> <infoFactura> <fechaEmision>01/03/2017</fechaEmision> <dirEstablecimiento>Av. Juan Tanca Marengo Km 2.5.</dirEstablecimiento> <contribuyenteEspecial>3257</contribuyenteEspecial> <obligadoContabilidad>SI</obligadoContabilidad> <tipoIdentificacionComprador>04</tipoIdentificacionComprador> <razonSocialComprador>ACOSTA ROCAFUERTE KAREN ESTEFA</razonSocialComprador> <identificacionComprador>0926152331001</identificacionComprador> <direccionComprador>10 DE AGOSTO 13-25 Y AV. MACHA</direccionComprador> <totalSinImpuestos>645.12</totalSinImpuestos> <totalDescuento>64.51</totalDescuento> <totalConImpuestos> <totalImpuesto> <codigo>2</codigo> <codigoPorcentaje>3</codigoPorcentaje> <descuentoAdicional>64.51</descuentoAdicional> <baseImponible>645.12</baseImponible> <valor>81.29</valor> </totalImpuesto> </totalConImpuestos> <propina>0.00</propina> <importeTotal>661.90</importeTotal> <moneda>DOLAR</moneda> <pagos> <pago> <formaPago>01</formaPago> <total>0.01</total> <plazo>0120</plazo> <unidadTiempo>dias</unidadTiempo> </pago> <pago> <formaPago>20</formaPago> <total>661.89</total> <plazo>0120</plazo> <unidadTiempo>dias</unidadTiempo> </pago> </pagos> </infoFactura> <detalles> <detalle> <codigoPrincipal>0854002404</codigoPrincipal> <descripcion>8X25 LIST VARIOS PZ</descripcion> <cantidad>1008.00</cantidad> <precioUnitario>0.6400</precioUnitario> <descuento>0.00</descuento> <precioTotalSinImpuesto>645.12</precioTotalSinImpuesto> <detallesAdicionales> <detAdicional nombre="Calidad" valor="PRM"></detAdicional> </detallesAdicionales> <impuestos> <impuesto> <codigo>2</codigo> <codigoPorcentaje>3</codigoPorcentaje> <tarifa>14</tarifa> <baseImponible>645.12</baseImponible> <valor>90.32</valor> </impuesto> </impuestos> </detalle> </detalles> <infoAdicional> <campoAdicional nombre="Direccion">10 DE AGOSTO 13-25 Y AV. MACHA</campoAdicional> <campoAdicional nombre="Telefono">042-532609</campoAdicional> <campoAdicional nombre="Comprobante">KG-17204</campoAdicional> <campoAdicional nombre="Entrega">NN-60694</campoAdicional> <campoAdicional nombre="Pedido">PE-42529</campoAdicional> <campoAdicional nombre="User">dmm</campoAdicional> <campoAdicional nombre="Hora">11:51</campoAdicional> </infoAdicional> <ds:Signature xmlns:ds="http://www.w3.org/2000/09/xmldsig#" xmlns:etsi="http://uri.etsi.org/01903/v1.3.2#" Id="Signature576275"> <ds:SignedInfo Id="Signature-SignedInfo56173"> <ds:CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"></ds:CanonicalizationMethod> <ds:SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1"></ds:SignatureMethod> <ds:Reference Id="SignedPropertiesID715285" Type="http://uri.etsi.org/01903#SignedProperties" URI="#Signature576275-SignedProperties118349"> <ds:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"></ds:DigestMethod> <ds:DigestValue>s8y5evPUFtF9AKf2Esbja3KvU50=</ds:DigestValue> </ds:Reference> <ds:Reference URI="#Certificate1570121"> <ds:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"></ds:DigestMethod> <ds:DigestValue>EkVUgatIdgb/mX94pEw/lyoDzxQ=</ds:DigestValue> </ds:Reference> <ds:Reference Id="Reference-ID-804259" URI="#comprobante"> <ds:Transforms> <ds:Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"></ds:Transform> </ds:Transforms> <ds:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"></ds:DigestMethod> <ds:DigestValue>vvpmnwRDVQrS09IO4kiXYeOjB+k=</ds:DigestValue> </ds:Reference> </ds:SignedInfo> <ds:SignatureValue Id="SignatureValue481837"> wES/H0DLkV/PxFUSwXadgloaBBYKOHACg3OHAWbB6xply2fit3xxlfPQzAnrJdle7HsXNegRQ6gG p3/loRKhbxnb2cSAfOEq5/dMXek+MoC5ycQ6HnPqkI5zlWatCs7K3FpncRtLOAX/G3qtS4e4zYzK pVFNSchSQOF3vsacuH/NtZeBBmSCtZP20Uf0SiOoi0nOIbSEIGjkhUN7Vllcy+JrcqMIyO808tBE Wsam0UUJji3nkiHAPfdm9foGoHmPpke0qBWJPfMKxQ5N6/PWfxDpPTbXl9MD8tevQvg8kMfwqT2n DiGjI7fhFuD+WDkQQmb7ajbwsKXMJ1De973Deg== </ds:SignatureValue> <ds:KeyInfo Id="Certificate1570121"> <ds:X509Data> <ds:X509Certificate> MIIJ+DCCB+CgAwIBAgIETkbAQDANBgkqhkiG9w0BAQsFADCBoTELMAkGA1UEBhMCRUMxIjAgBgNV BAoTGUJBTkNPIENFTlRSQUwgREVMIEVDVUFET1IxNzA1BgNVBAsTLkVOVElEQUQgREUgQ0VSVElG SUNBQ0lPTiBERSBJTkZPUk1BQ0lPTi1FQ0lCQ0UxDjAMBgNVBAcTBVFVSVRPMSUwIwYDVQQDExxB QyBCQU5DTyBDRU5UUkFMIERFTCBFQ1VBRE9SMB4XDTE2MDcxMjEzMTQyMloXDTE4MDcxMjEzNDQy MlowgbQxCzAJBgNVBAYTAkVDMSIwIAYDVQQKExlCQU5DTyBDRU5UUkFMIERFTCBFQ1VBRE9SMTcw NQYDVQQLEy5FTlRJREFEIERFIENFUlRJRklDQUNJT04gREUgSU5GT1JNQUNJT04tRUNJQkNFMQ4w DAYDVQQHEwVRVUlUTzE4MBEGA1UEBRMKMDAwMDE2NjM1NjAjBgNVBAMTHE1BUklPIEZFTElQRSBD T1NUQSBTVFJBQ1VaWkkwggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIBAQDLP7jf5gx5PrcZ LXZhRM8yhZkFVr0oNvW54md+Cj4mzNmyxOwRppxVQAtNlItmgGd6ZhLZT38kLk9462yVA7PYNuxg 4fH59AKlkR6M4D3Fa1EfAIuOnSdVPNbHkaLwON2IqFufdmAPS4mYaGdEU/670PEy3yLyg38zCFkK iHDNGWdxfXVVHRNCCzz0IeTX+yxj+/qTfEzloLmuq/Rc8I65Z/IjCjU9l9qnVy3QjIUOBRh9nF0b 1WKTC7M6Jx20eC3yiUZVSVblSi2Y3H5ThO7yjQXnMlij1FXHklS782CbSRyg0caPs6RXgNEzmnf/ n6o0N0nVXQlhPvzD4BbW3F6XAgMBAAGjggUhMIIFHTALBgNVHQ8EBAMCB4AwZwYDVR0gBGAwXjBc BgsrBgEEAYKoOwICATBNMEsGCCsGAQUFBwIBFj9odHRwOi8vd3d3LmVjaS5iY2UuZWMvcG9saXRp Y2EtY2VydGlmaWNhZG8vcGVyc29uYS1qdXJpZGljYS5wZGYwgZEGCCsGAQUFBwEBBIGEMIGBMD4G CCsGAQUFBzABhjJodHRwOi8vb2NzcC5lY2kuYmNlLmVjL2VqYmNhL3B1YmxpY3dlYi9zdGF0dXMv b2NzcDA/BggrBgEFBQcwAYYzaHR0cDovL29jc3AxLmVjaS5iY2UuZWMvZWpiY2EvcHVibGljd2Vi L3N0YXR1cy9vY3NwMBwGCisGAQQBgqg7AwoEDhMMS0VSQU1JS09TIFNBMB0GCisGAQQBgqg7AwsE DxMNMTc5MDI5ODgxNzAwMTAaBgorBgEEAYKoOwMBBAwTCjA5MDU1MzAzNTgwHAYKKwYBBAGCqDsD AgQOEwxNQVJJTyBGRUxJUEUwFQYKKwYBBAGCqDsDAwQHEwVDT1NUQTAZBgorBgEEAYKoOwMEBAsT CVNUUkFDVVpaSTAfBgorBgEEAYKoOwMFBBETD0dFUkVOVEUgR0VORVJBTDA+BgorBgEEAYKoOwMH BDATLkFWIEhFUk9FUyBERSBWRVJERUxPTUEgOTIyIFkgRlJBTkNJU0NPIFRBTUFSSVowGQYKKwYB BAGCqDsDCAQLEwkwNzI4MzYxNzEwFgYKKwYBBAGCqDsDCQQIEwZDdWVuY2EwFwYKKwYBBAGCqDsD DAQJEwdFQ1VBRE9SMCAGCisGAQQBgqg7AzMEEhMQU09GVFdBUkUtQVJDSElWTzAjBgNVHREEHDAa gRhhbmFmYWljYW5AY2VybW9zYS5jb20uZWMwggHfBgNVHR8EggHWMIIB0jCCAc6gggHKoIIBxoaB 1WxkYXA6Ly9iY2VxbGRhcHN1YnAxLmJjZS5lYy9jbj1DUkwzMzksY249QUMlMjBCQU5DTyUyMENF TlRSQUwlMjBERUwlMjBFQ1VBRE9SLGw9UVVJVE8sb3U9RU5USURBRCUyMERFJTIwQ0VSVElGSUNB Q0lPTiUyMERFJTIwSU5GT1JNQUNJT04tRUNJQkNFLG89QkFOQ08lMjBDRU5UUkFMJTIwREVMJTIw RUNVQURPUixjPUVDP2NlcnRpZmljYXRlUmV2b2NhdGlvbkxpc3Q/YmFzZYY0aHR0cDovL3d3dy5l Y2kuYmNlLmVjL0NSTC9lY2lfYmNlX2VjX2NybGZpbGVjb21iLmNybKSBtTCBsjELMAkGA1UEBhMC RUMxIjAgBgNVBAoTGUJBTkNPIENFTlRSQUwgREVMIEVDVUFET1IxNzA1BgNVBAsTLkVOVElEQUQg REUgQ0VSVElGSUNBQ0lPTiBERSBJTkZPUk1BQ0lPTi1FQ0lCQ0UxDjAMBgNVBAcTBVFVSVRPMSUw IwYDVQQDExxBQyBCQU5DTyBDRU5UUkFMIERFTCBFQ1VBRE9SMQ8wDQYDVQQDEwZDUkwzMzkwKwYD VR0QBCQwIoAPMjAxNjA3MTIxMzE0MjJagQ8yMDE4MDcxMjEzNDQyMlowHwYDVR0jBBgwFoAUGPnw ++YyHJlmOSrKi7JpfUknv84wHQYDVR0OBBYEFAX581KnHrPus3Zby3O2baoN27dKMAkGA1UdEwQC MAAwGQYJKoZIhvZ9B0EABAwwChsEVjguMQMCBLAwDQYJKoZIhvcNAQELBQADggIBAB7AgMGOhAW4 Ed9v7+IStAsoVq1X78wn7bsBJ1wIBK0MCKed9HlsmQWJQdMCw5Unil86FGooiYpEITk7Q0lDop/I qnBAY/eFu/HGf39r406aOUxhoCusLI0wvqgRKAbhkUyx9MducKv3bAiuGOQBc6sx2oWrZHSF9ZrP U1m+sfhxavpxErczMgFUwYyc6m+ILYo9VrsYLiiqwcQNbKu7tJxnTiGfo8VHCvEieXw+oQ49xoVK WT6JOElp+58odDn+3sFlf0PH1MOEQl7LVtElroCf6iSSjr8uQ30GmOaCj1xPeUukEVu/GwIidEQQ H+qbcBge4RyQNHATnXyyuOKUFVq049yRMKfR9jJCi4uKbgpmObUgvuAN8lOiQT5F6qblMNLmMB+i c4AjgnG4XeTP25w/l2mg+uImCDorSrE1I3p1YhGnSLXf6NlU9rIfo1bsfL5jyIOmao3aQdVbtDe7 uwiHJMT7W6XpjvsmURl6TxCnPv/Qtn5rL6TV+R1lfyBd82V8d5Wo3zscVqm2R5JQ9o+afWkTpssC 7DAvIx4nn10vngVT0Ty+KTLO1gN2PNiW2unFCjF12wNa+iiDF9z/xaL0OHA3s6Ldx8nIpAHTmC9p 8NycpZZDzbr674lzP33AivBdDapyjaEmBXuyFgpLd9vR99mSQA3KEMlXTX6E3VYX </ds:X509Certificate> </ds:X509Data> <ds:KeyValue> <ds:RSAKeyValue> <ds:Modulus> yz+43+YMeT63GS12YUTPMoWZBVa9KDb1ueJnfgo+JszZssTsEaacVUALTZSLZoBnemYS2U9/JC5P eOtslQOz2DbsYOHx+fQCpZEejOA9xWtRHwCLjp0nVTzWx5Gi8DjdiKhbn3ZgD0uJmGhnRFP+u9Dx Mt8i8oN/MwhZCohwzRlncX11VR0TQgs89CHk1/ssY/v6k3xM5aC5rqv0XPCOuWfyIwo1PZfap1ct 0IyFDgUYfZxdG9VikwuzOicdtHgt8olGVUlW5UotmNx+U4Tu8o0F5zJYo9RVx5JUu/Ngm0kcoNHG j7OkV4DRM5p3/5+qNDdJ1V0JYT78w+AW1txelw== </ds:Modulus> <ds:Exponent>AQAB</ds:Exponent> </ds:RSAKeyValue> </ds:KeyValue> </ds:KeyInfo> <ds:Object Id="Signature576275-Object46952"><etsi:QualifyingProperties Target="#Signature576275"><etsi:SignedProperties Id="Signature576275-SignedProperties118349"><etsi:SignedSignatureProperties><etsi:SigningTime>2017-03-01T16:32:25-05:00</etsi:SigningTime><etsi:SigningCertificate><etsi:Cert><etsi:CertDigest><ds:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"></ds:DigestMethod><ds:DigestValue>mpF17Z68LhzqfVwVXRgaFbSdyTM=</ds:DigestValue></etsi:CertDigest><etsi:IssuerSerial><ds:X509IssuerName>CN=AC BANCO CENTRAL DEL ECUADOR,L=QUITO,OU=ENTIDAD DE CERTIFICACION DE INFORMACION-ECIBCE,O=BANCO CENTRAL DEL ECUADOR,C=EC</ds:X509IssuerName><ds:X509SerialNumber>1313259584</ds:X509SerialNumber></etsi:IssuerSerial></etsi:Cert></etsi:SigningCertificate></etsi:SignedSignatureProperties><etsi:SignedDataObjectProperties><etsi:DataObjectFormat ObjectReference="#Reference-ID-804259"><etsi:Description>contenido comprobante</etsi:Description><etsi:MimeType>text/xml</etsi:MimeType></etsi:DataObjectFormat></etsi:SignedDataObjectProperties></etsi:SignedProperties></etsi:QualifyingProperties></ds:Object></ds:Signature></factura>]]>

    </comprobante>

    <mensajes/>

    </autorizacion>

    domingo, 14 de mayo de 2017 4:59

Todas las respuestas

  • Buenos días a todos, bueno ya que nadie a ?respondido¡ tal ves no me entendieron encontré un link de ayuda que ofrece esta página es algo si-miliar con lo que deseo hacer; si alguien necesita o le ayuda en algo les dejo la dirección de pagina: ya veo que no hay mucha información acerca de este tema.

    https://msdn.microsoft.com/es-es/library/office/gg469857(v=office.14).aspx#odc_office14_qn_CreateBackstageCustomTab_CreatetheDocuments

    miércoles, 17 de mayo de 2017 16:03