将多个ecel文件合并到一个ecel的多个sheet中.pdfVIP

VBA方法 - 将多个 excel 文件合并到一个 excel 的多个 sheet 中 由上级的要求，同事需要将以前做的所有 excel 文件（手机话费清单表） ， 都合并到一个 excel 中，并且每个 excel 文件为一个 sheet 。她开始是用复制粘 贴的方法，很麻烦。所有她就问我，有没有什么方法可以快点做完。 网上搜索，方法如下： 1. 将需合并的 excel 文件放在同一个文件中， 并这个文件中新建一个 excel 文件 2. 打开新建的 excel 文件，按 alt + f11 建，打开宏，新建一个模组，将 下面的代码拷贝进去，并保存。 Sub Books2Sheets() 定义对话框变量 Dim fd As FileDialog Set fd = (msoFileDialogFilePicker) 新建一个工作簿 Dim newwb As Workboo