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
833 Visualizações
RSS
 JNEXCEL
(@jnexcel)
Posts: 298
Reputable 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
 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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/02/2018 9:10 am
 klarc28
(@klarc28)
Posts: 971
Prominent 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: 298
Reputable 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