0

Есть макрос, работал пару недель исправно. Сегодня выдал ошибку 13 в строке .Cells(lRwStart, lClmn).Value = dDate ' дата файла'. Подскажите, пожалуйста, что сломалось?

Sub updateEO()
Dim aData(), aShop(), aRes()
Dim sPath As String, dDate As Date, bFlag As Boolean
Dim i As Long, k As Long
Const sFolder As String = "C:\Manager\ЭО\" '"
Const lRwStart As Long = 12 ' начало диапазона'
With ActiveSheet
    i = 115 ' завершение диапазона'
    If i < 5 Then Exit Sub
    aShop = .Cells(lRwStart, 1).Resize(i - lRwStart + 1, 1).Value
End With

ReDim aRes(1 To UBound(aShop), 1 To 1)
dDate = Date

Do
    sPath = sFolder & "Экономический отчет (" & Format(dDate, "dd.mm.yyyy") & ").xls"
    If Dir(sPath, vbDirectory) <> "" Then bFlag = True: Exit Do  ' файл найден'
    dDate = dDate - 1 ' если не найден, уменьшаем дату для следующего имени файла'
Loop Until dDate = Date - 5 ' просматриваем максимум 5 файлов (5 дат)'

If bFlag = False Then MsgBox "Нет файла-донора", 64, "ОШИБКА": GoTo err_

With Application: .ScreenUpdating = False: .DisplayAlerts = False: End With

With Workbooks.Open(Filename:=sPath) ' открыть книгу'
    With Worksheets(Format(dDate, "dd.mm.yyyy")) ' если есть сомнения в наличии листа, нужна доп. проверка'
        i = .UsedRange.Rows.Count + .UsedRange.Row - 1
        aData = .Range("B1:K" & i).Value
    End With

    .Close
End With

For k = 1 To UBound(aShop)
    For i = 1 To UBound(aData)
        If aShop(k, 1) = aData(i, 1) Then aRes(k, 1) = aData(i, 10) ' записываем найденное'
    Next i
Next k

With ActiveSheet
    lClmn = Application.Match("за день", Range("A11:ZZ11"), 0)
    .Cells(lRwStart, lClmn).Value = dDate ' дата  файла'
    .Cells(lRwStart, lClmn).Resize(UBound(aRes), 1).Value = aRes ' выгрузка на лист'
End With
err_:
With Application: .ScreenUpdating = True: .DisplayAlerts = True: End With
End Sub
8
  • 1
    Избавляйтесь от ActiveSheet, заменяйте на объект со ссылкой на конкретный лист.
    – Akina
    18 мар 2019 в 5:10
  • проблема в том, что листы меняются переодически и макрос хотелось бы применять каждый раз на новом, получается от ActiveSheet не избавится (ну можно каждый раз конкретный лист в макрос прописывать, но это как-то сложно)
    – skawn
    18 мар 2019 в 5:21
  • 1
    листы меняются переодически и макрос хотелось бы применять каждый раз на новом, получается от ActiveSheet не избавится Ну ерунды-то не говори... пиши первым оператором Set sht=ActiveSheet - и дальше ссылайся только на sht. Если по какой-то причине фокус с листа уползёт - на переменную это не повлияет. Если сильно боишься - ну можешь сделать set sht = ThisWorkbook.Sheets(ActiveSheet.Name)...
    – Akina
    18 мар 2019 в 5:22
  • Плохо дружу с вба, буду пробовать, спасибо. А то, что я добавил кнопку Актив Х и привязал 3 схожих макроса к кнопке не может влиять? Код кнопки: Private Sub CommandButton1_Click() Call updateEO Call updateEO2 Call updateEO3 End Sub
    – skawn
    18 мар 2019 в 5:35
  • 1
    Это мой код. Если помните, With ActiveSheet - для универсальности, чтобы можно было без особых знаний заменить на обрабатываемый лист. Set sht = Sheets(...) - объект в переменную, With Sheets(...) - практически то же самое, но без выделенной переменной (на лету), после End With ссылка на объект уничтожается. Посмотрите (при ошибке) чему равны переменные dDate. lClmn (кстати, эта куда пропала из объявленных переменных?). Возможно, нет текста "за день" в строке 11 обрабатываемого листа 18 мар 2019 в 8:05

0

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Посмотрите другие вопросы с метками или задайте свой вопрос.