Looking for some help, it's been a while....

[cweggleto81]

Hi Guys,Gals..

 

[Trebor76]

Not sure as it worked for me

So via Windows Explorer you can definitely see Excel files in the U:\New Charges\New Account Sheets\ directory??

 

[cweggleto81]

Yes, there is only one file in there at the moment. When I get the error message it looks like the \ is missing in the message but it is in the code as you can see. The only other thing I changed is .xls to .xlsx as that is the file format we have here at my job.

 

[cweggleto81]

VB Debugger highlights this line as the issue.

Set wb = Workbooks.Open(objFolder & objFile.Name)

 

[Trebor76]

Actually, try adding a backslash to this existing line...

Set wb = Workbooks.Open(objFolder & objFile.Name)

...so it looks like this and try again:

Set wb = Workbooks.Open(objFolder & "\" & objFile.Name)

The only other thing I changed is .xls to .xlsx

That will only find Excel files with that extension. If you want all Excel file types (xls, xlsx, xlsb etc) put it back to how it was. Also note that you cannot save Excel files with macros with a ".xlsx" extension as the macro will be lost.

Robert

 

[cweggleto81]

Robert,
Wonderful works perfect! You sir are a legend.

Chris

 

[Trebor76]

Thanks for letting us know and I'm glad MrExcel was able to provide you with a workable solution