다른 통합 문서에서 하나의 값 열을 검색하고 현재 통합 문서의 탭을 채우고 싶습니다. 이것은 궁극적으로 내가 작성한 훨씬 더 긴 모듈로 들어갈 것입니다. 방금이 단계를 자동화하고 싶었습니다. 아래는 코드입니다.
내가 얻을 범위에서 첨자를 붙여 줄에서 오류가 발생했습니다. 내 문 설정이있는 것처럼 보인다 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
답변
두 통합 문서에 Sheets ( “Exceptions”) 가 있는지 확인해야합니다 . 그리고 Twisty가 지적한 대로 ; 워크 시트 이름의 철자를 확인하십시오.