使用vba生成汇总多个工作簿的多工作表数据透视表SQL命令文本[46楼有更新]

paul1115

赵老师好，为了方便起见，这个SQL命令生成的工具，我想通过菜单来调用，这样可以省去来回找工具的麻烦。通过菜单调用如图userform（这个我已经弄好了），但是userform上面三个按钮对应的程式该如何写，才能正常使用呢？希望能得到赵老师抽空指导，感谢！

zhaogang1960

paul1115 发表于 2019-3-26 12:27
赵老师好，为了方便起见，这个SQL命令生成的工具，我想通过菜单来调用，这样可以省去来回找工具的麻烦。通 ...

Private Sub CommandButton1_Click()
    Call 历遍本文件夹
End Sub

Private Sub CommandButton2_Click()
    Call 指定多工作簿
End Sub

Private Sub CommandButton3_Click()
    Call 指定一个工作簿
End Sub

Private Sub CommandButton4_Click()
    Unload Me
End Sub

paul1115

谢谢赵老师，我起初写的代码和上面赵老师指点的代码相同，但前后的运行都发现有问题，提示编译错误，错误提示如图，您帮忙看看是哪里的问题：），麻烦赵老师给诊断诊断，谢谢啦

zhaogang1960

paul1115 发表于 2019-3-26 14:14
谢谢赵老师，我起初写的代码和上面赵老师指点的代码相同，但前后的运行都发现有问题，提示编译错误，错误提 ...

在我发的原文件中修改，或重新引用，请参阅下面链接的114楼：
http://club.excelhome.net/thread-666176-12-1.html

paul1115

嗯嗯，修改了引用project->references-> Microsoft ADO Ext . 2.8 for DLL and Security，解决了，谢谢赵老师

paul1115

谢谢赵老师热心指导，还有个问题请教您：能否移步到http://club.excelhome.net/forum.php?mod=viewthread&tid=1122763&mobile=2，有关同一个文件夹里面工作簿批量设置密码的问题：），我也是直接改成了菜单调用，但似乎只能把程序和待加密文件夹拷到一个文件夹（含子文件夹）内才运行，直接指定某路径下的文件夹，程序无法运行即不能加密，不知道如何改善，谢谢您

paul1115

您好，赵老师，得到了您多次帮助，不知道怎么感谢您才好，希望坛子里面可以有像千聊等知识平台那样的打赏点赞的功能：）
对了，又遇到一个问题，赵老师有时间的话，麻烦您移步到如下地址帮忙给看看，是关于指定路径按照既定表头合并多工作部工作簿的问题，谢谢赵老师：）
多薄多表合并(不限表头位置和顺序)
http://club.excelhome.net/thread-1441344-1-1.html
(出处: ExcelHome技术论坛)

paul1115

为了避免您麻烦，我在这儿简单说说：）
原VBA工具功能是根据指定字段合并文件夹内的工作簿内容（见附件原始版），我虽已经修改成通过菜单调用窗体的方式操作（如图目前的效果，工具对应菜单调用版），但都没有改变固有弊端，即工具在使用时都必须先拷贝到待合并工作簿所在文件夹内。
若可以通过选择路径（必要的话还可以选择包含子文件夹）来指定待合并工作簿的路径指哪打哪，这样一来就可以省去先把工具拷到指定文件夹里面的麻烦了，菜单调用的窗体已经画好了（见图片希望实现的效果），但程序不知道咋写：（

paul1115

paul1115 发表于 2019-4-4 22:05
您好，赵老师，得到了您多次帮助，不知道怎么感谢您才好，希望坛子里面可以有像千聊等知识平台那样的打赏点 ...

谢谢赵老师：）

winters0n

谢谢分享好作品