|
|
Postada em 05/11/2008 14:20 hs
Estou gerando um relatorio no excel e não estou conseguindo colocar o somatorio de um intervalo de celulas, no caso os valores começam na 5 Linha e vão preenchendo até acabar a nota do periodo selecionado, ou seja nunca vai ser um intervalo fixo, ja vi funcionar com xarray, mas como não sei utilizar o xarray não consegui fazer: Do Until RecordSet_0.EOF
RecordSet_0.Open "SELECT * FROM.........
Plan_Excel.Cells(Linha + 1, 1) = RecordSet_0!numeronota
Plan_Excel.Cells(Linha + 1, 2) = RecordSet_0!data
Plan_Excel.Cells(Linha + 1, 3) = RecordSet_0!cnpjcpf
Plan_Excel.Cells(Linha + 1, 4) = RecordSet_0!fornecedor
Plan_Excel.Cells(Linha + 1, 5) = CCur(RecordSet_0!ValorNF)
Linha = Linha + 1 RecordSet_0.MoveNext
RecordSet_4.MoveNext Loop Plan_Excel.Cells(Linha + 1, 1) = "Total Geral" Plan_Excel.Cells(Linha + 1, 5) = "AQUI DEVERIA ESTAR O SOMATORIO DO VALOR NF" |
|
TÓPICO EDITADO
|
|
|
|
|
|
|
|
Postada em 05/11/2008 14:56 hs
Cara, pq vc nao faz uma variavel receber os valores e depois mostra o total?
'--------------
Total = 0
Do Until RecordSet_0.EOF
'
If RecordSet_2.State = 1 Then RecordSet_2.Close
RecordSet_2.Open "SELECT * FROM.........
If RecordSet_3.State = 1 Then RecordSet_3.Close
RecordSet_3.Open "SELECT * FROM..........
If RecordSet_4.State = 1 Then RecordSet_4.Close
RecordSet_4.Open "SELECT * FROM..........
'
Plan_Excel.Cells(Linha + 1, 1) = RecordSet_0!numeronota
Plan_Excel.Cells(Linha + 1, 2) = RecordSet_0!data
Plan_Excel.Cells(Linha + 1, 3) = RecordSet_4!cnpjcpf
Plan_Excel.Cells(Linha + 1, 4) = RecordSet_4!fornecedor
Plan_Excel.Cells(Linha + 1, 5) = CCur(RecordSet_0!ValorNF)
'
Total = Total +CCur(RecordSet_0!ValorNF)
Linha = Linha + 1
'
RecordSet_0.MoveNext
RecordSet_4.MoveNext
'
Loop
'
Plan_Excel.Cells(Linha + 1, 1) = "Total Geral"
Plan_Excel.Cells(Linha + 1, 5) = Total
__________________
"It is the way of men to make monsters...and it is the nature of
monsters to destroy their makers."
-F.E.A.R. (First Encounter Assault Recon )
|
|
|
|
|
|
Postada em 05/11/2008 15:13 hs
Putz, que vacilo, valew Ash....!!!!! |
|
|
|
|
