Ошибка 91: как бороться?

[olik111]

подскажите пожалуйста, как бороться с такой ошибкой: Run-time error '91': Object variable or With bloc variable not set

[GSerg]

Не стыдно?

Не обращаться к пустому месту. И не будет этой ошибки.

[Twister]

А ты переменную объявлять не пробовал?
Компилятор не может понять, к какой объектной переменной ты обращаешься...

[olik111]

Да вроде не к пустому месту обращаюсь, а к конкретному
Первый раз все срабатывает нормально, а если нужно несколько документов сделать, то такой сбой вылазит

Юзайте форматирование кода, пожалуйста.
Спасибо.

Код: Выделить всё

Private Sub Command3_Click()
If Dir(iXLFileName) <> "" Then
  Set iXLApp = CreateObject("Excel.Application")

  With iXLApp
    .DisplayAlerts = False
    .Visible = True
    With .Workbooks.Open(FileName:=iXLFileName, UpdateLinks:=3)
      inumber = Label4.Caption
      With ActiveWorkbook
       
        'Ошибка тут
        .Sheets("1").Cells(1, 3) = Label20.Caption & "  " & Text15.Text & "  " & Label21.Caption & "  " & Text16.Text & "  " & Label22.Caption & "  " & Label24.Caption
        .Sheets("1").Cells(5, 4) = Label1.Caption
        .Sheets("1").Cells(5, 5) = inumber
       
        If dat = 1 Then         
          .Sheets("1").Cells(5, 5) = inumber
          iXLFileName = .Path & "\Наряд\Наряд_" & inumber & "_.xls"
          .SaveAs FileName:=iXLFileName, FileFormat:=xlNormal
          .Close
        End If
      End With
     
      .Quit
      .DisplayAlerts = True
     
      Unload Form1
      Set Form1 = Nothing
      Form1.Show
    End With

    Set iXLApp = Nothing
  End If

End sub

[olik111]

да вроде все переменные объявлены:
Dim iXLApp As Object
Dim iXLFileName As String
Dim i As Integer
Dim j As Integer
Dim locArr() As Variant
Dim dat As String

[alibek]

With iXLApp.ActiveWorkbook

[GSerg]

И если-таки поставить option explicit, этого больше не произойдёт...

[Twister]

Set iXLApp = CreateObject("Excel.Application")

With iXLApp

Не вижу объявления...
Ну и можешь попробовать Set iXLApp = NEW ...

[olik111]

Спасибо большое

[olik111]

alibek