发布网友 发布时间:2022-04-21 03:02
共1个回答
热心网友 时间:2022-06-17 15:31
将文件名导入EXCEL,需要使用到VBA,
以下作了一个范例,希望对您有帮助。使用方法:
1、在B1单元格输入你需要导入文件名称的文件夹路径,如下图的方式:
2、点击“导入文件名”的按钮,则可完成。
具体代码如下:
Sub 导入文件名()
Range("A2:X10000") = ""
If Range("B1") = "" Then
MsgBox "请在B1单元格输入需导入文件的文件夹路径,谢谢!"
Exit Sub
End If
Dim fso, luj, wjs, wj, mz, wb
Dim n As Integer
Set fso = CreateObject("scripting.filesystemobject")
Set luj = fso.getfolder(Cells(1, 2).Text)
Set wjs = luj.Files
n = 0
For Each wj In wjs
n = n + 1
mz = wj.Name
Cells(n + 1, 1) = n
Cells(n + 1, 2) = Cells(1, 2).Text & "\" & mz
Cells(n + 1, 3) = mz
Next wj
If n < 2 Then
MsgBox "该路径下,未找到文件,请查看文件路径设置是否正确,谢谢!"
Exit Sub
End If
End Sub