Importing a .bas file into an excel to run the code in another one

[AminShailja]

Hello,
I am trying to import a .bas file into an Excel1. but it directly saves as a Class module, while I need it to be saved as a module or in as a Excel object.
Also when I try to run the module, it gives error.

Please help me with this.

Below is the code I am trying for it.

Sub importfile1()

Dim VBProj As Object 'VBIDE.VBProject
Dim myFileName As String

Workbooks.Open ("File1")
myFileName = "importfile.bas"
'MsgBox (ActiveWorkbook.Name)
Set VBProj = Nothing
On Error Resume Next
Set VBProj = ActiveWorkbook.VBProject
On Error GoTo 0

If VBProj Is Nothing Then
MsgBox "Can't continue--I'm not trusted!"
Exit Sub
End If

VBProj.vbcomponents.Import myFileName

Application.Run ("'file2'!sheet11.Macro1")

End Sub

 

[smozgur]

Your code works correctly and inserts the module as module into the File1.xlsx (or File1.xlsm - whichever you have in the same folder with this workbook) file.

However, I am not sure about the Application.Run ("'file2'!sheet11.Macro1").

If you are trying to run a macro called Macro1 in the imported module (imporfile.bas), then you should use:

Application.Run ("'file1'!Macro1")

Yes, file name should also match - File1.

 

[AminShailja]

No, for me it directly opens a class module and imports it there.
Is it possible that I would need to do any system changes to import the file as a module?