作者：乔山办公网日期：
返回目录：excel表格制作
需要你的文件才能写代码
savecopyas 是复制，还会保留zd原先的格式版
另存为一下xlsx就好了权，FileFormat:=xlOpenXMLWorkbook
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & Range("Q3").Value & ".xlsx", FileFormat:=xlOpenXMLWorkbook
合并单元格后合并区域的第一单元格的值就是该合并区域的值。不必给区域，另外区域一般用range表示。所以，cells[B5]:[E5]只用[B5]就可以了。
实现的方法和详细的操作步骤如下：
1、首先，在桌面第一章中，每个工作簿的名称都放在工作表中copy，如下图所示，然后进入下一步。
2、其次，完成百上述步骤后，创建一个新的工作簿，将其命名为“第度一章目录”，然后按“alt + f11”组合键打开“宏”界面，如下图所问示，然后进入下一步。
3、接着，完成上述步骤后，在VBA中，单击“插入”按钮，然后选择“模块”选项以创建新模块，如下图所示，然后进入下一步。
4、然后，完成上述步骤后，输入如下红框中的代码，如下图所示，然后进入下一步。
5、随后，完成上述步骤后，返回到名为“第一章目录”的工作簿，然后按“alt + f8”组合键调出“宏”对话框，如下图所示，然后进入下一步。
6、最后，完成上述步骤后，单击“宏”对话框中的“执行”按钮，“宏”对话框自动关答闭，代码自动执行，即第一页中的每个文件夹名称都显示在sheet1中，可以根据需要调整格式，如下图所示。这样，问题就解决了。