Code Problem, Need Advice on opening Files

[kmraz]

how would I open all excel files in a folder that has something in the file name before
PO-xxxx-xxxx-xxx

so if it has FTL47934-PO-Tire Kingdom-1037-5-21-13 it will open the file but if it looks like this it leaves it alone PO-Tire Kingdom-1037-5-21-13

the files are all located in a folder called poreqform

[AlphaFrog]

Please Login or Register  to view this content.

[FDibbins]

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution.

Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.

To change a Title on your post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

[kmraz]

This is what I tried and got a error at strFile = Dir$ (should this be moved to the end)?

Sub savepotofolder()

Dim strFile As String, strpath As String
strpath = "D:\new sws folder\maintenance\poreq\"
strFile = Dir$(strpath & "*PO*.xls*")
Do While Len(strFile)
If strFile Like "*?PO*" Then Workbooks.Open strpath & strFile
strFile = Dir$

' saves poreqform with the file name taken from cell k69 in poreq folder
Sheets("poreqform").Select
Sheets("poreqform").Copy
thisfile = Range("k69").Value
strFolder$ = "D:\new sws folder\maintenance\poreq\" & Split(thisfile, "-")(3)
If Len(Dir$(strFolder$, vbDirectory)) = 0 Then MkDir strFolder$
ActiveWorkbook.SaveAs Filename:=strFolder$ & "\" & thisfile
ActiveWorkbook.Close

Loop





End Sub

[AlphaFrog]

Please Login or Register  to view this content.

[HaHoBe]

Hi, kmraz,

you post does not follow the forum rules: no code tags, posted as http://www.excelforum.com/excel-prog...-problems.html as a new thread.

CIao,
Holger

[FDibbins]

kmraz, I strongly advise you to take a few moments and read the forum rules, it will make it much easier for all of us.

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code in [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

Edit: and please do not post duplicate threads. I have closed the other 1, you can continue here