☰

VBA 코드가 ThisWorksheet 매개 변수를 "보유"하지 않습니다.

tag-icon • tag-icon microsoft-excel worksheet-function vba macros
VBA 코드가 ThisWorksheet 매개 변수를 "보유"하지 않습니다.

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

나는아래 첨자가 범위를 벗어났습니다.붙여넣기 라인에 오류가 있습니다. 복사되는 두 번째 통합 문서가 여전히 열려 있고 범위가 선택되어 복사되었으며 대상이 붙여넣기를 기다리고 있기 때문에 내 문 설정 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

답변1

당신은 그것을 보장해야합니다시트("예외")에 존재둘 다통합 문서.
그리고구불구불한지적; 워크시트 이름의 철자를 확인하세요.

관련 정보