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

最新推荐文章于 2021-06-11 12:39:56 发布

weixin_30807779

最新推荐文章于 2021-06-11 12:39:56 发布

阅读量328

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/nayu/p/5200561.html

本文介绍如何使用Outlook导出联系人信息至CSV文件，并通过VBA脚本和Excel操作清理数据，包括去除特定字符、提取邮箱前缀等步骤。

用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里调整格式提取到格式统一的邮箱前缀

转载于:https://www.cnblogs.com/nayu/p/5200561.html