今日学习目标

  • 学会操作Word文档
  • 学会操作PowerPoint
  • 了解Outlook自动化

知识点

跨应用操作

vba
' Word操作
Dim wdApp As Object
Set wdApp = CreateObject("Word.Application")

今日代码

vba
' Word操作
Dim wdApp As Object
Set wdApp = CreateObject("Word.Application")

练习题

  1. 从Excel数据生成Word报告
  2. 创建PowerPoint幻灯片
  3. 发送Outlook邮件

参考解答

1. 创建Word.Application对象，新建文档，将Excel数据逐行写入Word表格或段落。 2. 用PowerPoint.Application创建演示文稿，Slides.Add添加幻灯片，Shapes.AddChart创建图表。 3. 创建Outlook.Application，使用MailItem设置收件人、主题、正文，Send方法发送邮件。

由在线工具箱(www.vba.net)整理制作