Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Libro sin hojas

22/06/2007 - 02:32 por Listero | Informe spam
Ayuda Hacer una pregunta
Hola, encontre este archivo de excel:

http://esnips.com/doc/2f6f2873-f9a9...-31082006.

como ven, tiene modulos pero no hojas!!!!!! Como se puede crear algo
asi?????? Intente verlo colocando esto en la ventana inmediato, pero
nada :

windows("Jerarquía Ventana 31082006..xls").Visible=True

y tambien:

windows("Jerarquía Ventana 31082006.").Visible=True (asi es el nonbre
con un punto al final)

Si ven el archivo, casi todos los menus estan inhabilitados, como sino
hubiese un archivo abierto. Alguien sabe como o lograrlo??

Karla
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Arcano
22/06/2007 - 19:00 | Informe spam
Karla, mirando el codigo;:
- ThisWorkbook:
Option Explicit
Private Sub Workbook_Open(): FJerarquía.Show: End Sub
- Hoja1:
Option Explicit
- Modulo1:
Option Explicit

Declare Function GetDesktopWindow Lib "user32" () As Long:
Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal
wCmd As Long) As Long

Public Const GW_CHILD = 5: Public Const GW_HWNDNEXT = 2: Public
gsDirRango As String
Public Sub GenerarReporte(): Dim lHwnd As Long: Dim clsInf As New
CInfVentana: With wksReporte: .Activate: .Cells.Clear: [A1] "Handle": [B1] = "Título de la ventana": [C1] = "Nombre de la Clase":
[D1] = "Nombre de la Aplicación": .Range("A2").Activate: lHwnd GetWindow(GetDesktopWindow(), GW_CHILD): clsInf.Handle = lHwnd: Do:
With ActiveCell: .Offset(0, 0).value = clsInf.HandleHex: .Offset(0,
1).value = clsInf.Título: .Offset(0, 2).value clsInf.Clase: .Offset(0, 3).value = clsInf.Aplicación: .Offset(1,
0).Activate: lHwnd = GetWindow(lHwnd, GW_HWNDNEXT): clsInf.Handle lHwnd: End With: Loop While lHwnd <> 0: gsDirRango Range(Range("A2:D2"),
Range("A2:D2").End(xlDown)).Address: .Range("A2").Activate: End With:
End Sub

a ver si te sirve de algo..

Preguntas similares

 

Busqueda sugerida :