|
楼主 |
发表于 2024-5-3 20:33
|
显示全部楼层
非常感谢Rows.Count的帮助.
- Sub Test1()
- Dim Fso As FileSystemObject
- With Sheet3
- .Cells.Clear
- .Cells.Font.Size = 9
- .Cells(10, 1) = "A"
- .Cells(10, 2) = "B"
- .Cells(10, 3) = "C"
- tmpTraverseSubFolders "D:"
- ''
- Debug.Print "=count(a11:A" & .Cells(Rows.Count, 1).End(xlUp).Offset(1).Row & ")"
- .Cells(3, 1) = "=count(a11:A" & .Cells(Rows.Count, 1).End(xlUp).Offset(1).Row & ")"
- End With
-
-
- End Sub
- Function tmpTraverseSubFolders(FolderPath As String)
- Dim Rng As Range
- Dim ii As Integer
- Dim CurFolder As Object
- Dim SubFolder As Object
-
- Set CurFolder = CreateObject("Scripting.FileSystemObject").GetFolder(FolderPath)
-
- ' 遍历当前文件夹的子文件夹
- For Each SubFolder In CurFolder.SubFolders
- If InStr(SubFolder.Path, "System Volume Information") = 0 Then
- Set Rng = Sheet3.Cells(Rows.Count, 1).End(xlUp).Offset(1)
- Rng(, 1) = Rng.Row - 10
- Rng(, 2) = SubFolder.Path
- tmpTraverseSubFolders SubFolder.Path
- End If
- Next SubFolder
-
-
- End Function
-
复制代码
|
|