【请教】msbgox 显示模块中的一行内容

xdwy81129

文件有模块（学习）

请教如何用msbgox 显示该模块的第4行的内容，谢谢解答

安贤

Sub aa()
MsgBox 1
MsgBox 2
MsgBox 3
MsgBox 4
MsgBox 5
MsgBox 6
MsgBox 7
MsgBox 8
End Sub
Sub ReadSub()
Dim iStartRow As Integer, iCount As Integer, sTempStr As String
    With ThisWorkbook.VBProject.VBComponents("模块1").CodeModule
        iStartRow = .ProcStartLine("aa", vbext_pk_Proc)
        iCount = .ProcCountLines("aa", vbext_pk_Proc)
        sTempStr = .Lines(iStartRow, iCount)
'        Debug.Print sTempStr  '在立即窗口中打印代码
MsgBox .Lines(3, 1)
    End With
End Sub



放在模块1中的代码，自己改一下
.Lines(第Ｎ行开始, 共Ｎ行)

xdwy81129

回复 安贤 的帖子

       iStartRow = .ProcStartLine("aa", vbext_pk_Proc)
        iCount = .ProcCountLines("aa", vbext_pk_Proc)
这2句怎么解释，请麻烦再赐教下

安贤

大哥很好理解的吧Row，Count
.Lines(iStartRow, iCount)
是aa过程的所有代码
如果是整个模块的话，可以不要的．
放上去就是想让你改成自己想要的啦，大哥

xdwy81129

回复 安贤 的帖子

.Lines(iStartRow, iCount)
这个第一次就了解了
想开展的是
这2句怎么理解：
.ProcStartLine("aa", vbext_pk_Proc)
.ProcCountLines("aa", vbext_pk_Proc)