How to access another workbook's ThisWorkbook

[thatoneguy102]

Hello everyone, this is my first post!

I am trying to make some code to copy a module from my add-in, to the active workbook's ThisWorkbook module. I can't seem to figure out how to access it though. Here's the code I'm using:
<code style="margin: 0px; padding: 0px; font-style: inherit; font-weight: inherit;">Dim FName As String

With ThisWorkbook
FName = .Path & "\code.txt"
.VBProject.VBComponents("TestExport").Export FName
End With

ActiveWorkbook.VBProject.VBComponents.Import FName</code>

 

[MARK858]

You can try referencing the ThisWorkbook module like the below (on my phone so I can't test)

ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule

 

[thatoneguy102]

You can try referencing the ThisWorkbook module like the below (on my phone so I can't test)

ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule

This threw a Run Time Error 438 : Object doesn't support this property or method

 

[RoryA]

You can't import a ThisWorkbook module. You need to copy the code text to the existing codemodule.

Why do you need to do this?

 

[thatoneguy102]

You can't import a ThisWorkbook module. You need to copy the code text to the existing codemodule.

Why do you need to do this?

The code I need to copy over has Workbook_Open events, which need to be in ThisWorkbook as far as I know. I am somewhat new to VBA so if you know any other way that I can get a Workbook_Open event to run in something other than ThisWorkbook I'd appreciate that

 

[Norie]

How did you use this in your code?

ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule

 

[thatoneguy102]

How did you use this in your code?

ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule

I used it like this, as compared to my original post:

[COLOR=#574123][FONT=monospace]Dim FName As String[/FONT][/COLOR]

[COLOR=#574123][FONT=monospace]With ThisWorkbook[/FONT][/COLOR]
[COLOR=#574123][FONT=monospace]FName = .Path & "\code.txt"[/FONT][/COLOR]
[COLOR=#574123][FONT=monospace].VBProject.VBComponents("TestExport").Export FName[/FONT][/COLOR]
[COLOR=#574123][FONT=monospace]End With[/FONT][/COLOR]

[COLOR=#574123][FONT=monospace]ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").Import FName[/FONT][/COLOR]

 

[RoryA]

My question is really why do you need to do this rather than say using a template workbook that already has the code in it?