VBA 读取EXCEL 2

最新推荐文章于 2025-08-15 11:48:31 发布

jiannye

最新推荐文章于 2025-08-15 11:48:31 发布

阅读量360

点赞数

CC 4.0 BY-SA版权

文章标签： vba excel 网络 vb 服务器

本文链接：https://blog.youkuaiyun.com/jiannye/article/details/6206319

本文介绍了一段用于遍历文件夹并查找.xls文件的VBA代码，该代码能够有效执行并应用于特定任务中。虽然相较于直接写入数组的方法效率较低，但对于网络服务器上的文件检索仍具有实用价值。

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

在网上找到了一段历遍文件夹的VBA代码，试验了一下。可以执行。和之前我做的写入部分连接起来就可以达到我之前所说的目的了。
（一点点小补充，感觉好像效率没有直接写数组的方法快，直接运行历遍代码读取网络服务器上的文件夹，大概需要一秒多的时间可以显示出来这个文件夹内一共的.xls数，时间大多在网络通信上。但是和写入部分连接整合之后，用数组5分钟之内能搞定的事情，这个好像需要更长的时间，所以依然在使用着老方法）

VB code


Sub test()
Dim sFolder As String
Dim wb As Workbook
Dim i As Long
   With Application.FileSearch
        .NewSearch
        .LookIn = "folderpath"  '
        .SearchSubFolders = True
        .filename = "*.xls"
        .FileType = msoFileTypeExcelWorkbooks
        If .Execute() > 0 Then
            '
        Else
            'Error Message
        End If
    End With
End Sub