VBA to Open Files in numerical order

[radonwilson]

My code is opening files in alphabetical order. I want to open them in numerical order.
I have 11 files in my folder with serial number and their names.
Code is opening file in this way : 1→10→11→2→3→4→5→6→7→8→9

Option Explicit

Sub check()

Dim FPath As String 'file's folder path
Dim FName As String 'file's name
Dim wbT As Workbook
Dim wbS As Workbook

Set wbT = ThisWorkbook



With Application.FileDialog(msoFileDialogFolderPicker)

    .Title = "Select your Folder"
    .ButtonName = "Select Folder"
    If .Show = 0 Then
    
        MsgBox ("Nothing was Selected")
    
    Else
    
        FPath = .SelectedItems(1) & "\"
            
    End If

End With

FName = VBA.FileSystem.Dir(FPath & "*.csv*")

Do Until FName = ""
    
        If wbT.Sheets(1).Range("A1").Value = "" Then
        
            Set wbS = Application.Workbooks.Open(FPath & FName)
            wbS.Sheets(1).Range("a1").CurrentRegion.Select
                  
        
        Else
        
        End If
        
    
    FName = Dir
    
Loop

End Sub

 

[Joe4]

In searching the web, I came across this post here: Excel VBA: Open multiple files in a specific order - OzGrid Free Excel/VBA Help Forum

That may be a little complex. Here are some other alternatives to consider:

1. Do the names of these file correspond with when the files were created? If so, maybe open them in the order they were last modified.
See: Excel VBA: Open multiple files in a specific order - OzGrid Free Excel/VBA Help Forum

2. The simplest method, if you have any control over how the file named are created, is to use a two digit number in the file name.
So instead of naming them like: 1→2→3→4→5→6→7→8→9→10→11,
name them like this: 01→02→03→04→05→06→07→08→09→10→11
Then the should open in the order you want without having to jump through a bunch of hoops or use some complex VBA code.

 

[radonwilson]

In searching the web, I came across this post here: Excel VBA: Open multiple files in a specific order - OzGrid Free Excel/VBA Help Forum

That may be a little complex. Here are some other alternatives to consider:

1. Do the names of these file correspond with when the files were created? If so, maybe open them in the order they were last modified.
See: Excel VBA: Open multiple files in a specific order - OzGrid Free Excel/VBA Help Forum

2. The simplest method, if you have any control over how the file named are created, is to use a two digit number in the file name.
So instead of naming them like: 1→2→3→4→5→6→7→8→9→10→11,
name them like this: 01→02→03→04→05→06→07→08→09→10→11
Then the should open in the order you want without having to jump through a bunch of hoops or use some complex VBA code.

I had also searched the web and came across the same solution like yours. I renamed the files with 2 digits and now these are opening in the numerical order as I wanted.
Thank you for the solution, I appreciate it.

 

[Joe4]

You are welcome!
I am glad you got it working the way you want now.