Alterar With ActiveSheet

2024 - VBA & Macros

Post Recente por JNEXCEL 7 anos atrás

4 Posts

3 Usuários

0 Reactions

828 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

(@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