Criar Botão "Salvar" em um aplicativo Excel com VBA

Question

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

Answer 1

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...

Answer 2

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

 

Answer 3

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 Integer

Open "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

Answer 4

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

Answer 5

Oi...

Consegui fazer umas modificações no código, as quais acho que irão fazer o que preciso...

Quando tiver tudo certinho, eu posto o código aqui

Muito Obrigada

Rafaela Zschaber

Answer 6

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...