Início
![[Resolvido]Abrir uma pasta (diretório) escolher arquivo a carregar para importação - Página 1 Empty](https://2img.net/i/empty.gif)
Olá Carol,
Obrigado pelo retorno, que bom que resolveu.
Já tinha efetuado um exemplo, veja como ficou:
Abraço
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 Attachment](https://2img.net/i/fa/attachment.png)
ImportarExcel.zip - Você não tem permissão para fazer download dos arquivos anexados.
- (23 Kb) Baixado 90 vez(es)
