O código VBA não está "mantendo" o parâmetro ThisWorksheet

Question

Quero recuperar uma coluna de valores de outra pasta de trabalho e preencher uma guia na minha pasta de trabalho atual. No final das contas, isso entrará em um módulo muito mais longo que escrevi e que funciona muito bem. Eu só queria essa etapa automatizada. Abaixo está o código.

Eu recebo umsubscrito fora do intervaloerro na linha de colagem. Parece que minha configuração de instrução não currentWbestá ThisWorkbookfuncionando porque a segunda pasta de trabalho que está sendo copiada ainda está aberta, o intervalo selecionado e copiado e apenas aguardando a colagem de um destino. Eu procurei e tentei tudo que pude pensar.

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

Você deve garantir quePlanilhas("Exceções")existe emambospastas de trabalho.
E comoTorcidoaponta; verifique a ortografia dos nomes das planilhas.