VBA小程序--获取文件夹所有的xls 和 xlsx 文件列表（相对路径 + 绝对路径）

返回相对路径（只有文件名）

Sub 获取文件列表()
    Dim m As Long, myFile
    MsgBox ("使用前请先查看路径是否需要变更，另外文件列表会写入当前活动工作表的第一列,确认请按Enter按键，取消请按Ctrl + PauseBaeak")
    mypath = "F:\每月例行-利润核算\"    '最后要加一个反斜杠，不然会认为是一个文件，而不是一个文件列表  嗯，应该是这样...
    myFile = Dir(mypath & "*.xls*")    '可以使用通配符，输出所有xls 和 xlsx 文件
    'Do Until Len(myfile) = 0 'Do until使用数组值变化，或者使用Do until =""
    'Do While myfile <> "" '或者使用 Do While <>""
    
    Do Until myFile = ""
        m = m + 1
        Cells(m, 1) = myFile    '会写入当前活动工作表的第一列 相对路径
        myFile = Dir
        'Debug.Print (Dir) '这句话如果添加监视器，或者输出，结果就会不对...果然是只可远观，不可..
    Loop
    
End Sub

返回绝对路径（路径 + 文件名）

Sub 获取文件列表()
    Dim m As Long, myFile
    MsgBox ("使用前请先查看路径是否需要变更，另外文件列表会写入当前活动工作表的第一列,确认请按Enter按键，取消请按Ctrl + PauseBaeak")
    mypath = "F:\每月例行-利润核算\"    '最后要加一个反斜杠，不然会认为是一个文件，而不是一个文件列表  嗯，应该是这样...
    myFile = Dir(mypath & "*.xls*")    '可以使用通配符，输出所有xls 和 xlsx 文件
    'Do Until Len(myfile) = 0 'Do until使用数组值变化，或者使用Do until =""
    'Do While myfile <> "" '或者使用 Do While <>""
    
    Do Until myFile = ""
        m = m + 1
        Cells(m, 1) = mypath & myFile    '会写入当前活动工作表的第一列 绝对路径
        myFile = Dir
        'Debug.Print (Dir) '这句话如果添加监视器，或者输出，结果就会不对...果然是只可远观，不可..
    Loop
    
End Sub