USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Importar dados Excel no VB e Exportar para o Banco
wicrowsky18
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 21/02/2011 13:52 hs         
Ola amigos,

Queria saber como poderia importar os dados de uma planilha do excel para o vb e depois exportar esses dados para o banco.

Presciso pegar os dados da planilha e jogar para qualquer grid no vb, depois tenho que pegar os dados do grid e mandar para o banco.

Planilha: Afastados.xls
Colunas: Codigo, Nome, Data, Situacao (S, N).

OBS: Sou estagiário e presciso entregar isso essa semana.
   
Juan Carlos R.A
Pontos: 2843
MACEIO
AL - BRASIL
ENUNCIADA !
Postada em 22/02/2011 11:55 hs            
No site de marcoratti tem dicas de exportar e importar

http://www.macoratti.net/excel_vb.htm
   
Knight
GOIÂNIA
GO - BRASIL
ENUNCIADA !
Postada em 22/02/2011 12:11 hs         
   
Ivan Abreu
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 08/03/2011 12:15 hs         
Eu faço esta integração entre a planilha e o banco de dados, consequentemente para o VB. O banco de dados é o access, no VB6 uso a referencia dao 3.6 Os comandos do vba na planilha são praticamente os mesmos. Veja exemplo abaixo em que salvo no banco de dados compras,
 
Sub salvar()
Set matprima = OpenDatabase("C:/doidivanas/compras.mdb").OpenRecordset("matprima")
Set matriz = Range("A7:L70")
n = 1
Do Until n = 70
If matriz(n, 1) <> "" Then
    matprima.Index = "codmat"
    matprima.Seek "=", matriz(n, 1), matriz(n, 3)
    If matprima.NoMatch Then
        matprima.AddNew
    Else
        matprima.Edit
    End If
matprima!codmat = matriz(n, 1)
matprima!coditem = matriz(n, 3)
matprima!material = matriz(n, 2)
matprima!Item = matriz(n, 4)
matprima!preço = matriz(n, 5)
matprima!fornecedor = matriz(n, 6)
matprima!nff = matriz(n, 7)
matprima!medida = matriz(n, 8)
matprima!qtde = matriz(n, 9)
matprima!tx_conversao = matriz(n, 10)
matprima!preço2 = matriz(n, 11)
matprima!medida2 = matriz(n, 12)
matprima.Update
End If
n = n + 1
Loop
End Sub
 
Espero que isso ajude de alguma maneira.
   
wicrowsky18
SAO PAULO
SP - BRASIL
Postada em 08/03/2011 14:38 hs         
Obrigado Amigos, Consegui!!!
     
Página(s): 1/1    

CyberWEB Network Ltda.    © Copyright 2000-2022   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página