VBA之循环文件夹下文件并复制合并

最新推荐文章于 2024-07-16 14:53:02 发布

Mavey__Loo

最新推荐文章于 2024-07-16 14:53:02 发布

阅读量1k

点赞数

分类专栏： VBA 文章标签： vba

本文链接：https://blog.csdn.net/Mavey__/article/details/127161466

版权

本文介绍了如何使用VBA编程语言来循环遍历特定文件夹下的所有文件，并将这些文件内容合并到一起，实现了批量处理和数据整合的功能。

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

SUB SplitRange()
    '关闭屏幕刷新
	Application.ScreenUpdating = FALSE
	'禁用事件
	Application.EnableEvents = FALSE
	'禁止显示提示和警告消息
	Application.DisplayAlerts = FALSE
	ThisWorkbook.Worksheets("清单").SELECT
	'循环文件夹下的文件，将文件名写入当前文件
	Dim Fn$,N%
	Folder="D:\1.2.2文档\"
	Fn=Dir(Folder)
	While Fn <> ""
		N =