VBA Excel "컴파일 오류: 개체 필요"

VBA Excel "컴파일 오류: 개체 필요"

저는 엑셀에서 VBA 코드를 작업하고 있으며 다음과 같은 코드가 있습니다.

Set strModel = Right(rng.Offset(0, 13).Value, Len(rng.Offset(0, 13).Value) - 4)

코드를 실행하면 디버깅할 컴파일 오류가 발생하고 다음과 같이 표시됩니다.Object Required어떻게 하라는 겁니까?

다음은 코드의 더 큰 부분입니다.

strHSLtemp = "C:\Users\Desktop\To Do\MidDay Orders Macro Tool\Temp Files\HSL Orders Temp.xlsx"
wbHSLtemp = Dir(strHSLtemp)
Set wbHSLtemp = Workbooks.Open(strHSLtemp)
Set wsHSLtemp = wbHSLtemp.Sheets(1)
Dim arrModels() As String, strModel As String, blMultipleModels As Boolean, rngModel As range, lngModels As Long
Dim rng As range
Set strModel = Right(rng.Offset(0, 13).Value, Len(rng.Offset(0, 13).Value) - 4) 'strip off leading "HSL-"
strModel = Replace(strModel, " / ", "/") 'get rid of the spaces that appear to surround the forward slash
    If InStr(1, strModel, "/") > 0 Then 'yep, there are multiples
        blMultipleModels = True
    Else
        blMultipleModels = False
    End If
    If blMultipleModels = False Then 'just assign the model and move on in the outer loop
        wsHSLtemp.Cells(lastrowOutput, 12) = strModel

문자열 변수에 set 키워드를 사용하려고 합니다.세트는 개체에만 필요합니다.세트를 제거하면 괜찮을 것입니다:)

특히 변경 내용:

Set strModel = Right(rng.Offset(0, 13).Value, Len(rng.Offset(0, 13).Value) - 4)

대상:

strModel = Right(rng.Offset(0, 13).Value, Len(rng.Offset(0, 13).Value) - 4)

음, 당신이 선언한 것은rng변수입니다. 그러나 값을 할당하지 않았습니다.그래서:

• 교체하다

  Set strModel = Right(rng.Offset(0, 13).Value, Len(rng.Offset(0, 13).Value) - 4)

  와 함께

  strModel = Right(rng.Offset(0, 13).Value, Len(rng.Offset(0, 13).Value) - 4) 'strip off leading "HSL-"

• 값 할당rng변수, 간격띄우기의 일부 시작점.

언급URL : https://stackoverflow.com/questions/28564505/vba-excel-compile-error-object-required