Bom dia!
Por favor, alguém poderia me auxiliar?
Tenho o seguinte código:
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:UsersFiscalDesktoptxt.txt", Destination:=Range("$A$1"))
.Name = "txt"
O problema é o seguinte: eu gostaria que ao invés de sempre importar o arquivo "txt", o usuário fosse capaz de escolher o arquivo a ser importado.
Exemplo: quando o código for ativado ao invés de um importação automática (como está agora), o código possibilitasse ao usuário escolher o arquivo e local onde ele se encontra.
Muito obrigado!
Já verificou em http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=4254&hilit=+%2Aimpor%2A http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=9414&hilit=+%2Aimpor%2A
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Sub teste() Dim caminho As String caminho = Application.GetOpenFilename MsgBox caminho End Sub
No código acima, vai ser aberta uma janela para você escolher o arquivo.
Você pode adaptar. Lá naquela parte do seu código que contém o caminho do arquivo, você pode substituir por caminho, por exemplo:
Dim caminho As String
caminho = Application.GetOpenFilename
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & caminho, Destination:=Range("$A$1"))
.Name = "txt"
Se não der certo, aí só um ninja para dizer como deve ser feito.
Bom dia!
Obrigado Reinaldo, por informar sobre os links (eu observei eles, mas não consegui adaptar), mas agradeço pela sua atenção muito obrigado.
obrigado klarc28, sua adaptação foi exatamente o que eu precisa, muito obrigado.
Agradeço a todos pela ajuda e atenção.