'런타임 오류 1004 :'_Global '개체의'범위 '메서드가 xls 파일에서만 실행되지만 txt 또는 xlsx 파일에서는 실행되지 않습니다.

Question

구문을 검색하여 범위를 셀을 마지막 데이터 열까지 구문을 포함하는 셀의 오른쪽에 배치하고 조건부 서식을 사용하여 셀을 포맷합니다. 이 코드는 TXT 파일과 XLSX 파일,하지만 문구

Set rngHeaderAs 

모두 잘 작동 도착 런타임 오류 1004 : 내가 XLS 파일의 코드를 실행하면 개체 '_Global'의 방법 '범위'실패했습니다. Find 절의 구가 반드시 존재하며, xlsx 파일과 동일한 xls 파일을 저장하면 코드가 완벽하게 실행됩니다.

코드 :

Sub Color_labreport_horizontal() 

Cells.Replace What:="n,d.", Replacement:="n.d.", lookat:=xlPart, _ 
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
    ReplaceFormat:=False 

On Error Resume Next 
'As 

Set rngHeaderAs = Range("A1:ZZ200").Find("As*Arsen*", lookat:=xlPart) 'This string generates the error 
Set rngAs = Range(rngHeaderAs, rngHeaderAs.End(xlToRight)) 
AsAddress = rngHeaderAs.Address(False, False) 

Dim Ul1As As Double 
Ul1As = 8 
Dim Ul2As As Double 
Ul2As = 20 
Dim Ul3As As Double 
Ul3As = 50 
Dim Ul4As As Double 
Ul4As = 600 
Dim Ul5As As Double 
Ul5As = 1000 


With ActiveSheet 

    With rngAs 
     .FormatConditions.Add xlExpression, Formula1:="=AND(ISNUMBER(" & AsAddress & ");" & AsAddress & "<" & Ul1As & ")" 
     .FormatConditions(1).Interior.ColorIndex = 33 
     .FormatConditions(1).Borders.LineStyle = xlContinuous 
     .FormatConditions(1).Borders.Weight = xlThin 

    End With 
    With rngAs 
     .FormatConditions.Add xlExpression, Formula1:="=AND(ISNUMBER(" & AsAddress & ");" & AsAddress & ">=" & Ul1As & ";" & AsAddress & "<" & Ul2As & ")" 
     .FormatConditions(2).Interior.ColorIndex = 4 
     .FormatConditions(2).Borders.LineStyle = xlContinuous 
     .FormatConditions(2).Borders.Weight = xlThin 
    End With 
    With rngAs 
     .FormatConditions.Add xlExpression, Formula1:="=AND(ISNUMBER(" & AsAddress & ");" & AsAddress & ">=" & Ul2As & ";" & AsAddress & "<" & Ul3As & ")" 
     .FormatConditions(3).Interior.ColorIndex = 6 
     .FormatConditions(3).Borders.LineStyle = xlContinuous 
     .FormatConditions(3).Borders.Weight = xlThin 
    End With 
    With rngAs 
     .FormatConditions.Add xlExpression, Formula1:="=AND(ISNUMBER(" & AsAddress & ");" & AsAddress & ">=" & Ul3As & ";" & AsAddress & "<" & Ul4As & ")" 
     .FormatConditions(4).Interior.ColorIndex = 45 
     .FormatConditions(4).Borders.LineStyle = xlContinuous 
     .FormatConditions(4).Borders.Weight = xlThin 

    End With 
    With rngAs 
     .FormatConditions.Add xlExpression, Formula1:="=AND(ISNUMBER(" & AsAddress & ");" & AsAddress & ">=" & Ul4As & ";" & AsAddress & "<" & Ul5As & ")" 
     .FormatConditions(5).Borders.LineStyle = xlContinuous 
     .FormatConditions(5).Borders.Weight = xlThin 
     .FormatConditions(5).Interior.ColorIndex = 3 
    End With 
    With rngAs 
     .FormatConditions.Add xlExpression, Formula1:="=AND(ISNUMBER(" & AsAddress & ");" & AsAddress & ">=" & Ul5As & ")" 
     .FormatConditions(6).Interior.ColorIndex = 7 
     .FormatConditions(6).Borders.LineStyle = xlContinuous 
     .FormatConditions(6).Borders.Weight = xlThin 
    End With 
    With rngAs 
     .FormatConditions.Add xlExpression, Formula1:="=LEFT(" & AsAddress & ";1)=""<""" 
     .FormatConditions(7).Interior.ColorIndex = 33 
     .FormatConditions(7).Borders.LineStyle = xlContinuous 
     .FormatConditions(7).Borders.Weight = xlThin 
    End With 
    With rngAs 
     .FormatConditions.Add xlExpression, Formula1:="=(" & AsAddress & ") = ""n.d.""" 
     .FormatConditions(8).Interior.ColorIndex = 33 
     .FormatConditions(8).Borders.LineStyle = xlContinuous 
     .FormatConditions(8).Borders.Weight = xlThin 
    End With 
End With 

내가 XLS 파일에서 실행할 때 만 발생하는 이유는 어떤 생각?

Answer 1

론 로젠 펠트 (Ron Rosenfelt)가 내게 의견에 대답을주었습니다. ZZ200이 허용 범위를 벗어난, 그래서 대신 A1으로 범위를 정의하는 :

Set rngHeaderAs = Range("A1").CurrentRegion.Find("As*Arsen*", lookat:=xlPart) 

내가 허용 범위를 초과하지 않고 내가 원하는 범위를 커버 있는지 확인하기 : ZZ200 (또는 다른 하드 범위), 나는 CurrentRegion 사용 . 이제 코드는 Excel 97 호환 파일에서도 완벽하게 실행됩니다.