Jump to content

Archived

This topic is now archived and is closed to further replies.

Gustavo Gonçalves

importar dados do excel para access!!??!!

Recommended Posts

claro,basta ir em ARQUIVO/OBTER DADOS EXTERNOS/IMPORTAR, e escolher que quer importar dados e arquivos excel ...lembrando que importando do excel, você não poderá adicionar dados numa tabela já criada, e sim terá que criar uma nova tabela toda vez que importar ....

Share this post


Link to post
Share on other sites

Olá Pessoas,

 

Olhando alguns posts antigos - possivelemente já esclarecidos anteriormente -, resolvi encontrar uma outra maneira para solucioná-los.

 

Talvez seja uma forma mais fácil de resolver - ou não -, mas de qualquer maneira, é mais uma opção.

 

Primeiro exemplo:

 

Private Sub cmdImp_Click()
Dim strDir As String

On Error GoTo Err_Importar
    
    strDir = "C:\Diretório\Arquivo_Excel.xls"
    
    'Importação das informações do arquivo Excel
    If MsgBox("Deseja importar a lista de preços?", vbQuestion + vbYesNo, "Sistema!") = vbYes Then
                
        'Limpa a tabela informada (NmTabela)
        DoCmd.SetWarnings (False)
        SQL = "DELETE * FROM NmTabela"
        DoCmd.RunSQL SQL
                    
        'Importa novas informações para tabela
        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "NmTabela", strDir, True
        MsgBox "Importação realizada com sucesso!", vbInformation, "Sistema!"
        
    End If
    
Exit_Importar:
Exit Sub

Err_Importar:
    MsgBox "Erro número: " & Err.Number & vbLf & vbLf & Err.Description, vbCritical, "Sistema LPST - Tool!"

Resume Exit_Importar

End Sub

 

 

Sem mais,

 

Julien Sorel

Share this post


Link to post
Share on other sites

×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.