[求助]有什么方法统计VBA代码的行数?

okmijn

[求助]有什么方法统计VBA代码的行数?

okmijn

有人知道吗？

一点通

未见过这样的例子,如是急需知道行数,可以将代码复制到Excel中去,结果马上就有

andymark

CountOfLines 属性

参阅应用于[url=mkMSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acproCountOfLines.htm#example]示例[/url]特性

CountOfLines 属性返回 [url=mkMSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acproCountOfLines.htm#]Long[/url] 型值，指出[url=mkMSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acproCountOfLines.htm#]标准模块[/url]或类模块中的代码行数。Long 型，只读。

expression.CountOfLines

expression      必需。返回“应用于”列表中的一个对象的表达式。

设置

AllDataAccessPage 属性仅在使用 Visual Basic 时才可用，并且是只读属性。

说明

模块中的行从 1 开始编号。

模块中最后一行的行数是 CountOfLines 属性的值。

示例

以下示例将计算 Modules 集合中每个标准模块的行数和声明的行数。请注意，Modules 集合只包含在模块编辑器中打开的模块。

1. Public Sub ModuleLineTotal(ByVal strModuleName As String)
   
   
2. 
   
   
3.     Dim mdl As Module
   
   
4. 
   
   
5.     ' Open module to include in Modules collection.
   
   
6.     DoCmd.OpenModule strModuleName
   
   
7.    
   
   
8.     ' Return reference to Module object.
   
   
9.     Set mdl = Modules(strModuleName)
   
   
10.    
    
    
11.     ' Print number of lines in module.
    
    
12.     Debug.Print "Number of lines: ", mdl.[b]CountOfLines[/b]
    
    
13.    
    
    
14.     ' Print number of declaration lines.
    
    
15.     Debug.Print "Number of declaration lines: ", _
    
    
16.         mdl.CountOfDeclarationLines
    
    
17.         
    
    
18. End Sub

复制代码