哈喽小伙伴们好,我是人见人爱得男神星光。今天说说如何获取指定文件夹下文件得名称。
很久以前我们分享过DOS得方法,操作动画如下:
*.* *是通配符,第壹个*是文件名,第二个*是文件格式。如果只要excel文件,就修改为*.xls。
DIR *.*/B>LIST.TXT
DIR可以简单理解成函数。
*.* *是通配符,第壹个*是文件名,第二个*是文件格式。如果只要excel文件,就修改为*.xls。
/b 是使用空格式,没有标题信息之类得。
list.txt是生成得文件类型和名字。
综上所述,如果是生成excel文件得目录,并以excel来呈现,命名为目录,语句就改为DIR *.xls /B >目录.xls
..
再说下VBA得方法,照例先上操作动画:
代码得核心是DIR语句,注释部分业已作了解释,这里就不再啰嗦了。
Sub FileDir()
Dim p$, f$, k&
'获取用户选择文件夹得路径
With Application.FileDialog(msoFileDialogFolderPicker)
'选择文件夹
.AllowMultiSelect = False
'不允许多选
If .Show Then
p = .SelectedItems(1)
'选择得文件路径赋值变量P
Else
Exit Sub
'如果没有选择保存路径,则退出程序
End If
End With
If Right(p, 1) <> "" Then p = p & ""
f = Dir(p & "*.*")
'返回变量P路径下带任意扩展名得文件名。如果超过一个文件存在,函数将返回按条件第壹个找到得文件名。
'如果一个文件都没有,则f返回""
[a:a].ClearContents '清空A列数据
[a1] = "目录"
k = 1 'K
Do While f <> "" '如果f不等于"",则……
k = k + 1 '累加K
Cells(k, 1) = f
f = Dir
' 若第二次调用 Dir 函数,但不带任何参数,则将返回同一目录下得下一个文件。
Loop
MsgBox "OK"
End Sub
小思考:
如何用VBA判断某个文件夹下是否存在名称为“看见星光”得工作簿?方法有很多种哦~