Jump to content
Guest miguelfreitas

[RESOLVIDO] Botão para importar

Recommended Posts

Guest miguelfreitas

Boas tardes,

Estou a fazer uma base de dados Access, e pediram-me para meter no formulário um botão para importar, ou seja, que ao clicar, abra uma janela, para seleccionar o ficheiro (ex: teste.xlsx) a importar para o access.

Agradecia uma ajuda, obrigado :)

Share this post


Link to post
Share on other sites
FreiNando

Para Importar dados do Excel para tabelas em Access, posso dar-te um exemplo de codigo VBA:


    Dim Ficheiro As String
    
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Excel", "*.xls,*.xlsx"
        .FilterIndex = 1

        If .Show = 0 Then
            'Cancelado
         Else
            Ficheiro = .SelectedItems(1)

            ' importa 6 colunas de uma folha de excel com os nomes dos campos na primeira linha
             DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "TABELA", Ficheiro, True, "A:F"
        End If

    End With
    
    


O caminho mais curto para conseguir fazer muitas coisas é fazer uma de cada vez. Samuel Smiles

Share this post


Link to post
Share on other sites
Jeferson Carvalho
Em 21/03/2011 às 20:11, FreiNando disse:

Para Importar dados do Excel para tabelas em Access, posso dar-te um exemplo de codigo VBA:

 



    Dim Ficheiro As String
    
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Excel", "*.xls,*.xlsx"
        .FilterIndex = 1

        If .Show = 0 Then
            'Cancelado
         Else
            Ficheiro = .SelectedItems(1)

            ' importa 6 colunas de uma folha de excel com os nomes dos campos na primeira linha
             DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "TABELA", Ficheiro, True, "A:F"
        End If

    End With
    
    
Olá tudo bem? no meu não deu certo :/ apareceu a seguinte mensagem -> 

Erro em tempo de execução ‘-2147467259(80004005)’;

O método ‘FileDiaLog’ do objeto ‘_Application’ falhou

Teria como me ajudar?

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.