Блог

Главная - Вопросы по программированию - Ошибка Ошибка времени выполнения -2147024809 (80070057)

Ошибка Ошибка времени выполнения -2147024809 (80070057)

#vba

#vba

Вопрос:

У меня есть вопрос к моему макросу, в котором я получаю ошибку при запуске:

 Run Time Error -2147024809 (80070057)

В строке

 If VBA.Len(Me.Controls("Textbox" amp; i).Value) > 0 Then

Весь код

 Dim wks As Worksheet
Dim lWie As Long
Dim i As Long
Dim lRow As Long

Set wks = ThisWorkbook.Worksheets("Sheat1")

With wks
    lWie = .Cells(.Rows.Count, "A").End(xlUp).Row

    For i = 1 To 40
        If VBA.Len(Me.Controls("Textbox" amp; i).Value) > 0 Then
            lRow = lRow   1
            .Cells(lWie   lRow, "A").Value = lWie   lRow - 1
            .Cells(lWie   lRow, "B").Value = .Range("P1").Value
            .Cells(lWie   lRow, "C").Value = .Range("R1").Value
            .Cells(lWie   lRow, "D").Value = Me.Controls("Textbox" amp; i).Value
        End If
    Next i
End With

Комментарии:

1. Это ERROR_INVALID_PARAMETER. Вы могли бы попробовать разделить эту строку на несколько отдельных строк, чтобы определить, какой конкретный бит вызывает ошибку: объединение «Textbox» amp; i, вызов Me.Controls, значение в результате этого или VBA. Посмотрите на результат этого.

2. Какое значение имеет i , когда код останавливается при ошибке (наведите курсор на переменную)? Вы уверены, что текстовых полей достаточно (от 1 до 40)?