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

  • 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

    segunda-feira, 2 de outubro de 2006 19:53

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



    terça-feira, 3 de outubro de 2006 18:15

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



    terça-feira, 3 de outubro de 2006 18:15
  • 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

     

    quarta-feira, 4 de outubro de 2006 14:09
  • 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

    sábado, 7 de outubro de 2006 12:19
    Moderador
  • 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
    domingo, 8 de outubro de 2006 22:27
  • 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

    segunda-feira, 9 de outubro de 2006 16:06
  • 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...

    sexta-feira, 1 de abril de 2011 01:28