Visual Basic - Obtener el "Name" de los formularios

Life is soft - evento anual de software empresarial
   
Vista:

Obtener el "Name" de los formularios

Publicado por Ezequiel (3 intervenciones) el 11/05/2010 14:06:09
Estimados,

Estoy realizando una aplicación en Excel y desearia saber como obtener a través de un procedimiento o función el "Name" de todos los formularios que posee la aplicación.
Estuve buscando en la ayuda pero no logro darme cuenta de esa información.
Desde ya muchisimas gracias

Ezequiel
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Obtener el Name

Publicado por Jackson Cruz (15 intervenciones) el 12/05/2010 18:51:55
j = Excel.Worksheets.Count
For i = 1 To j
MsgBox Sheets(i).Name
Next
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Obtener el Name

Publicado por Ezequiel (3 intervenciones) el 12/05/2010 19:34:02
Gracias Jackson Cruz por tu respuesta, pero lo que estoy buscando es obtener el Name de los formularios que uno crea cuando utiliza VBA (ALT+F11), me explico?
Me refiero a los formularios "forms", tu me haces referencia a las hojas de trabajo (sheets), gracias
Ezequiel
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Obtener el "Name" de los formularios

Publicado por Jackson Cruz (15 intervenciones) el 13/05/2010 00:10:17
Dim i As Long
Dim Tipo As String
Dim temp As String
Dim nObj As Integer

nObj = Workbooks.Count ' cantidad de obj

' recorre los objetos
For i = 1 To nObj

With Workbooks.Item(i)

' tipo de objeto ( 1 módulo,3 userform,2 class module, etc..)
Select Case .Type
Case 3
Tipo = "UserForm"
End Select
temp = temp & i & " - " & "Nombre: " & .Name & " Tipo: " & Tipo & vbCrLf

End With

Next
' resultado
MsgBox temp, vbInformation
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Obtener el

Publicado por Ezequiel (3 intervenciones) el 17/05/2010 01:15:38
Gracias, me fue de gran ayuda, un abrazo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar