Jump to content

Ao criar um novo ficheiro como dar-lhe o nome que pretendemos


jtiagodias

Recommended Posts

Ora bom dia...

Andei a fazer umas pesquisas e encontrei o seguinte código para criar um novo ficheiro.

  Set NewBook = Workbooks.Add

    With NewBook

        .Title = "All Sales"

        .Subject = "Sales"

        .SaveAs Filename:="Allsales.xls"

    End With

O meu objectivo é, relativamente, simples.

Tenho um ficheiro com n folhas de cálculo. Criei um formulário para que o utilizador selecciona as que pretende exportar (senão o ficheiro fica com 5 Mb e há informação que alguns utilizadores não devem ver).

O objectivo era, ao clicar no botão de exportação (de acordo com os critérios pré-definidos) o VBA criava um novo ficheiro e propunha desde logo o nome para o ficheiro e a´está, neste momento, o meu problema.

Trata-se do apuramento de custos mensal de uma empresa.. Isso significa que o nome do ficheiro varia consoante o mês... Depois varia também consoante a "área da empresa" a que essa informação corresponde e, por isso mesmo, não estou a conseguir vislumbrar uma forma para automatizar isto.

Alguém me consegue dar uma ajuda???

Desde já o meu obrigado.

Bejios e abraço

Link to comment
Share on other sites

  • 3 weeks later...

Viva.

Arranjei uma forma de "desenrascar" mas gostava de saber como se consegue "sugerir" o novo nome do ficheiro.

Eu fiz uma rotina que cria uma cópia do ficheiro em que estou a trabalhar e, assim, ele mete o nome que o ficheiro já tem.

Mas gostava de ser eu a preencher a sugestão par ao nome do ficheiro.

Obrigado

Abraço

Link to comment
Share on other sites

O código que colocaste no post inicial serve perfeitamente. Só tens de colocar uma inputbox quando vais a gravar:

Set NewBook = Workbooks.Add
    With NewBook
        .Title = "All Sales"
        .Subject = "Sales"
        .SaveAs Filename:=inputbox("Qual o nome do ficheiro?") & ".xls"
    End With
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.