ref가 비어있어 GetValuePrice를 사용 중 오류가 발생했습니다.

Question

모든 파일이 동일한 템플릿을 사용하고있는 폴더에있는 워크 시트의 정보를 다른 워크 시트로 가져 와서 정보 매트릭스를 만듭니다. 템플릿 모델의 한 시트에 있기 때문에 세 번째 셀이 채워지지 않고 오류가 발생하기 때문에 각 템플릿에서 세 개의 셀만 당기고 처음 두 개는 올바르게 당깁니다. (Run time error 1004. Range of Method .

개인 기능 GetValuePrice (경로, 파일, 시트, REF : Object_global 나는 그게 내 오류와 아무 상관이 있는지 확실하지 않다거나 있다면 뭔가 그 이전에 발생) "실패의

나는 다음이)

Dim arg As String 
    If Right(path, 1) <> "\" Then path = path & "\" 
    arg = "'" & path & "[" & file & "]" & sheet & "'!" & _ 
    Range(ref).Range("A1").Address(, , xR1C1) 
    Debug.Assert Var = 0 
    GetValuePrice = ExecuteExcel4Macro(arg) 

말단 기능

오류가 발생하고 디버그를 눌렀을 때 ref가 비어 있다는 것을 보여줍니다.

이 내가 버튼에있는 코드는 폴더에있는 템플릿에서 프로젝트 정보를 탭 워크로드에서 당겨하는 것입니다 (Object_global의 범위의 실행 시간 오류 (1004) 방법은 "실패).

개인 서브를 CommandButton21_Click()

ThisWorkbook.Sheets("Sheet1").Range("a166:h500").ClearContents 
    ThisWorkbook.Sheets("Sheet1").Range("j166:v500").ClearContents 
Application.Calculation = xlCalculationManual 
ProjectInfo 
    WorkLoad 
Application.Calculation = xlCalculationAutomatic 
End Sub 

내가 동일한 코드와 다른 행렬을 실행하기 때문에 수정하지만 파일 대상을 변경 모르겠어요 그리고 그것은 작동합니다. 내 제 2 서브에서

Answer 1

, 내가 당겨되지 않았다 올바른 var 행렬에 표시 할 수 있습니다. 나는 "CC"를 선언했지만 "AA"를 표시했다. 따라서 AA를 CC로 변경하여 작동했습니다.