Function GetChrw(s) '把字符串转为 代码拼接 国际化处理 适应非简体中文系统vba环境
    Dim i, tmp
    For i = 1 To Len(s)
        tmp = tmp & " & Chrw(" & AscW(Mid(s, i, 1)) & ")"
    Next
    GetChrw = Mid(tmp, 3)
End Function