如何将文件名导入excel的方法

发布网友 发布时间：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