Can't import files, should be simple code

[Obfuscated]

I'm having trouble importing files. Here is just the import portion that I'm trying to build (that I can't make work).

Please Login or Register  to view this content.

I have all the files in place in the "dev" folder, but keep getting an error that the filename is not found.

The file names that will be imported are:
W14X99992.xls
W14X99588.xls
W14X99AHA.xls
and so on...

There may be as few as 2 files or as many as 20 files to include in this new workbook. They are not static names or I could simple name all the options, so I need a wildcard entry.

Many thanks.

[AlphaFrog]

Try something like this...

xl.Application.Workbooks.Open path1 & "\" & CurrentFileName

[Obfuscated]

I've tried that also. Keep getting the same error.
When I debug the lines, the path and file names are correct but I get the "File not found" error, check spelling, etc. messagebox.

I've attached the workbook I've started. The files trying to be opened are single sheet books with no macros.

[tigeravatar]

Obfuscated,

Give this a try:

Please Login or Register  to view this content.

[AlphaFrog]

Did you use exactly this?
xl.Application.Workbooks.Open path1 & "\" & CurrentFileName


Because that is not the same as this (from your code in the attached file) which uses the Dir function
xl.Application.Workbooks.Open Dir(path1 & "\" & CurrentFileName)

The Dir function only returns the file name which you already have in CurrentFileName

[Obfuscated]

Thanks guys for the help. You were right AlphaFrog, I did forget to change the "DIR" to "PATH1". It works great. Problem solved, onward to the next one.