EXchange导出通讯录提取url纯文本

最新推荐文章于 2018-06-12 17:26:25 发布

墨舞飞扬

最新推荐文章于 2018-06-12 17:26:25 发布

阅读量15

点赞数

本文链接：https://blog.csdn.net/weixin_43954843/article/details/137282103

版权

用outlook链接邮箱

文件-打开和导出--导出到文件--逗号分隔值--选择联系人--保存

保存为一个后缀为csv的文件

打开该文件选中该列

用替换功能删掉()符号

用vba脚本删掉汉字

Sub zhz3230()

    Dim rng As Range

    With CreateObject("VBSCRIPT.REGEXP")

        .Global = True

        .Pattern = "[^!-~]"

        For Each rng In ActiveSheet.UsedRange

            If Len(rng.Value) > 0 Then rng.Value = .Replace(rng.Value, " ")

            If Len(rng.Value) > 0 Then rng.Value = Replace(rng.Value, "  ", "")

            If Len(rng.Value) > 0 Then rng.Value = Replace(rng.Value, ".", "")

        Next

    End With

End Sub

再次用替换功能删掉@ 以及后面的字符

放到word里调整格式提取到格式统一的邮箱前缀