- ©«¤l
- 41
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 79
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2014-4-1
- ³Ì«áµn¿ý
- 2016-2-17
|
¥»©«³Ì«á¥Ñ no3-taco ©ó 2015-6-16 04:36 ½s¿è
ª±ª±¬Ý¡A²¤Æ¹Lªº»¼°jª©- Sub ³o¸Ì°õ¦æ()
- Dim rw As Long, ilevel As Long: rw = 1: ilevel = 0
- GetSubs "C:\Users\Administrator\Desktop" & "\", rw, ilevel '©I¥s°Æµ{¦¡"#קï¸ô®|#
- End Sub
- Sub GetSubs(sPath As String, rw As Long, ilevel As Long)
- Dim ary1() As String: ReDim ary1(0): Dim sName
- sName = Dir(sPath, vbDirectory)
- Do While sName <> ""
- On Error Resume Next '¦³¿ù»~¸õ¹L
- If sName <> "." And sName <> ".." And (GetAttr(sPath & sName) And vbDirectory) = vbDirectory Then
- 'If Err = 0 Then '¨S¦³¿ù»~®É
- ReDim Preserve ary1(UBound(ary1) + 1)
- ary1(UBound(ary1)) = sName
- End If ': End If
- sName = Dir
- Loop
- For i = 1 To UBound(ary1)
- rw = rw + 1
- GetSubs sPath & ary1(i) & "\", rw, ilevel + 1 '»¼°j©I¥s
- Next i
- sName = Dir(sPath)
- If Dir(sPath & [A1]) = [A1] Then
- Workbooks.Open sPath & [A1] '¶}±ÒÀÉ®×
- End
- End If
- End Sub
½Æ»s¥N½X |
|