VBA数据库查询及数据自动导出多Excel报表

这段代码是我以前用过的一个东西，稍稍删减了一些敏感的东西，但是主要功能完整。功能如下：一是包含VBA连接SQLServer执行查询的代码；二是包含自动将数据结果到处为多个Excel文件的代码，文件名格式为：机构编码+文件主名称+日期，日期是自动取的当前日期，机构编码单独存放在名为shopid的sheet页里，位置可以自由修改，当然对应的代码中也要修改，代码最后的一部分是将所有数据转存的代码，我写的是保存为总表代码为B00B打头的文件名。所有工作完成后文档会自己关闭。