Bom dia Andre

Dê uma olhada no tutorial do link abaixo:
http://www.tomasvasquez.com.br/blog/mic ... nova-pasta

Se foi útil, clique na mãozinha.

[]s

Bom dia ,eu tenho aqui uma macro que salva a planilha em PDF num diretorio ao qual eu escolho, e essa macro possui apena 2 linhas de comando + a sua Dim + SUB + SUB end. Queria algo simples assim, existe ?

Mais simples que duas linhas de codigo??????????

O Local a ser salvo vai ser escolhido durante a execução ou vai ser salvo sempre no mesmo local pre definido??

Se for pra escolher o local sempre isso resolve

Sheets ("Nome").copy
Activeworkbook.saveas

Mais simples que duas linhas de codigo??????????

O Local a ser salvo vai ser escolhido durante a execução ou vai ser salvo sempre no mesmo local pre definido??

Se for pra escolher o local sempre isso resolve

Sheets ("Nome").copy
Activeworkbook.saveas

Funcinou porem salvou na pasta c:usersandredocuments ,salvou com nome Paste1 e a aba se chama complemento
Quero que salve com este nome em Xls. E quero que salve no diretorio

C:usersandredesktoppedidoscomplemento.xLs

Quanto a ter 2 linhas de comando eu quis dizer que tenho aqui uma macro assim e desta forma estaria ideal.

Sub salvar()
Dim stempPath as String
sTempPath = " c:usersandredesktoppedidos (xls)" & ""
Activeworkbook.saveAs filename:= StempPath & Range ("f4"), fileformat:=xlworkbookNormal
Sub end

Queria um simples assim, mas este acima não funciona aqui

Consegui aqui .

Sheets("complemento").copy
Activeworkbook.saveAs filename:= "c:usersandredesktoppedidos" & Range ("f4"), fileformat:=xlworkbookNormal

So tem um detalhe aqui, esta salvando a planilha em modo de compatibilidade, pois a planilha que esta sendo salva esta dentro do projeto que comtem macro. E dai aparece aquelas mensagens , quero que salve direto em xls sem ser em modo de compatibilidade

Ve se consegue ajustar a sua necessidade.

viewtopic.php?f=10&t=18995

Não é exatamente o que vc procura mas tem 2 exemplos vc pode tentar adaptar.

consegui

Sheets("COMPLEMENTO").Copy
ActiveWorkbook.SaveAs Filename:="C:UsersAndreDesktopPedidosrComplemento" & ".xLs" ', FileFormat:=xlWorkbookNormal

Grato