[英]How to call a module in ThisWorkbook in excel vba
I have some macros in Module1 inside modules ie Module1 has: 我在模块内部的Module1中有一些宏,即Module1具有:
Sub Macro1
' Code
End Sub
Sub Macro2
' Code
End Sub
Now, I want to call this entire Module1
in the ThisWorkbook
available within the Microsoft Excel Objects ie 现在,我想在Microsoft Excel对象中的
ThisWorkbook
调用整个Module1
,即
Inside ThisWorkbook
: 在本工作
ThisWorkbook
:
Sub CallingModule
**Call Module1 (I want to call in this way)**
End Sub
but, this is not the correct procedure to call. 但是,这不是正确的调用过程。 Please tell me the correct procedure to call a Module.
请告诉我正确的程序以调用模块。
Like Rory mentioned above you call specific routines, not an entire module. 就像上面提到的Rory一样,您可以调用特定的例程,而不是整个模块。 However if you want to call all the routines Macro1 , Macro2 , Macro3 etc from a module then is it possible?
但是,如果您想从模块中调用所有例程Macro1 , Macro2 , Macro3等,那可能吗?
YES 是
Please note that if your Module1
has SIMPLE ROUTINES as shown below then yes, it is possible to call all the procedures in a module. 请注意,如果您的
Module1
具有如下所示的SIMPLE ROUTINES ,则可以,可以调用模块中的所有过程。
Let's say you have these in Module1
假设您在
Module1
有这些
Sub Sample1()
MsgBox "I am Sample1"
End Sub
Sub Sample2()
MsgBox "I am Sample2"
End Sub
Sub Sample3()
MsgBox "I am Sample3"
End Sub
Sub Sample4()
MsgBox "I am Sample4"
End Sub
Now simply paste this code in Module2
. 现在,只需将此代码粘贴到
Module2
。 You also need to set a reference to Microsoft Visual Basic For Applications Extensibility xx.xx
library. 您还需要设置对
Microsoft Visual Basic For Applications Extensibility xx.xx
库的引用。
'~~> Code adapted from http://www.cpearson.com/excel/vbe.aspx
Sub CallModule1()
Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent
Dim CodeMod As VBIDE.CodeModule
Dim LineNum As Long, NumLines As Long
Dim ProcName As String
Dim ProcKind As VBIDE.vbext_ProcKind
Dim MyAr() As String
Dim n As Long
Set VBProj = ActiveWorkbook.VBProject
Set VBComp = VBProj.VBComponents("Module1")
Set CodeMod = VBComp.CodeModule
With CodeMod
LineNum = .CountOfDeclarationLines + 1
Do Until LineNum >= .CountOfLines
ReDim Preserve MyAr(n)
ProcName = .ProcOfLine(LineNum, ProcKind)
'~~> Store the routine names in an array
MyAr(n) = ProcName
n = n + 1
LineNum = .ProcStartLine(ProcName, ProcKind) + _
.ProcCountLines(ProcName, ProcKind) + 1
Loop
End With
'~~> This is where I am running every routine from Module1
For n = LBound(MyAr) To UBound(MyAr)
Run "Module1." & MyAr(n)
Next n
End Sub
Function ProcKindString(ProcKind As VBIDE.vbext_ProcKind) As String
Select Case ProcKind
Case vbext_pk_Get
ProcKindString = "Property Get"
Case vbext_pk_Let
ProcKindString = "Property Let"
Case vbext_pk_Set
ProcKindString = "Property Set"
Case vbext_pk_Proc
ProcKindString = "Sub Or Function"
Case Else
ProcKindString = "Unknown Type: " & CStr(ProcKind)
End Select
End Function
When you run the routine CallModule1()
, then each and every procedure from Module1 will run automatically. 当您运行例程
CallModule1()
,Module1中的每个过程将自动运行。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.