Microsoft VBA Excel Access 核对数据

问题描述

简述：
有2份文件，分别是Summary.xlsm和Output.MDB。需要在Summary.xlsm写个VBA。内容是：
提取全部Summary.xlsm中sheet的名称，如果sheet的名称，在Output.MDB中找到资料表的名称是字符串"Fruit - "加上对应sheet名称，它们两个内容是不一样的，则输出弹窗（所有sheet的名称），如果一致则输出弹窗（“Well Done!”）。

---

代码描述

1. 循环遍历 Summary.xlsm 中的所有工作表。
2. 对于每个工作表，构造 Output.MDB 中的表名（即 "Fruit - " 加上工作表名称）。
3. 打开 Output.MDB 数据库，检查表是否存在，并对其进行比较。比较内容是sheet中第三行开始，A-G列的全部有值单元格和Access中的资料表对应单元格。
4. 如果存在任何不一致，记录下来并最后显示一个包含所有不一致名称的弹窗。
5. 如果全部一致，则显示弹窗，显示 "Well Done!"。

Sub CompareSheetsWithDatabaseTables()
    Dim ws As Worksheet
    Dim sheetName As String
    Dim tableName As String
    Dim conn As Object
    Dim r