需要修改现有代码，分别对三个表进行选择和执行三次，如果代码里面有指定表的语句，全部都要取消，让使用默认的AcriveSheet表工作，程序修改部分如下：
For i=1 to 3 Sheets(i).Select '....这里存放原来的语句，里面凡是有使用Sheets的都要删除....Next i
