Notifications
Clear all

Não consigo criar um botão para Salvar minha Macro

6 Posts
3 Usuários
0 Reactions
1,225 Visualizações
(@joao0212)
Posts: 28
Eminent Member
Topic starter
 

Boa tarde pessoal.
Estou criando um formulário que será enviado para 27 pessoas, onde elas terão que preencher os campos e salvar no próprio pc, retornado apenas com os dados salvo.
Sou novo com macro e vinha acompanhando pela internet e vi que a melhor opção, por ser simples, era utiliza-la.
Pois bem, estava fazendo um teste com o botão de Salvar e criei da seguinte forma.

Private Sub CommandButton1_Click()
ActiveWorkbook.SaveAs
End Sub

Pois bem, quando compilo e mando executar o código, ele me dar um erro assim.

Se eu aperto sim, ele salva o arquivo sem as macros, no caso, era pra eu apertar o não e selecionar o formato, porém ele da esse outro erro.

então, o que está errado?
Como eu disse, sou novo em macro, mas tenho noção de programação em outras linguagens. Estou aberto para aprender e novas sugestões.
Muito Obrigado.

 
Postado : 13/11/2013 10:49 am
(@edilsonfl)
Posts: 227
Estimable Member
 

Olá joão,

Parece que você esta tentando trabalhar com VBA em um arquivo .xlsx.
Antes de gravar as macros e/ou código VBA, salve sua planilha com a extensão .xlsm .

 
Postado : 13/11/2013 12:25 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Contribuindo,
O método Save As utiliza mais alguns parâmetros como: NovoNome do arquivo e o tipo do arquivo (se xls/txt/xlsx ....)
A sintaxe mais completa seria algo assim:
ActiveWorkbook.SaveAs Filename:="D:ReinaldoDiasUteis.xlsm", FileFormat:= xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

 
Postado : 13/11/2013 6:53 pm
(@joao0212)
Posts: 28
Eminent Member
Topic starter
 

Olá joão,

Parece que você esta tentando trabalhar com VBA em um arquivo .xlsx.
Antes de gravar as macros e/ou código VBA, salve sua planilha com a extensão .xlsm .

Edilson,
Até que deu certo, só que o que acontece é que qnd eu mando compilar, ele salva na pasta que eu quero, porém, qnd eu abro o arquivo de novo e eu quero que abra a caixa na planilha por exemplo, ele não abre, só qnd eu vou no código e mando compilar de novo.
Pq isso acontece.

 
Postado : 14/11/2013 10:47 am
(@joao0212)
Posts: 28
Eminent Member
Topic starter
 

Contribuindo,
O método Save As utiliza mais alguns parâmetros como: NovoNome do arquivo e o tipo do arquivo (se xls/txt/xlsx ....)
A sintaxe mais completa seria algo assim:
ActiveWorkbook.SaveAs Filename:="D:ReinaldoDiasUteis.xlsm", FileFormat:= xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Obrigado Reinaldo, muito útil as dicas!!

 
Postado : 14/11/2013 10:48 am
(@joao0212)
Posts: 28
Eminent Member
Topic starter
 

Olá joão,

Parece que você esta tentando trabalhar com VBA em um arquivo .xlsx.
Antes de gravar as macros e/ou código VBA, salve sua planilha com a extensão .xlsm .

Edilson,
Até que deu certo, só que o que acontece é que qnd eu mando compilar, ele salva na pasta que eu quero, porém, qnd eu abro o arquivo de novo e eu quero que abra a caixa na planilha por exemplo, ele não abre, só qnd eu vou no código e mando compilar de novo.
Pq isso acontece.

Já consegui Reinaldo, obrigado!!

 
Postado : 14/11/2013 11:18 am