对files(i)排序

zhaodx

大家好！我们有时从多个文件提取数据时，用到file=application.getopenfilename(),想知道能否对file(i) 按照存储在file(i)其中某一单元个数据的大小对file(i)进行排序

zhaogang1960

不太懂，请参考：
Private Sub CommandButton1_Click()
    Dim file, i As Integer
    file = Application.GetOpenFilename(fileFilter:="Microsoft Excel Files (*.xls;*.xlsx),*.xls;*.xlsx", MultiSelect:=True, Title:="打开")
    If TypeName(file) = "Boolean" Then Exit Sub
    Application.ScreenUpdating = False
    Columns(1).ClearContents
    For i = 1 To UBound(file)
        Cells(i, 1) = file(i)
    Next
    Range("A1").Resize(UBound(file)).Sort Key1:=Range("A1"), Order1:=xlAscending
    Application.ScreenUpdating = True
End Sub

zhaodx

这个是不是对选择的文件按照其修改日期对文件进行排序的。我的意思是按照所选文件的里面的某一单元格的数值（比如每个文件在同位置的单元格都含有日期），按照这日期对文件进行排序

zhaogang1960

这是对用打开对话框提取文件的全名称进行排序，不知道哪里用日期