Não Importa nada

Bom dia, estou tentando fazer uma rotina de importação mas não funciona alguém pode me ajudar. se precisar do arquivo eu mando! Obrigado a Todos

Private Sub Comando0_Click()

Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim CaminhoDoFicheiro As String
Dim JanelaDeProcura As Office.FileDialog
Dim MeusFiltros As Office.FileDialogFilter
Dim VarArq as String

Dim blnHasFieldNames As Boolean
blnHasFieldNames = True
strPath = "C:\Users\Admrede\Desktop\MED_REC\TesteDb.MDB"
strTable = "ArquivoTXT" 'nome da tabela no seu banco

Set JanelaDeProcura = Application.FileDialog(msoFileDialogFilePicker)

With JanelaDeProcura ' opção para procurar o arquivo
.Title = "Selecione a Imagem" ' titulo
.Filters.Clear ' limpando os filtros
.Filters.Add "Text Files", "*.txt" 'adicionar o filtro para tipo de texto, e selececiona todos os arquivos .csv do diretorio strPath (C:)

.FilterIndex = 2

.ButtonName = "Selecione" ' nome do botão para selecionar
.InitialView = msoFileDialogViewDetails 'ver detalhes
.InitialFileName = "C:\Users\Admrede\Desktop\MED_REC\TesteDb.MDB" 'iniciar a procura na rede

If .Show = -1 Then ' apresentando
CaminhoDoFicheiro = CStr(JanelaDeProcura.SelectedItems.Item(1)) ' armazenar o caminho do arquivo
Else

Exit Sub
End If

Debug.Print Mid([CaminhoDoFicheiro], InStrRev([CaminhoDoFicheiro], "\") + 1)
CaminhoDoFicheiro = Mid([CaminhoDoFicheiro], InStrRev([CaminhoDoFicheiro], "\") + 1)
End With ' fim do with

strFile = Dir(strPath & CaminhoDoFicheiro) 'opção para procurar o arquivo, com "*.csv" carrega todos, define o selecionado.

Do While Len(strFile) > 0
strPathFile = strPath & strFile

Abre o arquivo txt
Open VarArq For Input As #1

'move para proxima linha
Line Input #1, LinhaTXT

While Not EOF(1)

'move para a 2ª linha
Line Input #1, LinhaTXT

'Retira a informação do txt e armazena na variavel - 33 campos
Ficheiro = Mid(LinhaTXT, 1, 5)
Ficheiro= Mid(LinhaTXT, 8, 4)

'insere as informações na tabela
ArquivoTXT.AddNew
ArquivoTXT.Fields("Campo_1")
ArquivoTXT.Fields("Campo_2")

strFile = Dir()
Loop
MsgBox "Importação efetuada com sucesso...", vbInformation

End Sub

Amigo!

Vejo que não leu as regras desse fórum.

Mesmo assim quando abriu esse fórum pela primeira
vez está escrito em vermelho, nas salas de repositório,
que é proibido colocar dúvidas ali.

Então, convido-o a ler as regras para termos um bom
convívio.

Dessa vez, eu mudo o tópico de sala.