blog mail me! feed

好多年不用VBA.

June 1, 2009 at 7:39 pm · Filed under Program

貌似初中的时候, 上课的机房有个聊天室, 用VBA写了个刷屏的玩意儿。
再后来是高中, 在Excel里用VBA处理我爸的股票数据和绘图.

今天想把我的联系人倒入SIM卡里, 结果每次都出现Bad Parameter错误,
而且因为Outlook联系人分了First Name和Last Name, 存为SIM卡联系人有个该死的逗号,
所以准备重新整理下联系人, 把Last Name去掉, 名字全部放在First Name下头.

联系人居然有160个, -.-#
手工操作太崩溃了,
就对着VBA的对象浏览器看了半天, 顺便看了看帮助文档,
折腾了个宏来搞定这个苦工活.

不得不说VBA还是很强大的, 什么对象都能操作.
XD

话说好多年没写VB, 语法都快忘光了 -__-#

Sub concat_info()
    Dim ns As NameSpace
    Dim foldContact As Folder
    Dim itemContact As ContactItem

    Set ns = Application.GetNamespace("MAPI")
    Set foldContact = ns.GetDefaultFolder(olFolderContacts)

    For Each itemContact In foldContact.Items
        If itemContact.LastName <> "" Then
            itemContact.FirstName = itemContact.LastName & itemContact.FirstName
            itemContact.LastName = ""

            itemContact.Save
        End If

    Next
End Sub

Comments (3) ·· Tags: ·