提示：程序代码是根据实际工作的需求编写的，仅供参考学习使用。

操作软件：Microsoft Office Excel 2021 使用功能：Visual Basic（开发工具--visualbasic编辑器--新建模块）

前期写过一篇《VBA实用基础程序 | 一键批量生成对账单》的文章，虽然可以帮助我一键批量生成对账单，大致上是能解决目前的问题，但是仍有一些后续问题有待解决。

由于一个客户我设计一个总的工作簿，每个月对账单对应的工作表都需要保存在同一个工作簿里。而目前代码所实现的只是将当月的对账单生成一个新的工作簿，而不会自动打开总的客户工作簿将当月的数据添加进去。

目前最笨的办法就是 ：先打开一个客户总的工作簿，然后再打开当月生成的对账单，复制粘贴到总的工作簿里，保存关闭。

上百家客户如此笨拙地操作下来，几个小时又没了。

所以接下来要解决的问题就是：

在生成对账单的过程中，如果是老客户，会自动按照客户名称找到总的工作簿，打开并把当月的数据添加进去。

如果是新客户的话，则是在模板工作簿所在的路径下生成新的对账单。

先设置一个for循环来遍历对账单总表文件夹里的文件，通过if函数判断文件名称是否存在于文件夹里。

如果存在的话，就表示该客户为老客户，然后对文件进行打开、修改、保存等操作。

如果不存在时，就表示该客户为新客户，后续对其进行另存为新对账单的操作。

在原来的代码中，已经有生成对账单的代码，在此基础上稍加修改即可。

用MsgBox函数 来提示是否有新客户的产生，当有新客户存在时，就会自动弹出提示选项框，通过选择“确定”或者“取消”来进行下一步操作。

当点击“确定”按钮时，系统就会自动将新客户的对账单表生成独立的工作簿，并保存在当前路径下。

当点击“取消”按钮时，不进行任何操作。

此外，所有新客户的工作表都保存完后，要在模板工作簿中将其删除，当工作表的名字不为“模板”和“榜单明细”时，执行删除操作。