Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Dúvidas sobre salva...
 
Notifications
Clear all

Dúvidas sobre salvar a planilha com outro formato

 
2024 - VBA & Macros
Post Recente por Wagner Morel 10 anos atrás
5 Posts
3 Usuários
0 Reactions
1,065 Visualizações
RSS
 victorapda
(@victorapda)
Posts: 27
Eminent Member
Topic starter
 

Saudações pessoal!

Estou tentando elaborar uma macro que salve um arquivo .xlsx como .xls, o que acontece é que ao executar a macro o arquivo .xlsx fecha e é substituído pelo .xls. Eu preciso que esse .xls nem abra de preferência, apenas que ele seja salvo mas continue o .xlsx na tela. Alguém sabe algum jeito?

Segue o excel exemplo em anexo.

Desde já grato!

testeConverter.xlsm
 
Postado : 23/05/2014 1:24 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Enquanto o pessoal não responde.

Leia:
http://www.rondebruin.nl/win/s5/win001.htm

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/05/2014 1:30 pm
 victorapda
(@victorapda)
Posts: 27
Eminent Member
Topic starter
 

Excelente link! Explica direitinho e ele faz o que eu queria fazer que é fechar o arquivo salvo! Valeu demais, Planilhando só tem gente FERA!

 
Postado : 23/05/2014 1:45 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!!

Eu fico feliz por ter lha ajudado, obrigado pelo retorno!!

Precisando é so falar ;)

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/05/2014 1:46 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

victorapda,

Boa Tarde!

Segue outra sugestão.

Sub Salvar()
    Workbooks.Add
    Windows("Pasta1.xlsm").Activate
    Sheets("Plan1").Select
    Sheets("Plan1").Copy Before:=Workbooks("Pasta2").Sheets(1)
    ActiveWorkbook.SaveAs Filename:="C:UsersF046779DownloadsPasta2.xls", _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.Close
End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 23/05/2014 1:49 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico