Sub teste()

ActiveWorkbook.SaveAs Filename:="C:UsersANDERSONDesktopteste.xlsx"

End Sub

Sub teste()

ActiveWorkbook.SaveAs Filename:="C:UsersANDERSONDesktopteste.xlsx"

End Sub

Esse código eu já tenho la em cima no próprio post...

Eu já consegui exportar a planilha pra outro arquivo, o que eu preciso é que na hora de exportar, o nome da pasta de trabalho seja especificado.

Tenta o seguinte:

dirCopia = "diretorio do arquivo"
nomeCopia = "nome do arquivo"
 
ActiveWorkbook.SaveAs Filename:= "C:UsersANDERSONDesktopteste.xlsx"
dirCopia + nomeCopia, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Amigo, acho que eu não consegui explicar exatamente o que eu preciso..

meu código pra exportar já esta funcionando..

quando vc aperta F11 e clica em (ThisWorkbook) "EstapastaDeTrabalho", igual a imagem abaixo.
É possível alterar o nome da pasta de trabalho VBA.

Quando eu executo o código que vc me passou ou o meu mesmo ele realmente cria a pasta de trabalho nova, mas o Nome da PastaDeTrabalho VBA vem por padrão.

preciso que ela seja renomeada igual a imagem abaixo, só que isso deve ser feito no momento da criação do novo arquivo, que é através do código que vc já me passou.

Qual o motivo real disso?

Pra chamar o arquivo nao precisa alterar esse nome

Basta dentro do seu codigo essa linha

Application.Workbooks.Open ("Caminho do arquivo")

As 2 planilhas já vão estar abertas. eu tenho uma macro que precisa alternar entre os arquivos. e pra chamar eles de acordo com os dados eles precisam ter pastas de trabalho individual.

Simples é so declarar uma variavel

Sub NovoArquivo()

Dim WB As Workbook
Dim W As Workbook

Set WB = ThisWorkbook
Workbooks.Add
Set W = ActiveWorkbook

'Seu Codigo

End Sub

Apesar que eu prefiro, acho mais eficiente, ter uma planilha modelo e exportar apenas depois de executar o codigo.

Simples é so declarar uma variavel

Sub NovoArquivo()

Dim WB As Workbook
Dim W As Workbook

Set WB = ThisWorkbook
Workbooks.Add
Set W = ActiveWorkbook

'Seu Codigo

End Sub

Apesar que eu prefiro, acho mais eficiente, ter uma planilha modelo e exportar apenas depois de executar o codigo.

Tentei isso ai tambem, mais não deu certo..

Realmente preciso aprender como definir um nome pra pasta de trabalho. rsrs

Testei e funcionou:

Sub teste()

Workbooks.Add
 ActiveWorkbook.SaveAs "C:UsersANDERSONDesktopteste.xlsx"

End Sub

alteração manual ~~~> selecione EstaPasta_de_trabalho / menu Exibir / Janela Pripriedades / no campo (Name) digite o novo nome (ex. JACARÉ) / aperte Enter

alteração via código ~~~> ThisWorkbook.[_CodeName] = "JACARÉ"

Cara..... quando eu digo pasta de trabalho... não me refiro ao arquivo EXCEL que ele gera quando se usa o código Workbooks.Add
ActiveWorkbook.SaveAs "C:UsersANDERSONDesktopteste.xlsx", mais sim quando se aperta F11, la no VBA da pra mudar o nome da pasta de trabalho interna.... a pasta de trabalho de programação.. igual nas PRINT que coloquei mais acima.

é o nome da pasta de trabalho que mostra quando se aperta F11 que eu preciso mudar.
e não o nome que do arquivo de excel que salva.

alteração manual ~~~> selecione EstaPasta_de_trabalho / menu Exibir / Janela Pripriedades / no campo (Name) digite o novo nome (ex. JACARÉ) / aperte Enter

alteração via código ~~~> ThisWorkbook.[_CodeName] = "JACARÉ"

Isso, estamos chegando no que eu preciso fazer.. HaHa

o que é esse [_CodeName]??

tenho que colocar oque ai?

pode me mandar um arquivo de exemplo por favor?

Preciso da junção desses 2 códigos.

alteração manual ~~~> selecione EstaPasta_de_trabalho / menu Exibir / Janela Pripriedades / no campo (Name) digite o novo nome (ex. JACARÉ) / aperte Enter

alteração via código ~~~> ThisWorkbook.[_CodeName] = "JACARÉ"

Testei e funcionou:

Sub teste()

Workbooks.Add
 ActiveWorkbook.SaveAs "C:UsersANDERSONDesktopteste.xlsx"

End Sub

pra poder salvar um novo arquivo excel, porem com o nome predefinido da pasta de trabalho, que no exemplo acima foi "JACARÉ"

pode me mandar um arquivo de exemplo por favor?

Instale o código abaixo em um módulo comum do arquivo que você deseja alterar o nome do módulo de EstaPasta e em seguida rode o código.

Sub AlteraNome()
 ThisWorkbook.[_CodeName] = "JACARÉ"
End Sub