Usuário com melhor resposta
Criar Botão "Salvar" em um aplicativo Excel com VBA

Pergunta
-
Boa tarde ,
Gostaria da ajuda de vocês pra criar um botão "Salvar", o qual terá a função de salvar as informações inseridas em uma planilha excel.
Como sou nova na aréa não tenho a mínima noção de como posso desenvolve-lo.
Agradeço desde Já pela Atenção e Ajuda.
Rafaela Zschaber
Respostas
-
Boa tarde Rafaela, desculpe, mas creio que não entendi muito bem a sua pergunta....
você quer somente salvar a planilha?
Se for isso é só criar um button, fica na Tollbar "forms", apontar para esta macro(botão direito no button > assign macro):
Sub Salvar()
ActiveWorkbook.Save
End Sub
Acho q não é só isso que você quer ne?
responda que tentarei judar =D
Até mais...
Todas as Respostas
-
Boa tarde Rafaela, desculpe, mas creio que não entendi muito bem a sua pergunta....
você quer somente salvar a planilha?
Se for isso é só criar um button, fica na Tollbar "forms", apontar para esta macro(botão direito no button > assign macro):
Sub Salvar()
ActiveWorkbook.Save
End Sub
Acho q não é só isso que você quer ne?
responda que tentarei judar =D
Até mais... -
Oi... espero que esteja td bem
Acho q não me expressei bem... mas vamos ver se consigo agora
Primeiramente queria agradecer a dica que vc postou me ajudou, pois resumiu e muito o código que eu estava trabalhando... isso é que dá ser nova na aréa... rsrsr
Bom, o meu problema maior é o seguinte.... preciso gerar um arquivo xml e salvar as informações atuais das planilhas do excel.
Já fiz o arquivo xml, gera tudo certinho quando faço pelo bloco de notas, porém tenho que ter um botão na planilha que gere o arquivo xml e salve o documento simultaneamente.
Espero ter sido mais clara...
Agradeço e muito pela ajuda
Até mais
-
Oi Rafaela,
a resposta depende um pouco da versão do Excel que você utiliza, e também da forma que pretende trabalhar com a pasta de trabalho.
Se for o Excel 2003, você consegue mapear a pasta de trabalho com seu arquivo XML, e já salvá-la no formato de dados.
Se for versão mais antiga do Excel, ou mesmo o Excel 2003 não mapeado por XML, pode gerar um arquivo "na unha", com um código semelhante a este:
Sub GeraXML()
Dim i As IntegerOpen "c:\Projetos\Dados.xml" For Output As #1
Print #1, "<MeusDados>"
For i = 1 To 3
Print #1, "<Produto>" & Cells(i, 1) & "</Produto>" & _
"<Preco>" & Cells(i, 2) & "</Preco>"
Next i
Print #1, "</MeusDados>"
Close #1
End Sub -
Olá.... eu em pleno domingo quebrando a cabeça.... rsrsrsrAcho que fica melhor se eu postar o código assim vc pode ver a maneira que eu estou fazendo.
O Office é 2000, por isso não cosigo gerar automaticamente pelas novas funções a partir da versão 2003.
Código :
Public Sub CmdSalvarEGerar_Click()
CreateObject ("Excel.Automation")
Set appExcel = CreateObject("Excel.Application")
ActiveWorkbook.Save
'Salva as alterações do arquivo
Worksheets("Gerador XML").Activate
'Ativa planilha Gerador XML
ActiveSheet.Range("G04:G138").Select
'Seleciona o Range
Selection.Copy
'Copia a Seleção
DadosXML = Range("G04:G138").Value
'Atribui o valor do Range para a var DadosXML não atribui tipo a essa variável, vc tem alguma sugestão?
Worksheets("XML").Activate
'Ativa a planilha XML
Sheets("XML").Range("A04:A138").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
'Cola o valor do Range na planilha XMLWorksheets("XML").Range("A04:A138").Activate.SaveAs "c:\teste.xls"
'No caso aqui deveria salvar o valor do range em formato xml, mas não funciona
End Sub
Só falta eu conseguir salvar os dados da planilha como um arquivo .xml, porém ocorre o erro: "Erro em tempo de execução '429' O componente ActiveX não pode criar o objeto".
Já ativei a referência do excel, mas mesmo assim não funciona.
Será que vc pode me dar outra ajuda?
Desculpa, mas é que realmente tenho que terminar isso.
Mais uma vez Obrigada -
-
olá meu nome é rafael eu estou precisando de ajuda será que alguém pode me ajudar obrigado
acontece assim, eu criei um cadastro de clientes no excel 2003 e quando vou fazer o botão de salvar nada da certo quer dizer tudo da certo menos o botão de salvar estou precisando de ajuda qual é o código correto do botão salvar lembrando que ele é feito pelo visual basic eu preciso fazer uma prova sobre isso e estou precisando mesmo de ajuda de vocês obrigado e até mais abraçosss...