MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Formulario não executando abertura e importação de arquivo excel para base do access

    avatar
    Rosenildo Santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 12/08/2020

    [Resolvido]Formulario não executando abertura e importação de arquivo excel para base do access Empty [Resolvido]Formulario não executando abertura e importação de arquivo excel para base do access

    Mensagem  Rosenildo Santos em 13/8/2020, 01:25

    Prezados, estou precisando de ajuda, sou iniciante em criação de base de dados e uso do VBA.
    Tenho uma base de dados no access e utilizo um formulário pra importar os dados de uma planilha excel para essa base.
    Fazia a importação normalmente no access versão 32 bits e precisei mudar para a versão 64bits. Com a mudança de versão vieram os problemas:
    1º incompatibilidade: 'Erro de compilação' que consegui resolver com a inclusão do atributo PtrSafe.
    2º O botão do comando pra importação desabilitou, não consigo mais utilizar o comando que abre o local do arquivo pra exportar os dados, mas caso eu preencha o caminho do arquivo manualmente consigo importar os dados. Agradeço se puderem me ajudar, pois pesquisei e não encontrei solução.

    Segue comando no qual tenho problema:

    Private Sub Comando9_Click()
    On Error GoTo Err_cmd_Arquivo_Click

    Dim endereco As String
    Dim abrirArquivo As New CommonDialog

    ' If (IsNull(cmb_Arquivo) Or cmb_Arquivo = "") Or
    ' (IsNull(var_Endereco) Or var_Endereco = "") Then
    ' cmb_Arquivo = ""
    ' MsgBox "Opção de Arquivo não foi selecionada.", vbCritical
    ' Else
    endereco = abrirArquivo.GetOpenFile(Me.hwnd, "Selecione o arquivo a ser importado", "C:\Users\Public\Documents")
    If Len(endereco) > 0 Then
    txt_Arquivo = endereco
    Else
    txt_Arquivo = vbNullString
    End If

    Me.Recalc
    Me.Repaint
    Me.Requery

    Exit_cmd_Arquivo_Click:
    Exit Sub
    Err_cmd_Arquivo_Click:
    MsgBox Err.Description, vbCritical + vbOKOnly, "Nº Erro - " & Err.Number
    Resume Exit_cmd_Arquivo_Click
    End Sub
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Formulario não executando abertura e importação de arquivo excel para base do access Empty Re: [Resolvido]Formulario não executando abertura e importação de arquivo excel para base do access

    Mensagem  ahteixeira em 13/8/2020, 23:21

    Olá Rosenildo, seja bem-vindo ao fórum.


    Não falta exemplos no forum, veja como fazer uma "Busca":
    https://www.maximoaccess.com/t1115-busca-no-forum-search

    Se não conseguir nos estamos cá para ajudar.

    Abraços
    avatar
    Rosenildo Santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 12/08/2020

    [Resolvido]Formulario não executando abertura e importação de arquivo excel para base do access Empty Re: [Resolvido]Formulario não executando abertura e importação de arquivo excel para base do access

    Mensagem  Rosenildo Santos em 17/8/2020, 14:40

    Ahteixeira, agradeço o retorno!
    Talvez eu não esteja sabendo explicar direito o problema. O botão em questao (descrito no comando citado: Private Sub Comando9_Click()) não funciona, não abre o local onde estao os dados e que permite selecionar a planilha em excel.
    Ao clicar no botão aparece a mensagem: "Erro de compilação: o tipo definido pelo usuário não foi definido". E marca o trecho " Dim abrirArquivo As New CommonDialog".
    Fiz busca como vc sugeriu, mas infelizmente não encontrei nenhum caso que atende a minha necessidade. Não estou conseguindo corrigir esse erro, talvez seja o caso de redefinir o comando, e ate tentei, mas não consegui. O que posso fazer?
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Formulario não executando abertura e importação de arquivo excel para base do access Empty Re: [Resolvido]Formulario não executando abertura e importação de arquivo excel para base do access

    Mensagem  ahteixeira em 17/8/2020, 16:35

    avatar
    Rosenildo Santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 12/08/2020

    [Resolvido]Formulario não executando abertura e importação de arquivo excel para base do access Empty Formulario não executando abertura e importação de arquivo excel para base do access

    Mensagem  Rosenildo Santos em 18/8/2020, 21:52

    Opa, agradeço a ajuda, vi o tópico que voce indicou como exemplo e no meu caso deu certo, consegui importar a planilha excel com esse comando:

    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
    avatar
    Rosenildo Santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 12/08/2020

    [Resolvido]Formulario não executando abertura e importação de arquivo excel para base do access Empty Formulario não executando abertura e importação de arquivo excel para base do access

    Mensagem  Rosenildo Santos em 18/8/2020, 22:27

    Se me permite, gostaria de uma orientação sua, seria possível fazer a importação dos dados tambem de um arquivo txt (.csv)? é que alguns arquivos que recebo é .csv e para estes preciso importar primeiro para o excel para depois importar fazer a importação da planilha para base do Access, faço isso pra varios arquivos e isso onera muito tempo. Então se eu conseguisse importar das 2 formas seria perfeito.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Formulario não executando abertura e importação de arquivo excel para base do access Empty Re: [Resolvido]Formulario não executando abertura e importação de arquivo excel para base do access

    Mensagem  ahteixeira em 19/8/2020, 00:15

    Olá Rosenildo, claro que sim.

    Siga a recomendação da mensagem número dois.
    Se não encontrar veja no meu perfil nos anexos, acho que já fiz umas coisas para ajudar colegas.

    Abraço

      Data/hora atual: 4/12/2020, 04:37