VBA批量操作excel文件

最新推荐文章于 2025-02-13 10:29:12 发布

花吃了那骚年

最新推荐文章于 2025-02-13 10:29:12 发布

阅读量4.4k

点赞数 3

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

本文链接：https://blog.csdn.net/solomomlongquan/article/details/121349558

版权

vba 专栏收录该内容

3 篇文章

订阅专栏

这是一个VBA宏代码示例，用于批量打开并处理位于特定路径下的所有.xlsx文件。宏首先禁用屏幕更新以提高效率，然后通过Dir函数查找并依次打开每个文件，调用自定义操作宏对每个文件进行处理，最后重新启用屏幕更新。此代码适用于需要自动化处理大量Excel文件的场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub key()
    Dim Path As String
    Dim File As String
    Dim WB As Workbook
        Application.ScreenUpdating = False '冻结屏幕，打开各个文件及关闭时屏幕不会晃瞎你的狗眼
        Path = "c:\temp\" '把目标文件夹路径赋值给变量，这里的路径可以自己改
        File = Dir(Path & "*.xlsx") '一次找寻路径中的excel文件，这里到底是.xlsx还是.xls，可以自己改
        Do While File <> "" '当指定路径中由文件时进行循环
            Set WB = Workbooks.Open(Path & File) '打开符合要求的文件
            Call 你的具体操作宏 '调用你的另一端对每个excel文件进行具体操作的宏，也可以直接写到这个宏中
            File = Dir '找寻下一个excel文件
        Loop
        Application.ScreenUpdating = True '解冻屏幕，让屏幕恢复正常刷新。和上面的那一句成对使用
End Sub