modify macro to execute based on current path

I

intoit

I've been using the macro below, which works a great. However, I would like
to modify the macro such that the directory path does not have to be
specified. That is, instead, the macro would identify the path of the
orginally opened workbook (from which the macro is executed) and then look
within that path for the folder named 'Groups', and then execture the called
macro on all of the workbooks within the Groups folder.

I thought it would be as simple as adding:

Dim MyPath As String
MyPath = Application.ThisWorkbook.path

and

Const path = MyPath & ("Groups") & "\"

....but that didn't work (i.e., debugger says the path can not be found. Any
advice greatly appreciated.


Sub ProcessAllFiles()

Dim sFile$

Const path = "C:\Groups\"

sFile = Dir(path & "*.xls")
Do While sFile <> ""
'the new workbook will become active
Workbooks.Open (path & sFile)
'run your macro here
Call gema_fit_calculations_groups
'however make sure that the new workbook
'remains active throughout the macro
'Macro1
ActiveWorkbook.Close savechanges:=True
sFile = Dir
Loop

End Sub
 
J

Jacob Skaria

Declare myPath outside the procedure as a public variable and

Public myPath As String

Sub ProcessAllFiles()
MyPath = Thisworkbook.Path & "\Groups\"

'your code
End Sub


If this post helps click Yes
 
P

Per Jessen

Hi

First, as Path is already used in VBA as keyword, I wouldn't use it as
variable. It is better to use something like MyPath.

Second, if you add:

MsgBox paht

after the variable has been assigned, you will see, that the path string is
missing a backslash!

MyPath=MyPath & "\Groups\"

Hopes this helps.
....
Per
 
I

intoit

Thanks for the responses. It seems that the adjustments to the code find the
workbooks that are within the same folder as the activeworkbook (folder named
'Test_Split_Long'), rather than going the extra 'step' of finding the files
within the folder named 'groups' The message box reads
F:\VBA\Test_Split_Long\Groups\

Any ideas? Thanks.


Public myPath2 As String

Sub ProcessAllFiles()

Dim sFile$
'Dim myPath2 As String
'MyPath2 = Application.ThisWorkbook.path
'Const path = "C:\Groups\"
'MyPath2 = MyPath2 & "\Groups\"

myPath = ThisWorkbook.path & "\Groups\"
MsgBox myPath

sFile = Dir(path & "*.xls")
Do While sFile <> ""
'the new workbook will become active
Workbooks.Open (path & sFile)
'run your macro here
Call gema_fit_calculations_groups
ActiveWorkbook.Close savechanges:=True
sFile = Dir
Loop

End Sub
 
I

intoit

Ah, I neglected to change the 'path' statements throught the macro to
'myPath'. It works, now, although, strangely, once it runs through all of the
files within the 'Groups' folder once, it tries go through a second time
(which it didn't do when the macro specified the path directly.

Public myPath2 As String
Sub ProcessAllFiles()

Dim sFile$

myPath = ThisWorkbook.path & "\Groups\"
'MsgBox myPath

sFile = Dir(myPath & "*.xls")
Do While sFile <> ""
'the new workbook will become active
Workbooks.Open (myPath & sFile)
'run your macro here
Call gema_fit_calculations_groups
ActiveWorkbook.Close savechanges:=True
sFile = Dir
Loop

End Sub
 
J

Jacob Skaria

The public variable declared is myPath2 (have you noticed this..) That should
be myPath to acess the variable from other modules...

If this post helps click Yes
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top