Excel 求助,如何利用宏自动生成目录
发布网友
发布时间：2022-04-23 14:12
共3个回答
热心网友
时间：2022-04-26 19:07
使用VBA功能，可以轻松实现，代码如下：可以提取和代码所在的Excel文件同目录下的所有文件名，依次在A列的单元格列出。
Sub 提取文件清单()
Dim k As Integer
Dim MyName As String
Dim MyPath As String
MyPath = ThisWorkbook.Path
MyName = Dir(Range("a1") & "\", vbDirectory)
Range("A2:A999").ClearContents
k = 1
Do While MyName <> ""
k = k + 1
Range("A" & k) = MyName
MyName = Dir
Loop
If k > 1 Then
MsgBox "已成功提取 " & k - 1 & " 个文件名。", vbOKOnly, "提示"
Else
MsgBox "Data文件夹内没有文件！" , vbOKOnly + vbExclamation, "提示"
End If
End Sub
热心网友
时间：2022-04-26 20:25
把硬盘某个文件里的所有文件，
生成目录？（提取文件名）
要编写代码用
DIR
还要提供 路径
热心网友
时间：2022-04-26 22:00
没必要那么麻烦
把目录名字放在1列，左边那列 填重 md
拷贝此2列到记事本
把tab替换成 空格
保存为 bat 文件
拷贝此文件到 预期目录
双击运行
