Run an Add-in from another workbook

[TheCman81]

Hi All,

Thanks in advance.

Excel 2007

I'm looking for a macro to run the same Add-In on various different workbooks. Add-In name is "HRwsBTH"

I have about 20+ workbooks that I need to open and manually refresh my Add-In and it's very time consuming.

So what I would like to achieve with the macro is the following:

1. Open a file
2. Run the Add-In
3. Save the file
4. Close the workbook

I need these steps repeated for each workbook

Thanks

Colin

 

[TheCman81]

Sorry I don't get it... where do I add the other woorbooks I want to open?

 

[TheCman81]

Sorry I don't get it. Where do I add the other workbooks I want to open?

 

[TheCman81]

Also one more thing which I've just remembered, every workbook is in a different folder so they won't have the same file path

 

[wigi]

I took the stance that all workbooks reside in the same folder. Dir() can loop through them easily.
If not, you'll have to specify the folders and (possibly) the file names.
for example, looping through column A in a certain file, which contains the exact paths and file names.
You'll find such coding a lot on boards like MrExcel, especially with 300+ posts you will certainly be able to find such similar codes.

 

[TheCman81]

I always search before I post anything and I couldn't find anything that fits my situation! Hence why I'm looking for help with this.

Any help would be appreciated

Thanks

C

 

[wigi]

With respect to my previous post - how are you going to use it?
Will you specify all folders and filenames? How should the code be able to "find" the files to be opened?

 

[TheCman81]

I could list all file paths on one column like you suggested in the last post if that makes for easier coding?
Due to having 20+ workbooks I would prefer it if one file is opened at a time

Cheers

 

[wigi]

If you list (only) the file paths, does this mean that the filename is always the same?

 

[TheCman81]

No all file names and paths will be different

 

[wigi]

If you use column A cells to provide (correct!) paths and filenames, this could work:

Sub GetFilesInLoop()
    Application.ScreenUpdating = True


    For Each c In Columns(1).SpecialCells(2, 2)
        
        With Workbooks.Open(c.Text)
            Run "HRwsBTH.xla!Refresh"
            .Save
            .Saved = True
            .Close 0
        End With
        
    Next


End Sub