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

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

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

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?

Olá,

Veja este tópico por exemplo:
https://www.maximoaccess.com/t9595p1-resolvidoabrir-uma-pasta-diretorio-escolher-arquivo-a-carregar-para-importacao

Abraço

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

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.

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