如何通过ADO修改Excel数据

给个例子参考下：

Dim rst As DAO.Recordset '定义ADO数据集

Set rst = CurrentDb.OpenRecordset("SELECT * FROM 供应商 Where ID=" &Me.ID &"", dbOpenDynaset, dbSeeChanges)

if rst!支付金额>DLookup("合同金额", "付款", "ID=" &Me.ID &"") then

exit sub

else

rst.Edit '动作修改

rst!支付金额 = DSum("发票金额", "付款", "ID=" &Me.ID &"")

rst!发票金额 = DSum("发票金额", "付款", "ID=" &Me.ID &"")

rst!入仓金额 = DSum("入仓金额", "付款", "ID=" &Me.ID &"")

rst!入仓数量 = DSum("入仓数量", "付款", "ID=" &Me.ID &"")

rst.Update

rst.Close '关闭数据集

Forms!主窗体!子窗体1.Form.Recalc 'Re calculator 数据刷新

End If

第一，该数据库文件应已经设置为共享的；

第二，有登陆数据库的账号和密码（如果设置了密码的情况下）；

第三，取得该数据库的网络路径名；

第四，该电脑处于正常开机状态；

第五，类似于连接本机数据库的语句，替换其中的数据库路径名称、账号和密码，应该就可以了。

---