Open an excel file and automatically attach a specific sheet to it from another file.

[tvagge]

Hi guys,

This is maybe a little bit extreme and off-topic (!)....
Is there a way when I open an excel file named "db*****" (e.g db12525, db25658, db98745, etc), a specific sheet (named "calc" from another file named calculate.xls) to be attached to the opened file automatically ?

 

[Sektor]

In Workbook's module (ThisWorkbook):

Private Sub Workbook_Open()
    Dim wkbCalc As Workbook
    Set wkbCalc = Workbooks.Open("FULL_PATH_TO_CALC_WORKBOOK")
    wkbCalc.Sheets("calc").Copy ThisWorkbook.Sheets(1)
    wkbCalc.Close False
End Sub

 

[tvagge]

Wow! That was fast!

I didn't get it to work...
Let me explain again:
I have multiple files named like "db*****". These files are created by a database, with different file name everytime.
I want everytime I open these kind of files (and trust me, these files are many...), a specific sheet named "calc" from a specific xlsm file named "calculate.xlsm" to be attached to the file I open automatically.
E.g:
When I open the file named "db12345.xls", the sheet "calc" automatically to be attached to it.
When I open the file named "db12222.xls", the sheet "calc" automatically to be attached to it.
When I open the file named "db13212.xls", the sheet "calc" automatically to be attached to it.
etc...

 

[Sektor]

I see. You won't be able to this manually because macros must exists in those db*** workbooks.
To make it happen, you must programmatically (i.e. from macros in root workbook) open those db** files.