ACESSANDO DADOS DO EXCEL
tenho um arquivos com dados de clientes no excel tem como fazer um sisteminha com vb6 para fazer consulta?
obrigado tecla, e estou esperando vc responder meu email que te enviei até agora.
valeu um abraço!
valeu um abraço!
tecla, estou com o microsoft officer 2007 instalado, eu estou seguindo esse tutorial que vc indicou.
então eu segui isso.
[txt-color=#e80000]Private Sub CmdExcel_Click()
Dim a, b As String
Dim i As Integer
Dim Exlc As New Chart
[ô]
[ô] Cria a componente da classe application
[ô] inclui um novo arquivo e uma nova planilha
[ô]
Set EApp = CreateObject([Ô]excel.application[Ô])
Set EwkB = EApp.Workbooks.Add
Set EwkS = EwkB.Sheets(1)
[ô]
[ô] exibe a aplicação Excel
[ô]
EApp.Application.Visible = True
[ô] Preenche a primeira e a segunda coluna
[ô] com alguns valores numéricos
[ô]
For i = 1 To 10
a = [Ô]A[Ô]
b = [Ô]B[Ô]
Range(a & i).FormulaR1C1 = Str(i)
Range(b & i).FormulaR1C1 = Str(i / 2)
Next i
[ô]seleciona da célula b2 até a b10
Range([Ô]B2:B10[Ô]).Select
[ô]Cria e exibe o gráfico
Set Exlc = EApp.Charts.Add
[ô]torna o formulário do VB visÃvel para poder fechar o Excel
frmexcelvb.Show
End Sub[/txt-color]
e esta dando o seguinte erro na linha em negrito.
Compile error
User defined type not defined.
????
então eu segui isso.
[txt-color=#e80000]Private Sub CmdExcel_Click()
Dim a, b As String
Dim i As Integer
Dim Exlc As New Chart
[ô]
[ô] Cria a componente da classe application
[ô] inclui um novo arquivo e uma nova planilha
[ô]
Set EApp = CreateObject([Ô]excel.application[Ô])
Set EwkB = EApp.Workbooks.Add
Set EwkS = EwkB.Sheets(1)
[ô]
[ô] exibe a aplicação Excel
[ô]
EApp.Application.Visible = True
[ô] Preenche a primeira e a segunda coluna
[ô] com alguns valores numéricos
[ô]
For i = 1 To 10
a = [Ô]A[Ô]
b = [Ô]B[Ô]
Range(a & i).FormulaR1C1 = Str(i)
Range(b & i).FormulaR1C1 = Str(i / 2)
Next i
[ô]seleciona da célula b2 até a b10
Range([Ô]B2:B10[Ô]).Select
[ô]Cria e exibe o gráfico
Set Exlc = EApp.Charts.Add
[ô]torna o formulário do VB visÃvel para poder fechar o Excel
frmexcelvb.Show
End Sub[/txt-color]
e esta dando o seguinte erro na linha em negrito.
Compile error
User defined type not defined.
????
Tópico encerrado , respostas não são mais permitidas