6.2 与Office生态协同

6.2 与 Office 生态协同

本节摘要：Access 的独特红利在于与 Word、Excel、Outlook 同门共居：数据源一键交付邮件合并，汇总一键变成透视底稿，提醒自动飞进收件箱。本节给出三套拿来即改的联动模板并标明各自的适用场合。

选 Access 的很多团队，真实动因其实是这一节的内容。数据孤岛时代最贵的是人肉搬运：从数据库抄到 Word、把统计结果誊进 Excel、照着名单一个个发通知。同在 Office 屋檐下意味着这些墙全都提前拆好了。

一、模板一：Word 邮件合并，批量文书自动化

场景：华彩每月要给欠款客户寄催款函。过去小王开一封模板、填一次户名金额，一家五分钟。Access 姿势如下：

1. 先准备数据出口——建查询"本月催款名单"，输出户名、联系人、欠款额、对账截止日这几列；
2. Word 里起草公函正文，开始邮件合并选项卡选"信函"，收件人选"使用现有列表"，数据源直接指向 Access 库里那个查询（注意文件类型下拉要切到"Access 数据库"）；
3. 在正文的占位处插入合并域：客户名称插入称呼位、欠款额插到金额句、日期字段插到落款段；
4. "预览结果"逐家翻查一遍——重点看金额格式和空值表现；最后"完成并合并"选择打印或生成全部独立文档。

第一次配置十分钟，此后每月只做两件事：跑一下查询刷新名单，点一下合并按钮。二十家客户的函件三分钟出齐。

两个实战细节让它更稳：金额显示加格式开关 { MERGEFIELD 欠款额 \# "#,##0.00" } 避免出现一长串小数；日期字段同样有专属格式开关，不设的话会按美式月日年给你表演国际玩笑。

二、模板二：喂给 Excel 做深度分析

老板娘的丈夫是 Excel 重度患者，坚信一切分析都要回到工作簿。与其说服他，不如供粮。Access 这边两条管道可选：

• 手动日常线：导出组点 Excel 按钮，选定格式化版本，每次刷新耗时十秒；
• 半自动固定线：在目标工作簿的连接属性里配置指向本库查询的定期刷新，打开文件即最新数——注意这只适合文件在同一台机器或稳定网络路径的场景。

效果叠加后华彩的实际分工变成了这样：明细、约束、口径维护住在 Access 里；趋势图、假设分析、模拟运算表留给 Excel。两边各干擅长的事，再没人问"为什么你们俩做出来的数不一样"——因为源头只剩一个。

三、模板三：Outlook 自动发件机器人

5.3 结尾答应过的完整案例来了：低库存超过三天的货品，让系统自己写邮件提醒采购员。核心代码一段拿下：

Sub 发缺货提醒()
    Dim rst As DAO.Recordset
    Dim appOut As Object, mailIt As Object   ' 后期绑定 不勾引用也能跑
    
    On Error GoTo 兜底
    
    Set appOut = CreateObject("Outlook.Application")
    Set rst = CurrentDb.OpenRecordset(
        "SELECT 品名 安全库存 现有量 FROM 货品 WHERE 现有量 < 安全库存",
        dbOpenSnapshot)
    
    Do While Not rst.EOF
        Set mailIt = appOut.CreateItem(0)            ' 0 代表普通邮件
        mailIt.To = "purchasing@huacai.demo"
        mailIt.Subject = "补货提醒 " & rst!品名
        mailIt.Body = "现有量 " & Nz(rst!现有量, 0) & _
                      " 已低于安全线 " & rst!安全库存 & _ 
                      " 请安排补货。 ——库存管家"
        mailIt.Send                                  ' 直接入发件箱
        rst.MoveNext
    Loop

收尾:
    Set mailIt = Nothing: Set appOut = Nothing
    Exit Sub
兜底:
    MsgBox "邮件环节出错 请检查收件箱程序是否可用"
End Sub
​

值得圈点的工程细节有三处。后期绑定：用 CreateObject 创建对象而不是先去引用对话框打勾，好处是机器上就算装了不同版本的 Office 都不会因引用版本错位而崩；Send 与 Display 的分寸：Send 直接投递适合无人值守，调试阶段请先用 Display 弹出来人工过目——全自动系统的第一原则是可观察；批量信的礼貌：几十封连发建议在循环里隔批 DoEvents 放缓节奏，别触发邮箱服务方的频率保护。

把这段挂上 AutoExec 宏（5.1 学的名字魔法），再配一个每日条件判断，一个晨报机器人就诞生了——采购部到现在都以为我给他们开了什么高价外挂。

四、边界提示：别把全家桶当服务器

协同虽好，三个越界动作要拦住：

1. 别让多个用户同时共享操作同一份 Word 合并主文档——那是文档不是并发资源，复制分发即可解决；
2. 别用链回库的工作簿承担关键决策——万一断网或移库，数字停在旧时刻还看起来一切正常，比彻底没数危险；
3. 自动发件的触发永远留人工总开关——一条 SetWarnings 或一个布尔变量的事故成本极低，漏发错发的信任成本极高。

五、三个协同现场的高频追问

问：Word 里金额合并出来一长串小数怎么办？ 按下 Alt 加 F9 显示域代码，在金额域后面补上格式开关（\# "0.00"），日期用 \@ "yyyy年M月d日"，数码立刻变规矩。这两个开关是邮件合并界的常用小抄，建议连同域快捷键一起打印贴屏。

问：备注为空时函件里留下一行尴尬的空白怎么办？ 问题源头在查询——合并文档只会照搬数据，清洗要在数据侧完成：查询里加一个表达式列 IIf(Len(Nz(备注,""))=0,"","备 注：" & 备注)，空白时整行退场。

问：老板新装的 BI 工具能不能直接连我们的库？ 第 8 章会讲直连通道；眼下先提醒一句口径问题——BI 自由探索出来的统计与系统里盖章的报表若对不上号，信任危机比性能问题麻烦十倍。过渡期的稳妥做法：BI 只读我们导出的快照，正式数字以系统报表为准，等口径梳理完再放开直连。

Word 侧顺手补一个口径细节

邮件合并的字段内容直接来自查询输出，所以"合并文档漂不漂亮"的一半责任在数据侧。三个查询层预处理让函件质量立刻上一个台阶：日期统一在查询里 Format 成中文习惯写法，别把 ISO 格式原样丢给打印机；地址拆成省市区三列就先串接成完整一行再加"收"；金额保留两位并以千分位分隔——这些加工放在查询里一次完成，比在每个 Word 模板里重复设置域开关省心得多。数据侧准备得越干净，模板侧的自由度才越大。

本节联动卡

• 邮件合并管纸面文书：查询当通讯录、域插正文、格式开关管数字长相。
• Excel 管分析与呈现：Access 管口径，工作簿管花活，一个源头两种消费。
• Outlook 管触达：后期绑定最兼容，Display 先行 Send 收尾，触发必带人工闸。
• 记住反面清单：不当并发服务器的资源、不做黑箱决策源、不留无闸自动发送。

下一节把镜头拉远：当同事坐到了另一个城市，这些本地功夫怎么延展。