none
Salvar Arquivo como RRS feed

  • Pergunta

  • Olá pessoal, boa tarde,

    Estou tentando salvar um arquivo com uma referência específica no nome, que é uma constante + uma variável.

    Tentei de algumas formas mas não estou conseguindo fazer, podem me ajudar?

    Segue como está o código:

        ActiveWorkbook.SaveAs Filename:= _
            "Z:\Investimentos\Rentabilidade\Enviado\" & "Painel de Investimentos " & " - " & Range("u3").Value & ".xlsx", FileFormat:= _
            xlOpenXMLWorkbook, CreateBackup:=False

    Porém, ele não acata o texto fixo, apenas a variável.

    Como posso resolver?

    terça-feira, 22 de janeiro de 2019 19:20

Todas as Respostas

  • Boa tarde.

    Não entendi a parte: "ele não acata o texto fixo, apenas a variável". Poderia explicar melhor?

    Que tipo de erro ocorre? Verificou se não existe algum caractere não permitido em "U3"?


    Filipe Magno

    terça-feira, 22 de janeiro de 2019 19:35
  • Olé Felipe,

    O nome que ele deve salvar é: "painel de investimentos + data do dia do relatório".

    Essa data é variável e era a referência dessa célula "u3".

    Porém, ao salvar o arquivo, ele descarta o painel de investimentos e aceita apenas a data.

    terça-feira, 22 de janeiro de 2019 19:40
  • Entendi.

    Mas pela expressão que inseriu não faz sentido este erro. De toda forma sugiro o seguinte: insira esta expressão em uma variável e cole seu valor em algum local da planilha ou na janela de verificação imediata e veja o resultado:

    Debug.Print "Z:\Investimentos\Rentabilidade\Enviado\" & "Painel de Investimentos " & " - " & Range("u3").Value & ".xlsx"
    
    ou
    
    x = "Z:\Investimentos\Rentabilidade\Enviado\" & "Painel de Investimentos " & " - " & Range("u3").Value & ".xlsx"
    
    ActiveSheet.Range("A1").Value2 = x

    Veja a saída.


    Filipe Magno

    terça-feira, 22 de janeiro de 2019 19:46
  • Felipe,

    De fato era um caracter especial, eu havia colocado "/" para salvar o nome do arquivo e não é permitido.

    Só me atentei a isso quando escreveu!

    Obrigado pela ajuda!

    terça-feira, 22 de janeiro de 2019 19:50