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

2 participantes

    [Resolvido]Buscar arquivo e importar para tabela via codigo

    avatar
    cisouza
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 14/11/2012

    [Resolvido]Buscar arquivo e importar para tabela via codigo Empty [Resolvido]Buscar arquivo e importar para tabela via codigo

    Mensagem  cisouza 25/11/2013, 21:13

    Mestres, já tentei vários códigos, entrei em vários fóruns, mas sempre dá erro na codificação

    Tenho uma tabela chamada "Cadastro"
    Tenho um formulário, neste formulário tenho um botão onde chamo o evento de importação.

    Minha importação é padronizada, contendo já o nome do arquivo e o local fixo.

    Desejo que ao clicar no botão, apareça a tela abrir, onde possa buscar o arquivo.


    Tenho este código do mestre JPaulo, mas importa tudo para apenas uma coluna, não separa as informações.

    Private Sub Comando4_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, ";", "Nova Tabela", txtFilePath
    Else
    Exit Sub
    End If
    End With
    End Sub
    avatar
    cisouza
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 14/11/2012

    [Resolvido]Buscar arquivo e importar para tabela via codigo Empty Re: [Resolvido]Buscar arquivo e importar para tabela via codigo

    Mensagem  cisouza 28/11/2013, 13:13

    Como não tive retorno dos mestres do fórum, estou passando o tópico para resolvido.
    avatar
    xismael
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Buscar arquivo e importar para tabela via codigo Empty Re: [Resolvido]Buscar arquivo e importar para tabela via codigo

    Mensagem  xismael 10/12/2013, 14:24

    Bom dia,

    Já tive essa dúvida, pesquise em um dos meus tópicos esta a solução.

      Data/hora atual: 5/12/2022, 17:22