IMPORTAR EXCEL

DAVIDNUNES 10/10/2009 11:55:30
#324982
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?
TECLA 10/10/2009 15:15:21
#324990 
[txt-color=#0B6138][ô] abre uma conexao com a planilha excel[/txt-color]
Set oConn = New ADODB.Connection
oConn.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] & _
                     [Ô]Data Source=c:    este    este.xls;[Ô] & _
                     [Ô]Extended Properties=[Ô][Ô]Excel 8.0;HDR=Yes;[Ô][Ô];[Ô]

[txt-color=#0B6138][ô] cria o objecto command e define a conexao ativa[/txt-color]
Set oCmd = New ADODB.Command
oCmd.ActiveConnection = oConn

[txt-color=#0B6138][ô] abre a planilha[/txt-color]
oCmd.CommandText = [Ô]SELECT * from [Plan1$][Ô]

[txt-color=#0B6138][ô] cria o recordset com os dados[/txt-color]
Set oRS = New ADODB.Recordset
oRS.Open oCmd, , adOpenKeyset, adLockOptimistic

Set MSFlexGrid1.DataSource = oRS


Fonte: http://www.macoratti.net/flexhie.htm
FOXMAN 18/03/2011 10:43:00
#368415
[txt-size=2]CAMPANHA DEIXE NOSSO SITE LIMPO, FECHE SEU TÓPICO ASSIM QUE TIVER UMA RESPOSTA SATISFATÓRIA.[/txt-size]
Tópico encerrado , respostas não são mais permitidas
Voltar