open excel file with partial name

[gt213]

I'm looking to open an excel file in a folder, where i know the folder path and the first part of the file name.

The partial file name is in cell b3 of sheet "Control" on WB1 (it is generated using a formula so isnt text).

I then what to open the file and copy all worksheets over to WB1.

 

[oldbrewer]

say the file is robert.xls and B3 contains rob - you need a lookup table where when rob is submitted, robert is returned, then use concatenation to build the file path....

 

[gt213]

So the partial file name in B3 contains a date that changes and the rest of the file name that i want to open includes some random numbers at the end that i dont know in advance, so cant use a look up table.

I've tried the below but get an error on the file line of code - i think due to how it is referencing the *

Dim MyFolder As String
Dim MyFile As String
Dim wb As Workbook


MyFolder = "G:\In\IEIndex\Recon\File"
MyFile = Dir(MyFolder & Worksheets("Control").Range("B3").Value & "\*.xls")


Workbooks.Open Filename:=MyFolder & "" & MyFile

 

[gt213]

Update:

I changed the code below slightly and it now works perfectly:

Dim MyFolder As String
Dim MyFile As String
Dim wb As Workbook


MyFolder = "G:\In\IEIndex\Recon\File"
MyFile = Dir(MyFolder & Worksheets("Control").Range("B3").Value & "*.xls")


Workbooks.Open Filename:=MyFolder & "" & MyFile