IMPORTAR EXCEL

 Tópico anterior Próximo tópico Novo tópico

IMPORTAR EXCEL

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#324982 - 10/10/2009 11:55:30

DAVIDNUNES
BOTUCATU
Cadast. em:Abril/2009


Bom dia estou fazendo um projeto e estou precisando de uma forcinha,
Preciso importar excel para uma grid e ao importar ele confronta os dados
Ex: planilha excel
Codigo CPF STATUS
1          3333     PENDENTE
2         4444       LIBERADO
3        4444        LIBERADO

Dai preciso importar e confrontrar os dados

No sistema o STATUS do Codigo vai estar como Pendente
Apos ter localizado no sistema
se o codigo
o codigo 1 continua pendenten
o codigo 2 muda para liberado e ocodigo 3 tambem alguem podeira me ajudar a fazer isso?

_____________________
Aprendendo cada dia mais

#324990 - 10/10/2009 15:15:21

TECLA
SAO PAULO
Cadast. em:Janeiro/2001


Membro da equipe

Última edição em Editado em 10/10/2009 15:15:50 por TECLA por

' abre uma conexao com a planilha excel
Set oConn = New ADODB.Connection
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                     "Data Source=c:\teste\teste.xls;" & _
                     "Extended Properties=""Excel 8.0;HDR=Yes;"";"

' cria o objecto command e define a conexao ativa
Set oCmd = New ADODB.Command
oCmd.ActiveConnection = oConn

' abre a planilha
oCmd.CommandText = "SELECT * from [Plan1$]"

' cria o recordset com os dados
Set oRS = New ADODB.Recordset
oRS.Open oCmd, , adOpenKeyset, adLockOptimistic

Set MSFlexGrid1.DataSource = oRS


Fonte: http://www.macoratti.net/flexhie.htm




#368415 - 18/03/2011 10:43:00

FOXMAN
BARRETOS
Cadast. em:Janeiro/2001


Membro da equipe

CAMPANHA DEIXE NOSSO SITE LIMPO, FECHE SEU TÓPICO ASSIM QUE TIVER UMA RESPOSTA SATISFATÓRIA.




Grupo DotNet.Br no FaceBook

Grupo WhatsDev



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por FOXMAN em 18/03/2011 10:44:15