Dim Str As String = "<SPBSJ*P:BSJGPS*N:14784384696*T:122.000.064.055,7788*D:122.000.064.055,0000*V:13,0300,,,0012375,1,23FR5717,手机号,车架号,1>"str = str.Replace("手机号", Tables("表A").Current("第一列")).Replace("车架号", Tables("表A").Current("第二列"))msgbox(str)