다른 통합 문서에서 하나의 값 열을 검색하고 현재 통합 문서의 탭을 채우고 싶습니다. 이것은 궁극적으로 내가 작성한 훨씬 더 긴 모듈로 들어갈 것입니다. 방금이 단계를 자동화하고 싶었습니다. 아래는 코드입니다.

내가 얻을 범위에서 첨자를 붙여 줄에서 오류가 발생했습니다. 내 문 설정이있는 것처럼 보인다 currentWb위해 ThisWorkbook두 번째 통합 문서가 아직 열려에서 복사되는 범위를 선택하여 복사 대상이 붙여만을위한 기다리고 있기 때문에 작동하지 않습니다. 나는 내가 생각할 수있는 모든 것을 찾고 시도했다.

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

답변