Início
rm1622 16/2/2018, 12:47Olá amigos!
Preciso de uma ajuda com um código em vba access. Tenho uma função que abre uma caixa de diálogo onde posso selecionar arquivos que preciso importar.
funcionou bem até agora com arquivos txt, mas agora preciso importar arquivos .dat.
Serei possível criar uma algorítimo mudasse o arquivo selecionado de dat para txt antes da importação, já que não consigo importar arquivos Dat?
Access 2016
Preciso de uma ajuda com um código em vba access. Tenho uma função que abre uma caixa de diálogo onde posso selecionar arquivos que preciso importar.
funcionou bem até agora com arquivos txt, mas agora preciso importar arquivos .dat.
Serei possível criar uma algorítimo mudasse o arquivo selecionado de dat para txt antes da importação, já que não consigo importar arquivos Dat?
Access 2016
- Código:
Function EscolhaArquivo(Optional strTitulo As String) As String
On Error GoTo TrataErro
2:
Dim Dlg As FileDialog
Dim txtFilePath As String
Dim varFile As Variant
Set Dlg = Application.FileDialog(msoFileDialogFilePicker)
With Dlg
.Title = "Selecione o(s) arquivo(s) de Leitura"
.AllowMultiSelect = False
If .Show = True Then
For Each varFile In .SelectedItems
txtFilePath = varFile
Next
DoCmd.TransferText acImportDelim, ";", "leitura", txtFilePath
Exit Function
End If
End With
TrataErro:
End Function
