Error al cerrar un libro abierto en VBA Userform

Question

En una subrutina, quiero abrir un libro, leerlo y cerrarlo.
Por alguna razón, me sale un error:

Run-time error '1004': 

Method 'Close' of object _Workbook failed 

he identificado un fragmento de código mínima para reproducir el problema.
Crea un archivo Excel nuevo. En él, crea una forma de usuario. Por eso, crear un botón de comando con el siguiente código de evento Click:

Private Sub CommandButton1_Click() 
    Dim filename As String 
    Dim opened_workbook As Workbook 

    filename = Application.GetOpenFilename() ' User selects valid Excel file 
    Set opened_workbook = Application.Workbooks.Open(filename) 
    ' File operations would occur here 
    opened_workbook.Close ' Exception thrown here 

    MsgBox "If you got here, it worked!" 
    Unload Me 
End Sub 

Lo que realmente me deja perplejo es que este error no sucede con el mismo código cuando el botón de comando no está en un formulario de usuario (en un llano botón directamente en la hoja de trabajo).

Ni siquiera sé qué más informar o dónde buscar para explicar este comportamiento (¡además de StackOverflow!). Estoy escribiendo VBA usando Excel para Mac 2011 y puedo moverme a Windows Excel 2010 si hace la diferencia.

Answer 1

Sí, en Excel 2011, es un error (no documentado - Todavía no he encontrado una documentación para él). Tienes que modificar ligeramente el código. Prueba este

Private Sub CommandButton1_Click() 
    Dim filename As String 
    Dim opened_workbook As Workbook 

    filename = Application.GetOpenFilename() ' User selects valid Excel file 
    Set opened_workbook = Application.Workbooks.Open(filename) 

    Unload Me 

    opened_workbook.Close  

    MsgBox "If you got here, it worked!" 
End Sub 

Answer 2

tuve este problema exacto en Excel 11 en Mac (Excel 2013 funcionó bien en Windows), sólo se produjo el error en un sub módulo que se llama desde el formulario de usuario. Si alguien (como yo) está tratando de usar el método workbook.close desde un sub/función en un módulo (u otra ubicación) que no está dentro del UserForm, no puede usar 'Me'. 'Me' solo se puede utilizar dentro del código de UserForm.

En lugar de 'Unload Me' use la función de descarga y el nombre de su UserForm.

Unload UserFormName