VBA文件检测循环异常：仅处理首个.xls文件后停止运行

嘿，我一眼就揪出你代码里的问题啦——嵌套调用Dir()函数打乱了文件遍历的内部状态！

问题根源 #

Dir()函数是靠内部状态来实现文件遍历的：第一次调用带参数的Dir(myPath & myExtension)时，它会初始化一个文件查找上下文，之后每次调用无参数的Dir()，都会返回下一个匹配的文件。但你在循环里又调用了Dir(Application.ActiveWorkbook.Path & "...")，这个带参数的Dir()会重新启动一个新的查找操作，直接覆盖了原来的遍历状态。这就导致第一次循环后，原来的文件遍历上下文彻底丢失，后续的Dir()再也拿不到下一个xls文件，循环自然就停了。

修正方案：避免嵌套Dir调用 #

最稳妥的办法是换一种方式检查文件是否存在，比如使用FileSystemObject的FileExists方法，这样就不会干扰原来的Dir()遍历流程。

下面是修正后的完整代码：

Sub CheckXlsbExistence()
    Dim myPath As String, myExtension As String
    Dim myFile As String
    Dim fso As Object ' 后期绑定FileSystemObject
    
    ' 请根据实际情况设置目标文件夹路径和文件扩展名
    myPath = "C:\Your\Target\Folder\"
    myExtension = "*.xls"
    
    ' 初始化FileSystemObject
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 启动xls文件遍历
    myFile = Dir(myPath & myExtension)
    Do While myFile <> ""
        ' 拼接对应的xlsb文件路径
        Dim xlsbPath As String
        xlsbPath = Application.ActiveWorkbook.Path & "\" & Replace(myFile, ".xls", ".xlsb")
        
        ' 用FSO检查文件是否存在，不干扰原Dir遍历
        If fso.FileExists(xlsbPath) Then
            Debug.Print myFile & " is in the folder"
        Else
            Debug.Print myFile & " is not in the folder"
        End If
        
        ' 获取下一个xls文件，此时Dir()的状态没有被破坏
        myFile = Dir
    Loop
    
    ' 释放对象
    Set fso = Nothing
End Sub

另一种方案：先收集所有文件名到数组 #

如果你不想用FileSystemObject，也可以先把所有目标xls文件的名字收集到一个数组里，再遍历数组进行检查，这样也不会出现Dir()状态冲突的问题：

Sub CheckXlsbExistence_Array()
    Dim myPath As String, myExtension As String
    Dim fileList() As String
    Dim i As Integer
    Dim myFile As String
    
    myPath = "C:\Your\Target\Folder\"
    myExtension = "*.xls"
    
    ' 通过cmd命令获取所有xls文件名，并存入数组
    fileList = Split(CreateObject("WScript.Shell").Exec("cmd /c dir """ & myPath & myExtension & """ /b /a-d").StdOut.ReadAll, vbCrLf)
    
    ' 遍历数组（最后一个元素是空行，所以遍历到UBound-1）
    For i = LBound(fileList) To UBound(fileList) - 1
        myFile = fileList(i)
        If Dir(Application.ActiveWorkbook.Path & "\" & Replace(myFile, ".xls", ".xlsb")) <> "" Then
            Debug.Print myFile & " is in the folder"
        Else
            Debug.Print myFile & " is not in the folder"
        End If
    Next i
End Sub

内容的提问来源于stack exchange，提问作者Donats