Здравствуйте!
Есть часть кода:
-/-/-/-/-/-/-/-/-
Суть проблемы в следующем Когда i = 0 (первый шаг) DateSheet = 1 программа выполняется, все данные записываются. Но вот на втором шаге когда i=1 DateSheet=2, на строчке FIO = Sheets(DateSheet).Columns("A:A").Find(Loko, LookIn:=xlValues).Offset(1, 3).Value2 возникает ошибка:
Object variable not set (Error 91)
Почему так происходит? Если DateSheet присваивать про сто значения 1, 2, 3, без цикла все работает.
Есть часть кода:
Код |
---|
Application.ScreenUpdating = False Workbooks.Open Direct MMBook = ActiveWorkbook.Name DateSh = Array(1, 2) For i = 0 To 1 iRow = 3 'Начало счтетчика для выбора локомотива с БД DateSheet = DateSh(i) Do Until IsEmpty(Workbooks("Тест.xlsm").Sheets("Локомотив_БД").Cells(iRow, 3)) Loko = Workbooks("Тест.xlsm").Sheets("Локомотив_БД").Cells(iRow, 3).Value2 Area = Workbooks("Тест.xlsm").Sheets("Локомотив_БД").Cells(iRow, 3).Offset(, -1).Value2 FIO = Sheets(DateSheet).Columns("A:A").Find(Loko, LookIn:=xlValues).Offset(1, 3).Value2 FIO_1 = Sheets(DateSheet).Columns("A:A").Find(Loko, LookIn:=xlValues).Offset(74, 3).Value2 FIO_2 = Sheets(DateSheet).Columns("A:A").Find(Loko, LookIn:=xlValues).Offset(59, 3).Value2 |
Суть проблемы в следующем Когда i = 0 (первый шаг) DateSheet = 1 программа выполняется, все данные записываются. Но вот на втором шаге когда i=1 DateSheet=2, на строчке FIO = Sheets(DateSheet).Columns("A:A").Find(Loko, LookIn:=xlValues).Offset(1, 3).Value2 возникает ошибка:
Object variable not set (Error 91)
Почему так происходит? Если DateSheet присваивать про сто значения 1, 2, 3, без цикла все работает.