ztool

Herramienta de lista de problemas

 On Error GoTo ErrorHandler

Dim xlapp As Excel.Application

Set xlapp = GetObject(, "Excel.Application")

'xlapp.Visible = Verdadero

 Debug.Print xlapp.Workbooks.Count
For i = 1 To xlapp.Workbooks.Count
    Debug.Print xlapp.Workbooks(i).Name
Next

Set xlapp = Nothing

ErrorHandler: Establecer xlapp = CreateObject("Excel.Application") Salir Sub ' xlappWorkbooks.Open FileName:=Application.GetOpenFilename("Archivos de Excel ( . ), Archivos de Excel ( . )", "打开新的工作簿")