Erro de Compílação ...
 
Notifications
Clear all

[Resolvido] Erro de Compílação ao tentar Localizar Arquivo

5 Posts
2 Usuários
2 Reactions
1,141 Visualizações
(@diegozl)
Posts: 6
Active Member
Topic starter
 

Olá,

Ativei a Gravação de Macros e peguei a fórmula para importar um arquivo específico em minha planilha do Excel, contudo, todo dia esse arquivo muda.

Em decorrência disso, criei uma função que puxa o caminho do arquivo, mas não estou conseguindo informar isso na fórmula.

O trecho de adição de arquivo da fórmula original era:

 

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\transacoes_01_08_2022.txt", Destination:=Range( _
"$A$3"))

Agora, estou tentando informando o Caminho, que fica atualizado em A1:

Caminho = "C:\transacoes_01_08_2022.txt"

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT";Caminho, Destination:=Range( _
"$A$3"))

Nisso, ocorre o seguinte erro :

Erro de compilação:

Era esperado: Separador de lista ou )

Já tentei algumas variações:

  • "TEXT;Caminho",
  • TEXT;Caminho,
  • "TEXT";Caminho,
  • Caminho,

Infelizmente, todas dão erro. Alguém sugere algo?

Obrigado.

Este tópico foi modificado 2 anos atrás by diegozl
 
Postado : 01/08/2022 12:18 pm
(@diegozl)
Posts: 6
Active Member
Topic starter
 

Pessoal, só pra deixar claro: quando eu coloco o código entre aspas, aqui no fórum, ele tá adicionando " a mais. No meu código, não tem aspas antes do nome Caminho. Da mesma forma, não tem aspas duplas após o caminho, mas somente uma.

Também não tem Aspas antes de With e nem ao fim desse comando.

 
Postado : 01/08/2022 12:21 pm
EdsonBR
(@edsonbr)
Posts: 1057
Noble Member
 
Postado por: @diegozl

...quando eu coloco o código entre aspas, aqui no fórum, ele tá adicionando " a mais.

Bom dia, @diegozl

Vc usou o botão "Bloco de citação", cujo símbolo aqui no fórum, na barra de ferramentas de edição é uma aspa dupla inglesa. Esse bloco é usado para citação de trechos de textos de outros autores, como fiz acima usando trecho de sua mensagem anterior como citação. Blocos de citação sempre adicionam aspas duplas antes e depois.

Para inserir código VBA ou fórmulas, o correto é usar o botão "Código" (símbolo de maior e menor: < >) da barra de edição.

Editei sua mensagem usando essa premissa.

 
Postado : 01/08/2022 12:53 pm
diegozl reacted
EdsonBR
(@edsonbr)
Posts: 1057
Noble Member
 

Referente sua dúvida, tente usar: 

With ActiveSheet.QueryTables.Add(Connection:= "TEXT;" & Caminho, Destination:=Range("$A$3"))

 

 
Postado : 01/08/2022 1:11 pm
diegozl reacted
(@diegozl)
Posts: 6
Active Member
Topic starter
 
Postado por: @edsonbr

Para inserir código VBA ou fórmulas, o correto é usar o botão "Código" (símbolo de maior e menor: < >) da barra de edição.

Obrigado. Eu pensava que o código era pra alternar entre HTML e TXT, rs.

Postado por: @edsonbr

Referente sua dúvida, tente usar: 

With ActiveSheet.QueryTables.Add(Connection:= "TEXT;" & Caminho, Destination:=Range("$A$3"))

 

Deu tudo certo. Era só a falta do &, mesmo. Que vacilo, rs. Muito obrigado, @Edsonbr!

 
Postado : 04/08/2022 12:53 pm