读取某一目录下的文件夹名称

最新推荐文章于 2023-03-09 11:57:55 发布

xjb517ww

最新推荐文章于 2023-03-09 11:57:55 发布

阅读量112

点赞数

文章标签： excel vba

本文链接：https://blog.csdn.net/xjb517ww/article/details/113677918

版权

文件操作目录遍历 VBA Excel 编程

关键词由CSDN通过智能技术生成

Sub Ma()
'粘贴文件目录所在的地址
mypath = "\\sf\dfssf\SAIFEI\Engineering\02 - Realization\02-04 DES - Develop & Design\02-04-02-Integration\WP3\07_Production_Original PH\AC107 STEP_40\"
myfile = Dir(mypath, vbDirectory)
a = 1
Do While myfile <> ""
If myfile <> "." And myfile <> ".." Then
Cells(a, 1) = myfile
a = a + 1
myfile = Dir
Else
myfile = Dir
End If
Loop
End Sub