如何用excel宏提取文件名生成目录？

如题所述

推荐答案推荐于2016-07-04

在当前文件夹下新建一个EXCEL,打开VBE,复制代码,运行.

Public Sub fnlist()
Dim fn As String
Dim Path As String
Path = ThisWorkbook.Path
fn = Dir(Path & "\*.*")
[A1] = "目录"
Do Until fn = ""
[a655].End(xlUp).Offset(1, 0) = fn
fn = Dir
Loop
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：http://11.wendadaohang.com/zd/228MM222S.html

相似回答

WPS利用Excel生成文件夹目录的方法答：Excel文件夹生成目录有两种方法，现在我们就来了解一下这两种方法吧！第一种: 在我们按下Ctrl+F3之后表格就会出现自定义名称的对话框，然后取名为X，在【引用位置】中框中输入：=MID(GET.WORKBOOK(1),FIND(“]”,GET.WORKBOOK(1))+1,100），然后我们点击【确定】：第二种:我们可以用HYPERLINK函数...

大家正在搜

批量提取文件名到excel 怎么提取文件的文件名 excel无法打开xlsx文件 csv文件怎么转成excel vray安装文件名目录名不正确 excel文件名 excel怎么改文件名 excel文件名后缀文件名导入excel