订单流水对账机器人

第 1 关 · 把两张表都读进来

分别打开两张表，各读 "A1:B7"，得到两个二维数组，各自打印确认。

1. 新建变量 objSys、objBank、系统rows、银行rows。
2. 拖入 打开Excel 打开 res\系统流水.xlsx，输出到 objSys；再拖 读取区域 读 "Sheet1"、"A1:B7" 存入 系统rows；随后 关闭Excel工作簿(objSys)。
3. 对银行流水重复同样三步，结果存入 银行rows。期望：两个数组都读到了，含表头共 7 行。
4. 用 输出调试信息 打印两个数组长度。提示：想取数组长度，用数据处理 ▸ 数组里的"获取数组长度"命令；不确定名字就翻命令手册。
5. 常见报错：工作表名不对 → 试填 0；行数偏少 → 检查区域是否 A1:B7。

打开Excel(res\系统流水.xlsx) → objSys
读取区域(objSys, "Sheet1", "A1:B7") → 系统rows
关闭Excel工作簿(objSys)

打开Excel(res\银行流水.xlsx) → objBank
读取区域(objBank, "Sheet1", "A1:B7") → 银行rows
关闭Excel工作簿(objBank)

输出调试信息("系统行数：" & 系统rows 的长度)
输出调试信息("银行行数：" & 银行rows 的长度)

第 2 关 · 遍历系统流水，找出两类差异

1. 在外层用 For Each 遍历 系统rows，循环体先 序号 = 序号 + 1；用 If 序号 > 1 跳过表头。
2. 取本行订单号和系统金额：订单号 = 系统行[0]、系统金额 = 系统行[1]。
3. 进内层之前先重置：找到 = False、银行金额 = ""。期望：这两句写在 For Each 银行行 的外面、外层循环体的里面。
4. 内层用 For Each 遍历 银行rows：若 银行行[0] = 订单号，则 找到 = True、银行金额 = 银行行[1]。
5. 内层结束后才判断：If 找到 = False → 输出"系统有银行无"；ElseIf 银行金额 <> 系统金额 → 输出"金额不一致"。
6. 常见报错：结果多出或少出 → 九成是 找到 = False 放错位置（放到循环外了），或把变量定义在循环体里导致每轮被重新声明。

Dim 序号 = 0
For Each 系统行 In 系统rows
    序号 = 序号 + 1
    If 序号 > 1                      // 跳过表头（BotScript 不写 Then）
        Dim 订单号 = 系统行[0]
        Dim 系统金额 = 系统行[1]
        Dim 找到 = False             // ← 每行重新置为 False
        Dim 银行金额 = ""

        For Each 银行行 In 银行rows
            If 银行行[0] = 订单号
                找到 = True
                银行金额 = 银行行[1]
            End If
        Next

        If 找到 = False
            输出调试信息(订单号 & " 系统有银行无（" & 系统金额 & "）")
        ElseIf 银行金额 <> 系统金额
            输出调试信息(订单号 & " 金额不一致：系统 " & 系统金额 & " / 银行 " & 银行金额)
        End If
    End If
Next

第 3 关 · 反向再查一遍：银行有系统无

再遍历一遍银行流水，去系统流水里找；找不到的就是"银行有系统无"。同样用标志变量。

1. 照抄第 2 关的结构，把"外层 系统rows / 内层 银行rows"换成"外层 银行rows / 内层 系统rows"。
2. 标志变量依旧在外层每轮开头重置为 False；内层命中则记为 True。
3. 内层结束后，若 找到 = False，输出"银行有系统无"。注意：这一轮只输出单边差异，不需要再比金额。
4. 常见报错：若把方向写反或忘了重置标志，会漏掉 D007 或多报一堆假差异。

第 4 关 · 写出对账结果.xlsx

把结果先攒成一个二维数组（第一行是表头），再一次性 写入区域。

1. 流程一开始先建结果数组并放表头：Dim 结果 = [["订单号", "差异类型", "系统金额", "银行金额"]]。
2. 在发现差异的每一处，往数组尾部追加一行：结果 = 在数组尾部添加元素(结果, [订单号, "金额不一致", 系统金额, 银行金额])。三类差异各追加一次。
3. 全部比完后打开（不存在会自动新建）res\对账结果.xlsx，用 写入区域 把整个数组写到 "A1:D4"（表头 + 3 条差异），立即保存=是，最后关闭。
4. 常见坑：区域写成 "A1:D4" 但结果有 5 行 → 报错或写错位。结果行数 = 1（表头）+ 差异条数。

// 一开始先放表头
Dim 结果 = [["订单号", "差异类型", "系统金额", "银行金额"]]

// 发现差异时，往数组尾部追加一行
结果 = 在数组尾部添加元素(结果, [订单号, "金额不一致", 系统金额, 银行金额])

// 全部比完，写出到新文件（不存在会自动新建）
打开Excel(res\对账结果.xlsx, 可见=True) → objOut
写入区域(objOut, "Sheet1", "A1:D4", 结果, 立即保存=是)
关闭Excel工作簿(objOut)

第 5 关 · 发汇总邮件

把"共发现 3 处差异"和每条的简要描述拼成正文，发给自己。

1. 循环开始前定义正文头：Dim 正文 = "本月对账完成。\n共发现 " & 差异条数 & " 处差异：\n"。
2. 在发现差异时逐条追加：正文 = 正文 & 订单号 & " - " & 差异类型 & "\n"。
3. 循环结束后拖入 发送邮件，SMTP 参数照第 9 课填，登录密码用授权码变量，收信邮箱填自己，标题"月度对账报告"，正文传 正文，结果存入 成功与否。
4. 常见报错：登录失败 → 授权码错或未开 SMTP；正文没有换行 → 检查字符串里的 \n 有没有被拼进变量。

Dim 正文 = "本月对账完成。\n共发现 " & 差异条数 & " 处差异：\n"
// 循环中逐条追加：正文 = 正文 & 订单号 & " - " & 差异类型 & "\n"
发送邮件(SMTP服务器="smtp.qq.com", 服务器端口=465, SSL加密=True,
         邮箱帐号=..., 登录密码=<授权码变量>, 收信邮箱=...,
         邮件标题="月度对账报告", 邮件正文=正文) → 成功与否

第 6 关 · 进阶（三选一，至少做一个）

1. 选做 A：先建空字典，遍历银行流水把"订单号 → 金额"装进去；把内层 For Each 换成一次字典查找，再跑第 2、3 关的验证。期望：结论与原来完全一致，但代码更快、更短。
2. 选做 B：把金额比较改成"两边差额的绝对值 < 0.01 视为一致"。期望：D003（80 vs 88）仍被报为不一致；如果把某笔改成只差 0.005，则不再报差异。
3. 选做 C：启动浏览器打开练习页，选一个单元格用 获取元素文本 读出数值。常见报错："找不到元素" → 元素选错或页面没加载完，重新选取并加等待。