Sección de códigos , trucos y ejemplos para visual basic

408 - VBComponents para buscar macros en un libro de Excel

Contenido:

Ejemplo 1
Ejemplo 2
Ejemplo 3
Enlaces relacionados

Ejemplo 1

Función de ejemplo que utiliza la referencia a Microsoft visual basic For Applications Extensibility

La siguiente función accede a un libro de Excel, y mediante la referencia a VBComponents, se obtienen la cantidad de macros que hay en dicho libro.

Proyecto de ejemplo :

Agregar la referencia a Microsoft Vb For Applications Extensibility , desde el menú de referencias de vb
También añadir : Microsoft Excel Object Library
En el Load del form, indicarle la ruta del libro al cual acceder

Nota: el ejemplo, cuando recorre los módulos del WorkBook indicado, realiza un bucle para determinar si el módulo de código, es decir la macro, no está vacia, es decir que contiene código . Si el módulo existe pero está vacio, no lo toma en cuenta .

Código fuente en el Form

Option Explicit Sub BuscarMacros(Libro As Workbook) ' arreglo para almacenar los nombres Dim MacroName() As String Dim c As Long, n As Long Dim i As Long, lineas As Long With Libro.VBProject.VBComponents ' recorre los objetos de este libro ( módulos, hojas, libros etc.. ) For i = 1 To .Count With .Item(i) With .CodeModule c = .CountOfLines ' cantidad de lineas For lineas = 1 To c ' si el módulo está vacío sale If Trim(.Lines(lineas, 1)) <> "" Then Exit For End If Next End With If lineas <= c Then n = n + 1 ReDim Preserve MacroName(1 To n) ' redimensiona MacroName(n) = .Name ' agrega el nombre al arreglo End If End With Next End With ' visualiza el resultado If n > 0 Then MsgBox _ "Macros que contiene este Libro :" & vbCrLf & _ String(50, "-") & vbCrLf & Join(MacroName, vbCrLf), vbInformation Else MsgBox "No hay macros en este Libro", vbInformation End If End Sub Private Sub Form_Load() Dim ObjExcel As Object ' nuevo objeto Excel.Application Set ObjExcel = New Excel.Application ' abre el WorkBook ObjExcel.Workbooks.Open "c:\libro1.xls" ' le pasa el objeto WorkBooks como parámetro Call BuscarMacros(ObjExcel.ActiveWorkbook) ' cierra ObjExcel.quit Set ObjExcel = Nothing End Sub

Ejemplo 2

Obtener el código fuente de los módulos

Este es similar al anterior, pero añade los nombres en un ListBox, y al seleccionar el nombre, visualiza el código fuente en un textbox multilinea

Agregar las referencias indicadas en el primer ejemplo ( VbComponents y Ms Excel Object library ), mas un Commandbutton, un List1 y un Text1 Multilinea

En el form

Option Explicit Private Type TMacros NombreMacro As String CodigoFuente As String End Type Dim Macros() As TMacros Sub BuscarMacros(Libro As Workbook) Dim c As Long, n As Long Dim i As Long, lineas As Long Dim TempCodigo As String With Libro.VBProject.VBComponents ' elimina el arreglo Erase Macros ' recorre los objetos del libro ( los módulos, las hojas, los libros) For i = 1 To .Count With .Item(i) With .CodeModule c = .CountOfLines ' cantidad de lineas If c <> 0 Then ' obtiene las lineas y las almacena en TempCodigo For lineas = 1 To c TempCodigo = TempCodigo & .Lines(lineas, 1) & vbCrLf Next n = n + 1 ' redimensionamos ReDim Preserve Macros(1 To n) ' agregamos el nombre al array Macros(n).NombreMacro = .Name List1.AddItem .Name ' Añade al listbox ' Agrega el código Macros(n).CodigoFuente = TempCodigo TempCodigo = "" End If End With End With Next End With End Sub Private Sub Command1_Click() Dim ObjExcel As Object Set ObjExcel = New Excel.Application ' abrimos ObjExcel.Workbooks.Open "c:\libro1.xls" ' Pasamos el libro como parámetro Call BuscarMacros(ObjExcel.ActiveWorkbook) ' cierra el Excel ObjExcel.quit Set ObjExcel = Nothing End Sub Private Sub Form_Load() Command1.Caption = "Obtener" End Sub Private Sub List1_Click() If List1.ListIndex <> -1 Then ' carga el fuente en el text1 Text1 = Macros(List1.ListIndex + 1).CodigoFuente End If End Sub

Ejemplo 3

Obtener los objetos de un libro

Este otro ejemplo, realiza un bucle y lista los objetos del libro indicado, para obtener : el nombre y el tipo de los mismos ( UserForms, Módulos comunes, módulos de clase , hojas, libros). El resulatado se visualiza en un Msg Box

Para recupera el tipo , se consulta la propiedad Type dentro de la colección VBComponents

MsgBox ElLibro.VBProject.VBComponents.Item(i).Type

Ejemplo :

Colocar un commandbutton, e indicar el path del Xls en la llamada a la rutina ListarObjetos

Código fuente del formulario

Option Explicit Sub ListarObjetos(Libro As Workbook) Dim i As Long Dim Tipo As String Dim temp As String Dim nObj As Integer nObj = Libro.VBProject.VBComponents.Count ' cantidad de obj ' recorre los objetos For i = 1 To nObj With Libro.VBProject.VBComponents.Item(i) ' tipo de objeto ( 1 módulo,3 userform,2 class module, etc..) Select Case .Type Case 1 Tipo = "Módulo de código" Case 2 Tipo = "Módulo de clase" Case 3 Tipo = "UserForm" Case 100 Tipo = "Hoja/Libro" End Select temp = temp & i & " - " & "Nombre: " & .Name & " Tipo: " & Tipo & vbCrLf End With Next ' resultado MsgBox temp, vbInformation End Sub Private Sub Command1_Click() Dim ObjExcel As Object Set ObjExcel = New Excel.Application ' Ruta del libro ObjExcel.Workbooks.Open "c:\libro1.xls" ' Envía el libro como parámetro Call ListarObjetos(ObjExcel.ActiveWorkbook) ' Libera la memoria ObjExcel.quit Set ObjExcel = Nothing End Sub Private Sub Form_Load() Command1.Caption = "Obtener" End Sub

Recursos Visual basic 6.0 - Relacionados

Buscar en Recursos vb