MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Não Importa nada

    Compartilhe

    robertocruzneto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 28/08/2014

    Não Importa nada

    Mensagem  robertocruzneto em Qui 26 Nov 2015, 11:18

    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

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2507
    Registrado : 29/06/2012

    Re: Não Importa nada

    Mensagem  Noobezinho em Qui 26 Nov 2015, 11:58

    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.


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

      Data/hora atual: Qui 08 Dez 2016, 21:53