Sub？文本()
暗淡？XML/自動編號/自動編號？text= "？& amp？修剪(單元格(j，12).值)
。發送' post請求，目的是獲取快遞公司的名稱。
str1？=?Split(拆分(。responsetext，？" com code " ":" ")(2)，？"""")(0)
。開放？“得到了”，？"/查詢？type= "？& amp？str1？& amp？“& amppostid= "？& amp？修剪(單元格(j，12).值)
。setrequestheader？“X-Requested-With”，？" XMLHttpRequest "
。setrequestheader？“Referer”，？"/"
。派遣
str2？=?。“responsetext”獲取物流數據。
調試。打印？str2
如果？儀器(str2，【簽收】)？然後
細胞(j，14)?=?"已簽收"
細胞(j，15)?=?Split(Split(str2，" ftime " ":" ")(1)，？"""")(0)
結束？如果
結束？如果
然後
結束？隨著
列(15)。NumberFormatLocal？=?" yyyy-mm-dd "
申請。屏幕更新？=?真實的
申請。啟用事件？=?真實的
結束？潛水艇