El código VBA no "contiene" el parámetro ThisWorksheet

Question

Quiero recuperar una columna de valores de otro libro y completar una pestaña en mi libro actual. En última instancia, esto se incluirá en un módulo mucho más largo que he escrito y que funciona muy bien. Solo quería que este paso estuviera automatizado. A continuación se muestra el código.

Yo tengo unsubíndice fuera de rangoerror en la línea de pegado. Parece que la configuración de mi declaración currentWbno ThisWorkbookfunciona porque el segundo libro que se está copiando todavía está abierto, el rango seleccionado y copiado y solo esperando a que se pegue un destino. He buscado y probado todo lo que se me ocurre.

Sub OpenWorkbookToPullData()

Dim sUserInput As String
    sUserInput = InputBox("Enter Account Folder Name:", "Folder Name")

Dim path As String
    path = "C:\users\" & Environ$("username") & "\OneDrive\Documents\Brightree\" & sUserInput & "\Financial Scorecard\Exceptions.xlsm"

Dim currentWb As Workbook
    Set currentWb = ThisWorkbook

Dim exceptionWb As Workbook
    Set exceptionWb = Workbooks.Open(path)

Dim exceptionWs As Worksheet
    Set exceptionWs = exceptionWb.Sheets("Exceptions")

Dim rng_data As Range
    Set rng_data = exceptionWs.Range("A1:A20")

 rng_data.Copy
 currentWb.Sheets("Exception").Range("A1").PasteSpecial xlPasteValues

exceptionWb.Close (False)

End Sub

Answer 1

Debes asegurar queHojas("Excepciones")existe enamboslibros de trabajo.
Y comoretorcidoSeñala; verifique la ortografía de los nombres de las hojas de trabajo.