如何在Excel中调用Outlook，添加任务或日程

已经有好几个人询问如何在Excel中使用VBA调用Outlook或者其它Office应用程序，其实做法很简单，关键还是对于目标应用程序的对象模型的掌握和使用，这里有一个以前做过的例子，是在Excel中做一个计划表，然后调用Outlook，将计划添加到任务，因为代码是自己当时用的，所以比较粗糙。

Excel表格：


代码：

Public Sub WriteToOutlookTask()

    Dim Task As Outlook.TaskItem
    
    Dim rng As Range
    
    Dim i As Long
    For i = 3 To 34 Step 1
        If Range("B" & i).Value <> "" Then
            Set Task = Outlook.Application.CreateItem(olTaskItem)
            Task.Subject = "初记：" & Range("B" & i).Value & "-" & Range("C" & i).Value
            Task.StartDate = Range("A" & i).Value
            Task.DueDate = Range("A" & i).Value
            Task.Save
        End If
        If Range("D" & i).Value <> "" Then
            Set Task = Outlook.Application.CreateItem(olTaskItem)
            Task.Subject = "复习：" & Range("B" & i - 2).Value & "-" & Range("C" & i - 2).Value
            Task.StartDate = Range("A" & i).Value
            Task.DueDate = Range("A" & i).Value
            Task.Save
        End If
        If Range("E" & i).Value <> "" Then
            Set Task = Outlook.Application.CreateItem(olTaskItem)
            Task.Subject = "复习：" & Range("B" & i - 4).Value & "-" & Range("C" & i - 4).Value
            Task.StartDate = Range("A" & i).Value
            Task.DueDate = Range("A" & i).Value
            Task.Save
        End If
        
    Next
    
End Sub

完整的Excel文件下载：ExcelOutlook