Amigos, eu tenho que mapear uns job's aqui no meu trabalho, o problema:

Tenho que dar o resultado assim em uma planilha do excel:

nome do job    step    banco    inicio     tempo        fim

jose               1        bco       05:00     00:0030     00:01:00

                    2        bco                    00:0015 

                    3        bco                    00:0015                 

mane             1        bco1                  00:00:20    00:00:30            

                    2        bco1                  00:00:10                  

o campo fim está sendo a maior didiculdade, vou colocar o código aqui.

Se a soma dos step's ficarem no último step de cada job não tem problema.

 

JobName = ""
I = 4
 Do While Not rs.EOF Or rs.BOF
   If rs.Fields("job_Name") = JobName Then
    Range("B" & I).Value = JobName
    Range("b" & I).Value = rs.Fields("Step_ID")
    Range("c" & I).Value = rs.Fields("Step_Name")
    Range("d" & I).Value = rs.Fields("database_name")
     If rs.Fields("enabled") = "1" Then
       Range("e" & I).Value = "Habilitado"
       Range("e" & I).Font.Color = RGB(0, 0, 0)
     Else
       Range("e" & I).Value = "Desabilitado"
       Range("e" & I).Font.Color = RGB(200, 0, 0)
     End If
    DuraStep = rs.Fields("Duracao_do_step")
    cSoma1 = rs.Fields("Duracao_do_Step")
    Range("g" & I).Value = rs.Fields("Duracao_do_Step")
    Range("g" & I).Value = Format(DuraStep, "######00:00:00")
    
        
    If Tempo = False Then
     cSoma = cSoma1 + cSoma2
     Tempo = True
    Else
     cSoma = cSoma + cSoma1
     Tempo = True
    End If
   
   Else
  
    JobName = rs.Fields("job_Name")
    Range("A" & I).Value = JobName
    Range("b" & I).Value = rs.Fields("Step_ID")
    Range("c" & I).Value = rs.Fields("Step_Name")
    Range("d" & I).Value = rs.Fields("database_name")
     If rs.Fields("enabled") = "1" Then
       Range("e" & I).Value = "Habilitado"
       Range("e" & I).Font.Color = RGB(0, 0, 0)
     Else
       Range("e" & I).Value = "Desabilitado"
       Range("e" & I).Font.Color = RGB(200, 0, 0)
     End If
    
    horaIni = rs.Fields("active_start_time")
    Range("f" & I).Value = rs.Fields("active_start_time")
    Range("f" & I).Value = Format(horaIni, "######00:00:00")
    cSoma2 = rs.Fields("Duracao_do_Step")
    Range("g" & I).Value = Format(rs.Fields("Duracao_do_Step"), "######00:00:00")
    horaFim = rs.Fields("active_end_time")
    Range("h" & I).Value = Format(cSoma, "######00:00:00")
    Tempo = False
   End If
   I = I + 1
  rs.MoveNext
 Loop

 

Obrigado

quer uma dica joga estes dados primeiro para uma flexgrid faça asoma nela, e depois envia esta flex toda para o excel fica mais Profissional

Infelizmente não dá treze, os caras não vão querer ficar fazendo isso, querem "mastigado" já entende, abrir a planilha e as informações lá postada.

obrigado

moreti, mas qual é o problema ?

Então Alexandre quando o step pasas de 59 segundos ele não dá o resuntado esperado

Se quiser mando e-mail do resultado da  planilha pra vc  e pro Teze.

 

Obrigado