怎样远程更新Excel中的vba代码，？

我用access做了一个数据库。然后，用Excel做了个查询数据库的宏，分发到不同的同事使用。现在，我想更改其中的一个模块的函数。当然可以做好后再分发给同事。但，是否有更好的方法，呢？

做成C/S结构就没这么麻烦了

可用SENDKEY发送按键

假设数据在单元格a1到f100中（不是的话改下面的粗体字），假设准备输入日期的单元格是h1（不是的话改下面的粗体字）。 右键点本工作表的名字（在工作簿左下方呢），查看代码，粘贴如下代码： private sub worksheet_change(byval target as range) on error goto line1 dim xrng as range if target.range("a1").address = "$h$1" then set xrng = range("a1:f100") xrng.autofilter xrng.autofilter field:=1, operator:=xlfiltervalues, criteria2:=array(2, target.range("a1")) xrng.copy sheets.add after:=sheets(sheets.count) activesheet.paste activesheet.name = target.range("a1") end if line1: end sub 回到excel，在h1输入任意日期，回车完成。