excel not finding file with *

[jordanburch]

Hey everyone

I have the following path.

Workbooks.Open ("K:\SHARED\TRANSFER\Enterprise Wide Suspense Initiative\Source Files\CRIS\" & ThisWorkbook.Worksheets("Variables").Range("A4").Value & "\" & Left(ThisWorkbook.Worksheets("Variables").Range("A1").Value, 6) & "\" & "*.xlsx")

The path looks just fine and works on a different month, however this month it just says it cant find that file and shows it with the above path and the *.xlsx like the file should be named *.xlsx vs the acutal file name. Its the only file inside that path and I want it to open that file and just put the * it seemed to work before but now it doesnt that I tried it in a new month. Any ideas?

 

[Fluff]

That sounds as though the file cannot be found in the specified path.

 

[jordanburch]

That sounds as though the file cannot be found in the specified pa

K:\SHARED\TRANSFER\Enterprise Wide Suspense Initiative\Source Files\CRIS\FY21\04-January

CRIS TI97 3875 JAN 2020

so thats the path and it looks correct. doesnt the path have to be correct since im not referencing the file in the code directly?

The file name seems to be correct. I did open it and it worked fine.

 

[Fluff]

In order to open the file you have to supply the full file path & workbook name, including the extension.

 

[jordanburch]

In order to open the file you have to supply the full file path & workbook name, including the extension.

so I did a hybrid of the two suggestions and it worked here it is. Its weird because I dont reference the filename itself it just knows to pull it. Thanks for you help Fluff!

Sub CRISimport()
Dim wb As Workbook



 Workbooks.Open ("K:\SHARED\TRANSFER\Enterprise Wide Suspense Initiative\Source Files\CRIS\" & ThisWorkbook.Worksheets("Variables").Range("A4").Value & "\" & Left(ThisWorkbook.Worksheets("Variables").Range("A1").Value, 3) & ThisWorkbook.Worksheets("Variables").Range("A11").Value & "\" & "*.xlsx")
 

     Sheets("3875 Indy").Select
    Sheets("3875 Indy").Copy After:=Workbooks("Suspense automation.xlsm").Sheets(2)
 
End Sub

 

[Fluff]

Glad you sorted it & thanks for the feedback.