多个工作簿里的固定表内容复制黏贴到指定工作簿的指定表

ajgdm122

fzxba 发表于 2023-3-19 12:56
嗯，及时雨浇灌 鲜花，花更娇媚艳丽。

大神你好：


汇总的目前用下来发现了有几个问题：
1、弹出来的输入框如果点取消或者关闭对话框，程序都会启动执行汇总，


2、数据源的“桩径”列如果输入有“水井“的，不能汇总，汇总后会显示空值


3、数据源的“管理员”列，某些单元格会根据需要插入批注，批注也不会汇总


4、重复点汇总按钮的时候，表里原来的批注不会删掉，依然保留在汇总表里。




   再次感恩大神无私的付出！！

fzxba

1、可这样解决
s=inputbox (……………………）
if strptr(s)=0 then exit sub
2、3、我的方法解决不了，用其它楼层的方法
4、改 clearcontents  为  clear

ajgdm122

fzxba 发表于 2023-3-21 10:10
1、可这样解决
s=inputbox (……………………）
if strptr(s)=0 then exit sub

好的，感谢！

风过天涯

fzxba 发表于 2023-3-19 11:49

大佬If Dict.Count = 49 Then Target.CopyFromRecordset Conn.Execute(Join(Dict.Keys, " UNION ALL "))这句我没有理解49哪来的

fzxba

风过天涯 发表于 2023-3-21 16:50
大佬If Dict.Count = 49 Then Target.CopyFromRecordset Conn.Execute(Join(Dict.Keys, " UNION ALL ")) ...