百度360必应搜狗淘宝本站头条
当前位置:网站首页 > IT知识 > 正文

VBA找出文件夹下所有的Excel文件

liuian 2025-02-06 15:41 22 浏览

在VBA中,遍历指定目录下的Excel文件通常涉及使用FileSystemObject。以下是一个基本的例子,说明如何遍历一个目录并列出所有的Excel文件(假设Excel文件的扩展名为.xlsx或.xls):

首先,你需要确保你的VBA项目引用了Microsoft Scripting Runtime。你可以通过以下步骤添加这个引用:

  1. 在VBA编辑器中,选择工具 > 引用。
  2. 在弹出的对话框中,滚动到Microsoft Scripting Runtime并勾选它。
  3. 点击确定。

代码

参考代码如下,可以实现递归遍历子文件夹:

Sub ListFilesInFolderRecursively()  
    Dim MyFolder As String  
    Dim wb As Workbook  
    Dim ws As Worksheet  
    Dim r As Range  
    Dim rowNum As Long  
      
    ' 设置要遍历的文件夹路径  
    MyFolder = "C:\YourFolderPath\"  
      
    ' 创建一个新的工作簿来记录结果  
    Set wb = Workbooks.Add  
    Set ws = wb.Sheets(1)  
    rowNum = 1  
      
    ' 调用递归函数来遍历文件夹  
    Call ListFilesInFolderRec(MyFolder, ws, rowNum)  
      
    ' 自动调整列宽以适应内容  
    ws.Columns(1).AutoFit  
      
    ' 清理对象  
    Set r = Nothing  
    Set ws = Nothing  
    Set wb = Nothing  
End Sub  
  
Sub ListFilesInFolderRec(FolderPath As String, ws As Worksheet, ByRef rowNum As Long)  
    Dim FSO As Object  
    Dim Folder As Object  
    Dim SubFolder As Object  
    Dim File As Object  
      
    ' 创建FileSystemObject对象  
    Set FSO = CreateObject("Scripting.FileSystemObject")  
      
    ' 获取文件夹对象  
    If FSO.FolderExists(FolderPath) Then  
        Set Folder = FSO.GetFolder(FolderPath)  
          
        ' 遍历文件夹中的所有文件  
        For Each File In Folder.Files  
            ' 检查文件是否是Excel文件  
            If LCase(FSO.GetExtensionName(File.Name)) = "xlsx" Or LCase(FSO.GetExtensionName(File.Name)) = "xls" Then  
                ' 在工作簿中记录文件名  
                ws.Cells(rowNum, 1).Value = File.Path  
                rowNum = rowNum + 1  
            End If  
        Next File  
          
        ' 遍历子文件夹  
        For Each SubFolder In Folder.SubFolders  
            ' 递归调用此函数来处理子文件夹  
            Call ListFilesInFolderRec(SubFolder.Path, ws, rowNum)  
        Next SubFolder  
    Else  
        MsgBox "The folder path does not exist."  
    End If  
      
    ' 清理对象  
    Set File = Nothing  
    Set SubFolder = Nothing  
    Set Folder = Nothing  
    Set FSO = Nothing  
End Sub


ListFilesInFolderRecursively 是主函数,它创建一个新的工作簿来记录文件路径。然后它调用 ListFilesInFolderRec 函数来递归地遍历指定目录及其所有子目录。ListFilesInFolderRec 函数检查每个文件是否是Excel文件,如果是,则将其路径记录到工作簿中。同时,它还遍历每个子文件夹,并递归调用自身来处理这些子文件夹。

注意,在代码中我使用了 LCase 函数来确保扩展名比较时不受大小写影响。同时,我也记录了文件的完整路径(File.Path),而不仅仅是文件名,这样你可以清楚地知道文件位于哪个文件夹中。如果你只需要文件名,你可以将 ws.Cells(rowNum, 1).Value = File.Path 更改为 ws.Cells(rowNum, 1).Value = File.Name

相关推荐

Springboot 整合 Websocket 轻松实现IM及时通讯

一、方案实践集成分为三步:添加依赖、增加配置类和消息核心类、前端集成。1.1、添加依赖<dependency><groupId>org.springframework...

SpringBoot扩展——应用Web Socket!

应用WebSocket目前,网络上的即时通信App有很多,如QQ、微信和飞书等,按照以往的技术来说,即时功能通常会采用服务器轮询和Comet技术来解决。HTTP是非持久化、单向的网络协议,在建立连接...

【Spring Boot】WebSocket 的 6 种集成方式

介绍由于前段时间我实现了一个库【SpringCloud】一个配置注解实现WebSocket集群方案以至于我对WebSocket的各种集成方式做了一些研究目前我所了解到的就是下面这些了(就一个破w...

SpringBoot生产级WebSocket集群实践,支持10万连接!

1、问题背景智慧门诊系统旨在从一定程度上解决患者面临的三长一短(挂号、看病、取药时间长,医生问诊时间短)的问题。实现“诊前、诊中、诊后”实时智能一体化,整合完善医院工作流程。围绕门诊看病的各个环节,让...

Spring Boot3 中 WebSocket 实现数据实时通信全解析

各位互联网大厂的开发同仁们,在如今的互联网应用开发中,实时通信功能越来越重要。比如在线聊天、数据推送、实时通知等场景,都离不开高效的实时通信技术。而WebSocket作为一种高效的双向通信协议,在...

Java WebSocket 示例(java nio websocket)

一、环境准备1.依赖配置(Maven)在pom.xml中添加WebSocket依赖:xml<!--SpringBootWebSocket--><dependen...

Spring Boot整合WebSocket:开启实时通信之旅

SpringBoot整合WebSocket:开启实时通信之旅今天咱们来聊聊SpringBoot整合WebSocket这件大事儿。说到实时通信,你是不是第一时间想到QQ、微信这些聊天工具?没错,We...

Spring Boot3 竟能如此轻松整合 WebSocket 技术,你还不知道?

在当今互联网大厂的软件开发领域,实时通信的需求愈发迫切。无论是在线聊天应用、实时数据更新,还是协同办公系统,都离不开高效的实时通信技术支持。而WebSocket作为一种能够实现浏览器与服务器之间持...

Spring Boot集成WebSocket(springboot集成websocket)

一、基础配置依赖引入<dependency><groupId>org.springframework.boot</groupId><artifactId>...

Springboot下的WebSocket开发(springboot websocket server)

今天遇到一个需求,需要对接第三方扫码跳转。一种方案是前端页面轮询后端服务,但是这种空轮询会虚耗资源,实时性比较差而且也不优雅。所以决定使用另一种方案,websocket。以前就知道websocket,...

springboot websocket开发(java spring boot websocket)

maven依赖SpringBoot2.0对WebSocket的支持简直太棒了,直接就有包可以引入<dependency><groupId>org....

Python界面(GUI)编程PyQt5窗体小部件

一、简介在Qt(和大多数用户界面)中,“小部件”是用户可以与之交互的UI组件的名称。用户界面由布置在窗口内的多个小部件组成。Qt带有大量可用的小部件,也允许您创建自己的自定义和自定义小部件。二、小部件...

实战PyQt5: 014-下拉列表框控件QComboBox

QComboBox简介QComboBox下拉列表框,是一个集按钮和下拉列表选项于一体的部件。QComboBox提供了一种向用户呈现选项列表的方式,其占用最小量的屏幕空间。QComboBox中的常用方法...

Python小白逆袭!7天吃透PyQt6,独立开发超酷桌面应用

PythonGUI编程:PyQt6从入门到实战的全面指南在Python的庞大生态系统中,PyQt6作为一款强大的GUI(GraphicalUserInterface,图形用户界面)编程框架,为开...

如何用 PyQt6 打造一个功能完善的 SQLite 数据库管理工具

如何使用PyQt6和qt_material库,打造一个功能完善的SQLite数据库管理工具,轻松管理和查询SQLite数据库。一、目标数据库连接与表管理:支持连接SQLite数据库...