Adapting VBA from Word to work in Excel

Thank you for your input. I receive the same error still. If I change it to Workbooks.Open Filename:="\" & Path & DirN the error states "\C:\ExcelTest\Testworkbook1.xls" cannot be found (cause of the \ in front of the drive), so why wouldnt Workbooks.Open Filename:=Path & DirN work? Seems like it should.

My bad. I didn't read the code carefully enough. The code I provided is suitable for ThisWorkbook.Path. But you are using a local variable called Path that has the delimiter appended. (That is why I never use a variable name that is the same as a built-in object method.)

Anyway, for your code, the correct line of code is, as you say:

Please Login or Register  to view this content.

I am guessing you have already tried it by now and found it works.

Thank you for your assistance. Workbooks.Open Filename:=Path & DirN should work but it is not. I am so perplexed by this. As I said im a total novice though i felt i was getting somewhere and this has stumped me all weekend.This part of the code works in Word, must be complicated to adapt to Excel.
Is there a better way to achieve what Im after, Folder Browser> Run Macro on all .xls files in Selected Folder and SubFolders? Im must be wrong somewhere. So stumped. Again thank you for your input.

First--I should have said this right away--when asking help for an error, always give the error message that you see. "should work but it is not" What does "not work" mean in this case?

This should work the same in Excel as it does in Word. I would suggest setting a breakpoint on that line of code then when it comes to that line type the following into the Immediate Window:

print Path & DirN

and see if the result is a full pathname that you expect.

Setting a breakpoint: Select the line of code and hit F9
Open the immediate window: Hit CTRL+g

Originally Posted by 6StringJazzer

First--I should have said this right away--when asking help for an error, always give the error message that you see. "should work but it is not" What does "not work" mean in this case?

This should work the same in Excel as it does in Word. I would suggest setting a breakpoint on that line of code then when it comes to that line type the following into the Immediate Window:

print Path & DirN

and see if the result is a full pathname that you expect.

Setting a breakpoint: Select the line of code and hit F9
Open the immediate window: Hit CTRL+g

Thank you. The error message I receive is "Run-time error '1004': Method 'Open' of object 'Workbooks' failed".

I have done what you suggested with the break point, upon entering "print Path & DirN" I get the path as C:\ExcelTest\TestFile.Xls.

Correction: It does work! Just tried with the above file, the one I was working with had an error. All of this time I never thought to try a different folder/file! Thank you for your help. Now I just have to research how to handle broken/errored files.

Can I ask one more question: How can I add an underscore at the end of outputted PDF file name?