将多个Excel文件批量导入某个Excel文件中

最新推荐文章于 2024-04-19 19:39:41 发布

bonny95

最新推荐文章于 2024-04-19 19:39:41 发布

阅读量4.6k

点赞数

分类专栏： VBA 文章标签： excel string microsoft vba each command

本文链接：https://blog.csdn.net/bonny95/article/details/6597776

版权

本文介绍了一个通过VBA宏实现的需求：选择Excel中特定行或列，根据选定单元格名称创建新工作表，并将指定目录下同名Excel文件内容复制到新工作表中。虽然目前的代码存在效率问题，但可以参考其他优化方法进行改进。

摘要由CSDN通过智能技术生成

这是我老婆提出的一个需求：(1)选中Excel表格中的某些行或列，运行某个Macro，自动根据选中的cells创建新的worksheets，worksheets的名字就是选中的cells的名字。(2)创建新的worksheet的同时，要把某指定目录下与新的worksheet同名的Excel文件的内容copy到新的worksheet中去。

下面是搜索了半天之后搞出来的Macro，没有异常处理，而且使用了copy/paste，文件太多时效率肯定不高。其实完全可以参照

Copy a sheet from each workbook into your workbook in a folder using VBA in Microsoft Excel 和 Optimize Slow VBA Code 中的方法来优化。

Sub LoadSheets()
    Application.ScreenUpdating = False  ' stop screen flickering
    
    ' Create new sheets according to selected cells and copy the
    ' contebts of other files into the new sheets