Hermoso código fuente del botón

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= "? y amplificador? cadena1? y amplificador? "& amppostid= "? y amplificador? 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