다른 통합 문서에서 하나의 값 열을 검색하고 현재 통합 문서의 탭을 채우고 싶습니다. 이것은 궁극적으로 내가 작성한 훨씬 더 긴 모듈로 들어갈 것입니다. 방금이 단계를 자동화하고 싶었습니다. 아래는 코드입니다.
내가 얻을 범위에서 첨자를 붙여 줄에서 오류가 발생했습니다. 내 문 설정이있는 것처럼 보인다 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
변수가 모두 올바르게 정의되어 있는지 확인하기 위해 단계별로 진행했습니까 (F8)? 오류 는 존재하지 않는 것을 참조하고 있음을 나타냅니다. 두 번째 wb를 올바르게 열고 범위를 복사하기 때문에 exceptionwb.close가 실행되지 않으므로 문제가 currentWB에 있음을 나타냅니다.
—
Raystafarian 2016 년
해당 줄을 건너 뛰면 close 명령이 실행되고 exceptionWb가 닫힙니다. 나는 당신과 함께 있습니다. 현재 WB 변수가 있다고 생각합니다. 이것이 ThisWorkbook으로 설정되어 있다는 것을 잊는 것과 같습니다. 그러나 단계별로 각 변수의 값이 무엇인지 알 수 있습니까? VBA에서 한 것처럼 아직 그럴 필요가 없었습니다 !! 고맙습니다!!
—
LeAnn Smith Scott
변수가 할당되면 변수 위로 마우스를 가져
—
가면