Código VBA não está “mantendo” o parâmetro ThisWorksheet

Question

Eu quero recuperar uma coluna de valores de outra pasta de trabalho e preencher uma guia na minha pasta de trabalho atual. Isso acabará por entrar em um módulo muito mais longo que eu escrevi que funciona muito bem. Eu só queria esse passo automatizado. Abaixo está o código.

Eu recebo um erro subscrito fora do intervalo na linha de colagem. Parece que minha configuração de instrução currentWb to ThisWorkbook não está funcionando porque a segunda pasta de trabalho que está sendo copiada ainda está aberta, o intervalo selecionado e copiado e apenas esperando um destino para colar. Eu procurei e tentei tudo o que posso 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 que Folhas ("Exceções") exista em ambas pastas de trabalho.
E Twisty indica; verifique a ortografia dos nomes da planilha.