请问：如何获取与文件夹下相同顺序的文件名数组

cpin

    图片需要按文件夹中的顺序依次插入文件，但获取的文件名数组与文件夹中的图片顺序并不一致，用什么办法能够取得一致呢，请各位老师指点一下，谢谢！

582766

后面排序吧

cpin

582766 发表于 2022-11-24 21:14
后面排序吧

    试了在电子表格中排序，只能按数值排序，没有达到预期。

582766

cpin 发表于 2022-11-24 21:22
试了在电子表格中排序，只能按数值排序，没有达到预期。

这样做的目的是什么 ，有什么意义 后面是还需要什么样的操作，可以结合需求更换思路

cpin

582766 发表于 2022-11-24 21:30
这样做的目的是什么 ，有什么意义 后面是还需要什么样的操作，可以结合需求更换思路

    目的是把图片按文件夹中的顺序依次插入Word文档。

ykcbf1100

可以使用冒泡排序。

3190496160

Sub 冒泡法()
Dim br()
ReDim br(1 To 50000, 1 To 3)
lj = ThisWorkbook.Path & "\测试图片\"
f = Dir(lj & "*.jpg")
Do While f <> ""
    n = n + 1
    br(n, 1) = n
    br(n, 2) = f
    br(n, 3) = Val(Mid(Split(f, ".")(0), 2))
f = Dir
Loop
For i = 1 To n
    For s = i + 1 To n
        If br(i, 3) > br(s, 3) Then
            For j = 1 To 3
                k = br(i, j)
                br(i, j) = br(s, j)
                br(s, j) = k
            Next j
        End If
    Next s
    br(i, 1) = i
Next i
With Sheet1
    .[a1].CurrentRegion.Offset(1) = Empty
    .[a2].Resize(n, 2) = br
End With
MsgBox "ok!"
End Sub

3190496160

获取文件名.rar (1.19 MB, 下载次数: 11)

2022-11-25 10:33 上传

点击文件名下载附件

cpin

ykcbf1100 发表于 2022-11-25 08:57
可以使用冒泡排序。

    谢谢ykcbf1100老师，完美解决问题！

cpin

3190496160 发表于 2022-11-25 10:33

    谢谢3190496160老师，也是一样完美解决了问题！