Hello.
I've a problem with my macro importing tasks from ms project to excel.

Sometimes it does not work and i get an error:

Run-Time Error '91':
Object variable or With block variable not set.


Here's the code, i've marked line which is underlined by excel:


Private Sub update()

Dim i, n, max, b As Integer
Dim Proj As MSProject.Application
Dim ts As MSProject.Tasks
Dim t As MSProject.Task


Worksheets("Czynności Projektowe").Activate
Start = Cells(1, 2).Value
Koniec = Cells(2, 2).Value
i = 10000
max = Worksheets("Ustawienia").Cells(1, 14)

'--------------- projects
For n = 4 To max + 3
Set Proj = CreateObject("MSProject.Application")
Proj.Visible = False
Proj.FileOpen Name:=Worksheets("Ustawienia").Cells(n, 15), ReadOnly:=True

Set ts = ActiveProject.Tasks

'--------------- menu

Application.ScreenUpdating = False

Worksheets("Czynności Projektowe").Cells(i, 1) = "Project: " & Worksheets("Ustawienia").Cells(n, 14)
Worksheets("Czynności Projektowe").Cells(i, 1).Select
ActiveCell.Hyperlinks.Add ActiveCell, Worksheets("Ustawienia").Cells(n, 15)
Worksheets("Czynności Projektowe").Cells(i, 2) = "#outline"
Worksheets("Czynności Projektowe").Cells(i, 3) = "nazwa projektu"
Worksheets("Czynności Projektowe").Cells(i, 4) = "name"
Worksheets("Czynności Projektowe").Cells(i, 5) = "resources"
Worksheets("Czynności Projektowe").Cells(i, 6) = "start date"
Worksheets("Czynności Projektowe").Cells(i, 7) = "finish date"
Worksheets("Czynności Projektowe").Cells(i, 8) = "% Complete"


i = i + 1

'--------------- tasks
For Each t In ts
'If Not t.Summary Then
' MsgBox t.Start
'MsgBox Koniec
'If t.Finish = Start Or t.Start = Koniec Then
If Not (t.Finish < Start Or t.Start > Koniec) Then 'AN ERROR OCCURS HERE
'If t.Start > Koniec Then

Worksheets("Czynności Projektowe").Cells(i, 3) = Worksheets("Ustawienia").Cells(n, 14)
Worksheets("Czynności Projektowe").Cells(i, 4) = t.Name
Worksheets("Czynności Projektowe").Cells(i, 5) = t.ResourceNames
Worksheets("Czynności Projektowe").Cells(i, 6) = t.Start
Worksheets("Czynności Projektowe").Cells(i, 7) = t.Finish
Worksheets("Czynności Projektowe").Cells(i, 8) = t.PercentComplete

i = i + 1
End If
' End If
Next t

Proj.FileClose pjDoNotSave

Next n

Range("A1").Select
End Sub


The strange thing is that files that makro import correctly and incorrectly have the same structure, same column names and so on..

I tried to declare object variables such as t.Finish, t.Start but didn't help..

Thanks for any help