[已解决]遍历工作薄

一成不变变

使用“遍历.xlsm”工作薄里面的代码，怎么多了一个“~$遍历.xlsm文件”，


Sub 按钮1_Click()
    Application.ScreenUpdating = False
    Set fso = CreateObject("scripting.filesystemobject") '对象模型
    Set ff = fso.GetFolder(ThisWorkbook.Path) 'ThisWorkbook.Path是当前代码文件所在路径，路径名可以根据需求修改
    ActiveSheet.UsedRange.ClearContents '清除
    a = 1
    For Each f In ff.Files

        Cells(a, 1) = f.Name '相对路径名
        Cells(a, 2) = f '全路径名
        a = a + 1
    Next f
    Application.ScreenUpdating = True
End Sub

最佳答案

月排行榜 / 总排行榜

810126769

2016-1-11 19:21

加上下面的语句：

If Not f.Name Like "~$" & ThisWorkbook.Name Then
            Cells(a, 1) = f.Name '相对路径名
            Cells(a, 2) = f '全路径名
            a = a + 1
End If

跳转到最佳答案楼层

雪舞子

excel文件打开后，都会自动产生一个“~$"开头的同名文件，
这是隐藏文件，正常情况下是看不到的，
如果遍历时不想遍历到这个文件可以加个判断过滤。

810126769

加上下面的语句：

If Not f.Name Like "~$" & ThisWorkbook.Name Then
            Cells(a, 1) = f.Name '相对路径名
            Cells(a, 2) = f '全路径名
            a = a + 1
End If