
如何利用excel vba自动列出指定文件夹目录下的所有文件
展开全部
下面的例子代码显示C:\所有文件,供你参考:
Option Explicit
Sub ygb()
Dim f, i
i = 1
f = Dir("c:\")
While f <> ""
Cells(i, "A") = f
i = i + 1
f = Dir
Wend
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |
下面的例子代码显示C:\所有文件,供你参考:
Option Explicit
Sub ygb()
Dim f, i
i = 1
f = Dir("c:\")
While f <> ""
Cells(i, "A") = f
i = i + 1
f = Dir
Wend
End Sub
广告 您可能关注的内容 |
类别
我们会通过消息、邮箱等方式尽快将举报结果通知您。
说明
0/200