zoukankan      html  css  js  c++  java
  • VBA 检查模块中是否有某个函数

    Function FindProcedures(ByRef wb As Workbook, ByVal Proc As String) As Boolean
        On Error GoTo ExitFunction
       
        Dim VBComp
        Dim CodeMod
        Dim LineNum As Long
        Dim ProcKind
       
        For Each VBComp In wb.VBProject.VBComponents
            If VBComp.Name = "模块1" Then
           
                With VBComp.CodeModule
               
                    For N = 1 To .CountOfLines
                        s = .Lines(N, 1)
                        If InStr(s, Proc) > 0 Then
                            FindProcedures = True
                            Exit Function
                        End If
                       
                    Next
                End With
           
            End If
        Next
       
        Exit Function

  • 相关阅读:
    克隆对象和对象的继承
    面向对象的目的和方式
    补充+复习
    正则的一些细节和拖拽时遇到的问题及解决方法
    js高级正则解析
    正则理解
    如何判断this指向?
    动画以及运动
    元素节点
    null和undefined的区别
  • 原文地址:https://www.cnblogs.com/lbnnbs/p/4784890.html
Copyright © 2011-2022 走看看