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

本代码是我以前使用的一个东东，删除了敏感的一些信息，保留了主要的功能。主要功能包含：一是VBA连接SQLServer数据库查询的功能，二是根据自动获取的日期动态将结果数据导出为多个Excel文档的功能。导出的文件命名为按机构编码和日期动态命名方法，格式：机构编码+主文件名+日期，生成的文件存放在与本文件同目录下的各个子目录下，以机构编码为子目录的名称，非常适合每天都出同种格式报表的应用。机构编码单独存放在名为shopid的sheet页里，位置可以根据需要自己修改，导出的最后一个功能是将原数据转存的功能，我写的是导出为B00B打头的文件名。所有任务执行完毕，程序会自动关闭文档。欢迎大家帮助改进执行效率或丰富功能。