VBA to open files to import into calculator

[Marit88]

Hello all, my first time here and beginning VBA user. I designed a calculator which compiles and interpretes the results of 9 different sets of output from image analysis software. I always name the 8 output files identical: 1 to 9 (excel workbooks). To start the calculator I use a messagebox which allows me to navigate to the particular location from which I would like to open the 9 workbooks (see below code). What currently happens is that if I don't select any files I exit the sub. What I would like is for the sub to end if I don't select 9 files (<9). As I mentioned I am a beginner but can't find the solution anywhere. Much thanks.

Dim fd As FileDialog
Dim file_was_chosen As Boolean


Set fd = Application.FileDialog(msoFileDialogOpen)


With fd
.Filters.Clear
.Filters.Add "Excel File", "*.xl*"
End With


file_was_chosen = fd.Show


If Not file_was_chosen Then
MsgBox "You didn't select a file"
Exit Sub
End If


fd.Execute

 

[Fluff]

Hi & welcome to MrExcel.
Try

If fd.SelectedItems.Count < 9 Then
   MsgBox "You didn't select 9 files"
   Exit Sub
End If

 

[Marit88]

Thank you for your quick reply - I pasted it in straight away and it works! Many thanks

 

[Fluff]

You're welcome & thanks for the feedback

 

[Marit88]

Actually I should have been more precise - which operator would I use if I want to exit the macro if the number of files + not 9? So it also doesn't run of I select 10 files? I tried the following but it doesn't work.
Thanks!
If fd.SelectedItems.Count =NOT 9

 

[Fluff]

Almost got it, the NOT should go after the if

If Not fd.SelectedItems.Count =9

 

[Marit88]

Actually I just managed to sort it with the following

If fd.SelectedItems.Count < 9 Then
MsgBox "You didn't select 9 files"
Exit Sub


End If

If fd.SelectedItems.Count > 9 Then
MsgBox "You selected too many files"
Exit Sub

End If

 

[Marit88]

Thank you Fluff, it's shorter that way! Much appreciated.

 

[Fluff]

You're welcome