Código fuente vba extranjero

El código que enviaste no tiene ningún formato. Pruebe el siguiente código para rastrear la web:

Sub? text()

¿Atenuado? ¿XML/Número automático/Número automático? text= "? amp? trim(cell(j, 12).value)

. Enviar 'solicitud de publicación con el fin de obtener el nombre de la empresa de mensajería.

str1? =? Split(split(.responsetext,?" código com "":" ")(2),?"""")(0)

. ¿abierto? "Entiendo"? "/consulta?tipo= "? ¿amperio? cadena1? ¿amperio? "amppostid="? ¿amperio? trim(celda(j, 12).valor)

. ¿encabezado de solicitud? "X-Solicitado-Con",? " XMLHttpRequest "

. ¿encabezado de solicitud? "Referente",? "/"

. enviar

str2? =?. "responsetext" obtiene datos de logística.

Depurar. ¿Imprimir? str2

¿Y si? ¿Instrumento (str2, [Firma])? Entonces

Celda(j,14)?=?"Signed"

Celda(j,15)?=?Split(Split(str2," ftime ":" " ) (1),? """)(0)

¿Fin? Si

¿Fin? ? Con

NumberFormatLocal? =?" "

¿Aplicar? . enable event?=?real

submarino