[ERRO1004] Macro Salvar Como não funciona

[diego_janjao]

Pessoal, boa tarde.

 

Tenho o seguinte problema:

 

Na célula AU19 há um contatenar que será o nome do meu arquivo (exemplo: 001_Produto_Fornecedor)

 

Mas ao rodar a seguinte macro: 

 

Sub SalvarComo()

    

    NameFolder = "C:\Users\bn45323\Desktop\Bonsucesso\Interna"

    NameFile = [AU19] & ".xls"

    ThisWorkbook.SaveAs (NameFolder & "\" & NameFile)

 

End Sub

 

Dá erro 1004:

 

e ao depurar aparece realçado a linha:  ThisWorkbook.SaveAs (NameFolder & "\" & NameFile)

 

Alguém pode me ajudar?

 

[Wendell Menezes]

Diego,

 

Por favor poste a sua planilha ou um exemplo que possua exatamente o mesmo valor na célula AU19.

 

Abraço

[diego_janjao]

Diego,

 

Por favor poste a sua planilha ou um exemplo que possua exatamente o mesmo valor na célula AU19.

 

Abraço

Claro

 

Consegui

Caso dê erro para descompactar, modifique a extensão para .7z

Modelo.rar

[diego_janjao]

Tente agora, Wendell

[Wendell Menezes]

Diego,

 

O problema é que na célula AU19 existe uma barra "/* e esse caractere não é aceito como parte do nome de um arquivo. Se você tentar renomear um arquivo manualmente com esse valor verá que não é possível.

 

Uma opção seria substituir a barra por outra coisa no código, exemplo::

NameFile = Replace([AU19], "/", "_") & ".xls"

Abraço

[diego_janjao]

Diego,

O problema é que na célula AU19 existe uma barra "/* e esse caractere não é aceito como parte do nome de um arquivo. Se você tentar renomear um arquivo manualmente com esse valor verá que não é possível.

Uma opção seria substituir a barra por outra coisa no código, exemplo::

NameFile = Replace([AU19], "/", "_") & ".xls"

Abraço

Engraçado que uso o mesmo código em outro arquivo e funciona.

Mas vou testar com a sua dica e te respondo.

[diego_janjao]

Muito obrigado, Wendell.

 

Poderia me explicar a lógica por traz dessa correção?

[Wendell Menezes]

Oi Diego,

 

A função Replace no VBA funciona como a fórmula =SUBSTITUIR no Excel. Vocé especifica uma texto/célula, depois o valor que deseja remover e o valor que deseja inserir no lugar do que foi removido. Nesse caso estamos removendo a barra e colocando o underscore no lugar.

 

Abraço