(不急)關於巨集統計之問題 (VBComponents)

[yem]

請問可不可以寫一個巨集，求出一個workbook中全部的
sub、function、property程序名稱
且將它們各有幾行(不包括註解)，分佈在什麼地方(如sheet1、module1、class1….等) 列出
例如：

種類	程序名	位置	行數
sub	test1	module1	15
property	val	cmdClass	4

不急用，只是想討論寫法，如版主沒時間先從急用的回答吧!謝謝!!

[leonchou]

這問題問的好，了解VBComponents的結構也可做為類似問題的基礎。
注意事項 --
1. 以下要處理的Workbook必須已開啟。
2. 我不確定是否可列出Properties程序，你可試試。

Sub list_MyCodes()
r = 2
[A1:D1] = Array("種類", "程序名", "位置(模組)", "行數")
Set wb = Workbooks("tvprogram.xls") '要處理的Workbook
For Each VBC In wb.VBProject.VBComponents
　　With VBC.CodeModule
　　　　startLine = .CountOfDeclarationLines + 1 '由宣告區之後開始
　　　　While startLine + numLines < .CountOfLines
　　　　　　procName = .ProcOfLine(startLine, vbext_pk_Proc)
　　　　　　numLines = .ProcCountLines(procName, vbext_pk_Proc)
　　　　　　line1 = .Lines(.ProcBodyLine(procName, vbext_pk_Proc), 1)
　　　　　　procType = Replace(Replace(Left(line1, InStr(line1, procName) - 2), _
　　　　　　　　　　　　　　"Private ", ""), "Public ", "")
　　　　　　Cells(r, 1) = procType
　　　　　　Cells(r, 2) = procName
　　　　　　Cells(r, 3) = VBC.Name
　　　　　　Cells(r, 4) = numLines
　　　　　　startLine = startLine + numLines
　　　　　　r = r + 1
　　　　Wend
　　End With
Next
End Sub

註：
ProcStartLine 和 ProcBodyLine屬性可能會令人混淆，故說明如下--
ProcStartLine：若該程序名稱上方含有註解，會傳回第一行註解的行號。
ProcBodyLine：始終傳回程序名稱所在那一行的行號。

[yem]

謝謝版主，收下研究，有問題再請教版主

[leonchou]

貼上來變亂碼，那要不要改上傳檔案?
讓我們看看較完整的代碼是什麼樣

[yem]

object.ProcOfLine(line, prockind) As String
prockind原來跟一些API參數一樣，可以返回資料來判斷程序種類，這種類型的參數在excel中，好像並不常見，Help中也沒提到


貼了4、5次都貼不好，上傳文件好了

剛又刪了一行

[附件已被管理員刪除]