Inputting values into an Array as Text from Text Input mode

Hi Guys,

I'm trying to get text into an array and then use it to form the basis of a folder location but I keep getting a mismatch error.

 
    SourceFolder = Application.InputBox("Enter Source Folder Name. Make sure you do not have any spaces at the end of the line and make sure the line ends with a \ (backslash)", "Source Folder Name", Type:=2)
    ArraySource = Application.InputBox("Enter in the list of file numbers, make sure they are separated by commas", "Enter Comma Separated List", Type:=2)
    EditedArray = Split(Trim(ArraySource), ",")
    FloorPlans = Array(EditedArray)
    Naming = "Floor Plan"
    Extension = ".xls"
    
    For K = 0 To UBound(FloorPlans)
    
    fullpathname = SourceFolder + Naming + FloorPlans(K) + Extension
    Set SrcBook = Workbooks.Open(fullpathname, UpdateLinks:=0)

So basically, I have a folder of files eg
Floor Plan A001.xls
Floor Plan A002.xls
...
Floor Plan Z999.xls

And I want to selectively open and print a subset of files. So the first text input will take in the folder I'm after for example:
"C:\Temp\"

The second input will take in the numbers I want, for example,
A001, B003, C005

And I want it to generate the fullpath of "C:\Temp\Floor Plan A001.xls" so that Excel knows which file to open.

I'm not sure how to assign my variables so that I don't get a mismatch error.

Oh, the reason why I need to do it in this manner is because I need to open and print files in a specific order.

I didn't include the rest of the macro where it prints etc, but basically, I don't need the entire folder, I just need to print specific files from it in a specific order governed by the input.

Any ideas on how to do it?
Thanks!
J

Try this

    SourceFolder = Application.InputBox("Enter Source Folder Name. Make sure you do not have any spaces at the end of the line and make sure the line ends with a \ (backslash)", "Source Folder Name", Type:=2)
    If Not Right(SourceFolder, 1) = "\" Then SourceFolder = SourceFolder & "\"
    
    ArraySource = Application.InputBox("Enter in the list of file numbers, make sure they are separated by commas", "Enter Comma Separated List", Type:=2)
    FloorPlanArray = Split(Trim(ArraySource), ",")

    Naming = "Floor Plan"
    Extension = ".xls"

    For K = 0 To UBound(FloorPlanArray)
        fullpathname = SourceFolder + Naming + FloorPlanArray(K) + Extension
        Set SrcBook = Workbooks.Open(fullpathname, UpdateLinks:=0)
        ' More code here?
    Next

You might need

Naming = "Floor Plan "

(Note the trailing space)
To concatenate your file name.

Hope this helps

Why don't you use:

Sub snb()
  For Each fl In Application.GetOpenFilename(",*.xls", , , , True)
    Workbooks.Open fl
  Next
End Sub

I actually worked out what the bug was in my code. I double used the array by accident not knowing the split returns an array.

I couldn't use the get folder because it I needed to print in the order that the input values were placed in. So if i grabbed the folder, it would print in numerical order and that wasn't what I needed.

Thanks heaps for the responses though!

Marcol, thanks heaps!! It was your code that made me realise that I doubled up on the array