Добрый день, уважаемые форумчане.
Столкнулся со следующей проблемой. Если я запускаю макрос сразу после открытия файла, в котором он содержится - всё работает как часы. Но если я его повторно запущу, то возникает ошибка: Run-time error '91 Object variable or With block variable not set' в строчке If rng.Value Like txt & "*" Then. Вопрос: почему ошибка возникает ТОЛЬКО при повторном запуске макроса? Почему переменной rng при повторном запуске не присваивается значение? Объясните, пожалуйста.
Часть макроса, в котором появляется ошибка:
Столкнулся со следующей проблемой. Если я запускаю макрос сразу после открытия файла, в котором он содержится - всё работает как часы. Но если я его повторно запущу, то возникает ошибка: Run-time error '91 Object variable or With block variable not set' в строчке If rng.Value Like txt & "*" Then. Вопрос: почему ошибка возникает ТОЛЬКО при повторном запуске макроса? Почему переменной rng при повторном запуске не присваивается значение? Объясните, пожалуйста.
Часть макроса, в котором появляется ошибка:
| Код |
|---|
Dim txt As String, rng As Range, I As Integer, n As String, ws As Worksheet
Application.ScreenUpdating = False
n = ActiveSheet.Name
For I = 1 To UBound(Regions)
With Workbooks("имя_файла" .Worksheets("Report 2" .Range("A:A"
txt = CStr(Regions(I))
Set rng = .find(What:=txt, LookIn:=xlValues)
If txt <> "Russia|B2B Partner Support" Then
MsgBox "txt = " & txt 'для тестов
If rng Is Nothing Then 'для тестов
MsgBox "Nothing" 'для тестов =========>>>> срабатывает это условие. То есть переменной rng при повторном запуске не присваивается 'значение.
Else: MsgBox "" & rng.Value 'для тестов
End If
Else
Set rng = .find(What:=txt, LookIn:=xlValues, LookAt:=xlWhole)
MsgBox "" & rng.Address 'для тестов ===========================> здесь валится. Оно и понятно, так как rng = Nothing
End If
If rng.Value Like txt & "*" Then '<=====================================или здесь
Set ws = Worksheets.Add
ws.Name = txt
ws.Move After:=Worksheets(n)
End If
End With
Next I |
Изменено: - 24.10.2014 12:45:11
