FAZER UMA Soma em Excel

[Amadeufm 0]

boas,

 

 

tou a precisar ajuda no seguinte,tenho de construir um gráfico gerado em excel atraves do vb6, eu tenho duas colunas um de testes bons e outro de testes maus, e queria fazer a soma de cada uns e de seguida gerasse um grafico com duas barras uma de bons e outra de maus.

 

eu ja consigo conectar me com o excel apenas nao tou conseguindo utilizar os testes bons e maus.

 

ah tou usando o range?

 

 

Preciso mesmo de ajuda,

 

 

 

cumprimentos a todos

[MuRiLo_GeO 0]

OLÁ,

 

TENTE NESTE LINK http://www.macoratti.net/excel_vb.htm

 

LA VOCE VAI ENCONTRAR VÁRIAS COISAS FALANDO SOBRE EXCEL E VB

[Amadeufm 0]

oi

 

ja tinha observado esse link do macoratti

 

 

mas lá não descreve nada sobre a soma entre vb6 e excel...

 

niguem sabe qual é o código que necessito para efectuar a soma?

 

eu ja consigo abrir os dados no excel atraves do vb6, apenas tá faltando somar os dados?

 

 

ajudem....

[Claudio Neto 3]

Se você consegue passar os dados do excel para o VB, basta pegar esses valores e somá-los normalmente.

 

Ai grave-os em uma variável e depois utilize-os para construir o gráfico (que isso não sei te ajudar).

 

Talvez eu não tenha entendido bem sua necessidade, mas se quiser postar uma parte do seu código e o que precisa fazer, pode ficar mais fácil.

 

Abraço.

[Amadeufm 0]

CODE

Private Sub cmd26excel_Click

Dim Stcell As Exlcell
Dim oExcel As Object
Dim objExlsht As Object
Dim db As ADODB.Connection
Dim ws As Worksheet
Dim Sn As ADODB.Recordset

MousePointer = vbHouglass

Set oExcel = CreateObject("Excel.Application")
oExcel.Workbooks.Add
Set objExlsht = oExcel.ActiveWorkbook.Sheets(1)

Set db = New ADODB.Connection
db.CursorLocation = adUseClient
db.Open "Driver data bese....

Set Sn = New ADODB.Recordset~
Sn.Open "Select * From tabela", db, adOpenKeyset

'inclui os dados a partir da celula A1
Stcell.row = 1
Stcell.col = 1

CopiarTabelaExcel26 Sn, objExlsht, Stcell

oExcel.Visible = True

End Sub

Private Sub CopiarTabelaExcel26 (rs As ADODB.Recordset, ws As Worksheet, startingCell As Exlcell)

Dim Vetor() As Variant
Dim row As Long, col As Long
Dim fd As ADODB.Field

rs.MoveLast
ReDim Vetor (rs.recordCount + 1, rs.Fields.Count)

'copia as colunas do cabeçalho para um vetor

col = 0
For Each fd In rs.Fields
Vetor(0,col) = fd.Name
col = col + 1
Next

'copia o rs para um vetor
rs.MoveFirst
For row = 1 To rs.RecordCount - 1
For col = 0 To rs.Fields.Count - 1
'O Excel não suporta valores Null em uma Célula.
If IsNull (Vetor(row, col)) Then Vetor (row, col) = ""
Next
rs.MoveNext
Next

ws.Range(ws.Cells(startingCell.row, startingCell.col), ws.Cells(startingCell.row + rs.RecordCount + 1, _
startingCell.col + rs.Fields.Count)).Value = Vetor

End Sub

este é o código que eu estou usado pra me conectar com o excel.

o que eu pretendo é quando mostra os dados ele tambem me faça a soma dos valores ou seja, ou quero automaticamente que ele me diga quantos testes bons existem e quantos testes maus existem, isto tudo gerado automaticamente

Será que me fiz entender?