Office中国论坛/Access中国论坛

标题: [以解決] 如何提取文件夾名稱 [打印本页]

作者: joyark 时间: 2011-8-28 01:54
标题: [以解決] 如何提取文件夾名稱
本帖最后由 joyark 于 2011-8-28 12:07 编辑

[求助] 如何提取文件夾名稱
Sub Get_SubFolder_Names()
Dim RtFolder, nlFolder
Dim xrow As Long
RtFolder = ThisWorkbook.Path & "\" '这里指定你的根目录
' RtFolder = "C:\Users\Administrator\Desktop\"       '这里指定你的根目录
xrow = 0
With CreateObject("Scripting.FileSystemObject").GetFolder(RtFolder)
      For Each nlFolder In .subfolders
         ActiveCell.Offset(xrow) = nlFolder.Name
         xrow = xrow + 1
      Next nlFolder
End With
End Sub

作者: pureshadow 时间: 2011-8-29 13:52
=LEFT(CELL("filename",A1),FIND("[",CELL("filename",A1))-2)

作者: joyark 时间: 2011-8-29 16:28

pureshadow 发表于 2011-8-29 13:52
=LEFT(CELL("filename",A1),FIND("[",CELL("filename",A1))-2)

須要文件存放那文件夾內寫出所有文件夾名稱謝謝:

作者: gfp12345678 时间: 2011-9-28 21:54
謝謝分享

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)