----------------------------------------------------
tblUser
Id         Name
1          Сергей            
2          Надя
-----------------------------------------------------
tblStatus
id         Name
1          Открыт
2          Запрос на закрытие
3          Закрыт
----------------------------------------------------------
tblRegIncident
id         date_Registration         User _id           Status_id          Suit
1          02.02.08                     1                      1                      0          
2          08.02.08                     2                      3                      5
3          18.02.08                     2                      3                      4
4          19,02,08                     2                      3                      3
-------------------------------------------------------------------
И тут создается на Excel 3 таблицы

-------------------------------------------------------------------

открытие	закрытие
1 неделя	
Сергей	           1	         0
Надя		0		0

2 неделя	
Сергей  	0		0
Надя		0		1

3 неделя	
Сергей  	0		0
Надя		0		2

Неделя 	исполнитель 		открытие	закрытие
1			Сергей	          1		0
2			Надя		0		1
3			Надя		0		2

Dim i As Integer
    week_num = 1 
    i =  1 
    
    rst_test.Open "select u.name as Name,
sum(inc.opened) as opened,
sum(inc.closed) As closed 
from (select i.*,Case status_id 
when 1 then 1 
else 0 end as opened, 
Case status_id 
when 5 then 1 
else 0 
end As closed 
from tblRegIncident i) inc 
join tblUsers u on (u.id=inc.Recipient_id) 
where DatePart(week, inc.date_Registration) = '" + week_num + "' 
group by inc.Recipient_id, u.name"
 
    While Not rst_test.EOF
        ThisWorkbook.Worksheets("Лист1").Cells(i,  2 ) = rst_test.Fields("Name").Value
        ThisWorkbook.Worksheets("Лист1").Cells(i,  3 ) = rst_test.Fields("opened").Value
        ThisWorkbook.Worksheets("Лист1").Cells(i,  4 ) = rst_test.Fields("closed").Value
        week_num = week_num +  1 
        i = i +  1 
        rst_test.MoveNext
    Wend