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

[Gustavo Gonçalves 0]

ola...gostaria di saber se tem como eu importar dados di um planilha do excel para uma tabela no access???valew..abraçuss

[Lord Edward 0]

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 ....

[Julien.Sorel 0]

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