excel - 按修改日期的顺序将图像获取到数组中（升序）

Question

我必须将图像导入数组，然后将这些图像插入到 Excel 工作表中。

我有一个代码，它将所有文件的名称放入一个数组中并一个一个地插入。但订单混乱。我使用了 Dir() 方法

Do While sFile <> ""
    aFileNames(nCounter) = sFile
    sFile = Dir
    nCounter = nCounter + 1

    If nCounter > UBound(aFileNames) Then
        ReDim Preserve aFileNames(UBound(aFileNames) + 255)
    End If

Loop

我需要在修改日期（升序）中获取文件名数组。以便首先插入第一次保存的第一张图像

标签： excelvba