MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


+3
edsonsousa3711
Avelino Sampaio
ErvinCM
7 participantes

    [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação

    avatar
    Convidad
    Convidado


    [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação - Página 1 Empty Re: [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação

    Mensagem  Convidad 21/9/2012, 20:59

    teste


    Private Sub teubotao_Click()
    Call BrowsingWindow
    End Sub

    'habilite a referencia VBA Microsoft Office xx.x Object Library
    Sub BrowsingWindow()

    Dim Dlg As FileDialog
    Dim txtFilePath As String
    Dim varFile As Variant

    Set Dlg = Application.FileDialog(msoFileDialogFilePicker)
    With Dlg
    .Title = "Select the file you want to import"
    .AllowMultiSelect = False
    If .Show = True Then

    For Each varFile In .SelectedItems
    txtFilePath = varFile
    Next
    DoCmd.TransferText acImportDelim, ";", "NovaTabela", txtFilePath
    Else
    Exit Sub
    End If
    End With

    End Sub
    avatar
    ErvinCM
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 30/01/2012

    [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação - Página 1 Empty Abrir uma pasta (diretório) escolher arquivo a carregar para importação

    Mensagem  ErvinCM 26/9/2012, 15:37

    OK, màs ao executar apresentou a seguinte mensagem:
    Erro de compilação: O tipo definido pelo usuário não foi definido

    Pode me ajudar ?

    Ervin
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação - Página 1 Empty Re: [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação

    Mensagem  Avelino Sampaio 26/9/2012, 16:00

    Vc ativou a referência no VBA , conform o Ricardo te indicou ??

    'habilite a referencia VBA Microsoft Office xx.x Object Library

    Qual é versão do seu Access ?


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    ErvinCM
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 30/01/2012

    [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação - Página 1 Empty Abrir uma pasta (diretório) escolher arquivo a carregar para importação

    Mensagem  ErvinCM 27/9/2012, 15:52

    OK deu certo, obrigado pela dica.
    avatar
    edsonsousa3711
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 17/10/2015

    [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação - Página 1 Empty Não consigo

    Mensagem  edsonsousa3711 18/8/2016, 02:46

    Boa noite fiz conforme anunciado no fórum e da erro
    avatar
    edsonsousa3711
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 17/10/2015

    [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação - Página 1 Empty Re: [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação

    Mensagem  edsonsousa3711 18/8/2016, 02:49

    Private Sub importar_Click()
    Call BrowsingWindow
    End Sub

    'habilitei a referencia VBA Microsoft Office 14.0 Object Library
    Sub BrowsingWindow()

    Dim Dlg As FileDialog
    Dim txtFilePath As String
    Dim varFile As Variant

    Set Dlg = Application.FileDialog(msoFileDialogFilePicker)
    With Dlg
    .Title = "Select the file you want to import"
    .AllowMultiSelect = False
    If .Show = True Then

    For Each varFile In .SelectedItems
    txtFilePath = varFile
    Next
    DoCmd.TransferText acImportDelim, ";", "NovaTabela", txtFilePath
    Else
    Exit Sub
    End If
    End With

    End Sub

    Mas no campo Dlg As FileDialog da erro e não segue mais em frente e se eu mudo algo aí que nao funciona por favor me ajudem
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação - Página 1 Empty Re: [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação

    Mensagem  Alvaro Teixeira 18/8/2016, 09:47

    Olá Edson Evangelista,
    Testei aqui no 2010 e está a funcionar na perfeição.
    Acho que será mesmo a questão das referencias, veja como fazer no editor do VBA:
    [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação - Página 1 Ju72p1

    Anexo o meu teste.
    Abraço
    avatar
    Lourandir
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 03/08/2014

    [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação - Página 1 Empty Importar no ACCESS escolhendo o local (Excel)

    Mensagem  Lourandir 3/4/2017, 13:30

    Bom dia Amigos!
    É possível fazer a importação de um arquivo em Excel, e já utilizando uma tabela existente com os parâmetros de entrada em cada campo?
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação - Página 1 Empty Re: [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação

    Mensagem  Alvaro Teixeira 3/4/2017, 17:34

    Olá Lourandir Ramos, seja bem-vindo ao fórum.
    Sim, é possível, pode importar como está (tabela temporária)
    E depois será uma consulta adicionar da tabela temporária para a tabela pretendida.
    No final eliminar tabela temporária.
    Abraço
    carolinesilva115
    carolinesilva115
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 91
    Registrado : 23/12/2019

    [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação - Página 1 Empty Re: [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação

    Mensagem  carolinesilva115 28/6/2020, 05:45

    Alguém pode me ajudar?

    Dá erro na parte  DoCmd.TransferText acImportDelim, ";", "NovaTabela", txtFilePath

    Diz: "Não é possível importar este arquivo."

    Sendo q a tabela q eu testei só tem 3 linhas


    Essa "NovaTabela" é criada automaticamente?
    Se não, o que preciso fazer na estrutura dela pra q consiga?

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação - Página 1 Empty Re: [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação

    Mensagem  Alvaro Teixeira 28/6/2020, 11:54

    Olá Carol,

    Que tipo de ficheiro está a tentar importar?
    Pode disponbilizr exemplo com dados de amostragem para se verificar?.

    Abraço
    carolinesilva115
    carolinesilva115
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 91
    Registrado : 23/12/2019

    [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação - Página 1 Empty Re: [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação

    Mensagem  carolinesilva115 28/6/2020, 19:52

    Então, testei primeiro a tabela que está em anexo. Aí deu esse erro.

    Depois tentei importar uma tabela que so tinha "A","B","C" escrito e deu erro tbm.

    Eu todo mês tenho q substituir os valores da tabela do access com os dados da nova tabela q eu vou importar
    Anexos
    [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação - Página 1 AttachmentSaldo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (11 Kb) Baixado 30 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação - Página 1 Empty Re: [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação

    Mensagem  Alvaro Teixeira 29/6/2020, 12:38

    Olá Carol,

    Deveria também ter enviado o código que está a usar.
    Teste com o exemplo da mensagem nº 5 deste tópico já de 2016 e funcionou direitinho:
    https://www.maximoaccess.com/t25383p4-resolvidodocmd-o-objeto-e-obrigatorio-erro-424

    Depois será ajustar conforme este tópico para escolher o ficheiro.
    Se continuar com dúvida, partilhe base de dados apenas com o código que esta a utilizar para se testar.

    Abraço
    carolinesilva115
    carolinesilva115
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 91
    Registrado : 23/12/2019

    [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação - Página 1 Empty Re: [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação

    Mensagem  carolinesilva115 29/6/2020, 15:51

    O código que eu usei é igual ao q vc mandou. Só copiei e colei.



    Mas resolvi através do código:
    Obrigada!

    Código:
    Private Sub Comando145_Click()
      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)
                DoCmd.DeleteObject acTable, "TabSaldo"
                ' importa 7 colunas de uma folha de excel com os nomes dos campos na primeira linha
                DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "TabSaldo", Ficheiro, True, "A:H"
                MsgBox "O arquivo " & Ficheiro & " foi importado com sucesso!", , "Atualização de Saldo"
            End If

        End With


    End Sub

    xismael gosta desta mensagem

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação - Página 1 Empty Re: [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação

    Mensagem  Alvaro Teixeira 29/6/2020, 16:57

    Olá Carol,

    Obrigado pelo retorno, que bom que resolveu.
    Já tinha efetuado um exemplo, veja como ficou:
    Código:
    Private Sub cmdExcel_Click()
    'ahteixeira 2020 para MaximoAccess
    'habilitar a referencia VBA Microsoft Office xx.x Object Library
    Dim Dlg            As FileDialog
    Dim txtFilePath    As String
    Dim varFile        As Variant

    Set Dlg = Application.FileDialog(msoFileDialogFilePicker)

        With Dlg
            .Title = "Escolha o ficheiro para importar"
            .AllowMultiSelect = False
            If .Show = True Then
                For Each varFile In .SelectedItems
                    txtFilePath = varFile
                Next
                DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "tbl_importada", txtFilePath, True
            Else
                Exit Sub
            End If
        End With
    End Sub

    Abraço
    Anexos
    [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação - Página 1 AttachmentImportarExcel.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (23 Kb) Baixado 97 vez(es)
    avatar
    xismael
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 22/11/2013

    [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação - Página 1 Empty Re: [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação

    Mensagem  xismael 8/9/2023, 16:21

    Olá carolinesilva115

    obrigado por compartilhar esse código, funcionou perfeitamente.

    Conteúdo patrocinado


    [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação - Página 1 Empty Re: [Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 18:53