【有偿求助】选择目标文件夹遍历文件夹(含子文件夹)

maxmbo

程序代码已经写好，可以实现功能需求。但是目前是对固定路径文件夹下的所有xls文件进行操作，想修改为选择目标文件夹遍历文件夹(含子文件夹)下的所有xls文件来操作，诚心有偿求助！

maditate

用词典好象可以获取指定文件夹下的全部子文件夹路径。

maxmbo

maditate 发表于 2019-8-22 15:59
用词典好象可以获取指定文件夹下的全部子文件夹路径。

不太会弄，方便帮我看看不？

月关

小伙省点钱吧，这个功能太简单别人估计都不好意思收。
你在论坛里搜“香川群子” ，Ta有一个帖子就是专门介绍的，很简单一学就会

maditate

月关 发表于 2019-8-22 16:00
小伙省点钱吧，这个功能太简单别人估计都不好意思收。
你在论坛里搜“香川群子” ，Ta有一个帖子就是专门 ...

抄别人的去赚钱是要付版权费的。

月关

maditate 发表于 2019-8-22 16:03
抄别人的去赚钱是要付版权费的。

非也非也，那是老师的一个教学贴，他自己学了解决自己的问题而已，至于去赚钱，目前好像还看不到路边

maxmbo

月关 发表于 2019-8-22 16:00
小伙省点钱吧，这个功能太简单别人估计都不好意思收。
你在论坛里搜“香川群子” ，Ta有一个帖子就是专门 ...

好的，非常感谢！

tspliu

你会弄当前文件夹的了，再给你发一个一级子文件夹的，自己去改吧
Sub DirC()
MyPath = "f:\1\" '你的主文件夹
MyName = Dir(MyPath, vbDirectory) ' 找寻第一项。
Do While MyName <> "" ' 开始循环。
' 跳过当前的目录及上层目录。
If MyName <> "." And MyName <> ".." Then
' 使用位比较来确定 MyName 代表一目录。
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
'你的程序 , 路径 = MyPath & MyName
End If
End If
MyName = Dir ' 查找下一个目录。
Loop
End Sub

koala219

maxmbo 发表于 2019-8-22 16:06
好的，非常感谢！

这段代码应该对你有帮助。
Sub Get_Filepath1()
Dim Dialog_Title As String
Dialog_Title = "Sellect file path"
Dim filePath As Variant
filePath = Application.GetOpenFilename(, , Dialog_Title)
If filePath = False Then
End
Else
ThisWorkbook.Worksheets("Home").Range("D7") = filePath   '文件路径
End If
MsgBox ("Compleated sellected file fath")
End Sub
Sub get_FolderPath1()
  Dim folderPath As Variant
  On Error Resume Next
  With Application.FileDialog(msoFileDialogFolderPicker)
   .Show
   folderPath = .SelectedItems(1)
  End With
  ThisWorkbook.Sheets("HOME").Range("D10") = folderPath   '文件夹路径
  MsgBox ("Compleated sellected file fath")
End Sub

maxmbo

tspliu 发表于 2019-8-22 16:08
你会弄当前文件夹的了，再给你发一个一级子文件夹的，自己去改吧
Sub DirC()
MyPath = "f:\1\" '你的主文 ...

好的，非常感谢！