Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Alterar With Active...
 
Notifications
Clear all

Alterar With ActiveSheet

 
2024 - VBA & Macros
Post Recente por JNEXCEL 7 anos atrás
4 Posts
3 Usuários
0 Reactions
826 Visualizações
RSS
 JNEXCEL
(@jnexcel)
Posts: 0
New Member
Topic starter
 

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!

 
Postado : 06/02/2018 8:52 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

 
Postado : 06/02/2018 9:10 am
 klarc28
(@klarc28)
Posts: 0
New Member
 
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.

 
Postado : 06/02/2018 10:54 am
 JNEXCEL
(@jnexcel)
Posts: 0
New Member
Topic starter
 

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.

 
Postado : 08/02/2018 5:41 am
Forum Jump:
  Tópico Anterior
Próximo Tópico