Salvamento automatico

[vitorscar]

Boa tarde,

tive lendo um artigo seu sobre executar um procedimento logo apos um tempo.

O que estou tentando fazer é abrir uma planilha no excel que possui 4 consultas sql, elas estao atualizando automaticamente. o que quero é que apos essa consulta ou apos um determinado tempo a planilha seja salta automaticamente.

Busquei no Google e li um artigo seu:

http://www.tomasvasquez.com.br/artigos/ ... ao_de.html

Só que nao esta funcionando, esta dando um erro apos os 10 segundos dizendo que nao é possivel executar a macro.

Preciso fazer alguma configuração no excel?

as macros ja estao todas liberadas, nao sei mais o que fazer.

Se puderes me ajudar....

Agradeço desde já!

Obrigado

[webmaster]

Vitor,

Vamos lá. Qual a versão do Office está utilizando? O código dá erro a todo momento ou só de vez em quando? Podelo colocar o código aqui para poder dar uma olhada? Fica mais fácil de ajudar.

Abraços

[vitorscar]

estou usando o Office 2007

Public Sub ExecutaOnTime()
ThisWorkbook.Save
End Sub

Public Sub TesteOnTime()
Call Application.OnTime(Now + TimeValue("00:00:10"), "ExecutaOnTime")
End Sub

E diz que nao pode ser executado...

minha planilha abre automatico, atualiza os dados ao iniciar... so que quero q apos isso tudo ser feito ela salve automaticamente.

eu usei a primeira vez o change so que tenho umas 4 consultas, e quando atualiza a primeira ele ja considera como uma mudança e salva, nao atuializando o resto.

Por isso queria algo que salvasse ela depois de um determinado tempo.

Obrigado

[webmaster]

Vitor,

Fiz o mesmo código, só acrescentando o seguinte:

Código: Selecionar todos

Public Sub ExecutaOnTime()
    ThisWorkbook.Save
    Debug.Print "Salvo em " & Now
    Call TesteOnTime
End Sub

Public Sub TesteOnTime()
    Call Application.OnTime(Now + TimeValue("00:00:10"), "ExecutaOnTime")
End Sub

E em "EstaPasta_de_trabalho":

Código: Selecionar todos

Private Sub Workbook_Open()
    Call TesteOnTime
End Sub

Assim, o método é agendado novamente a cada vez que o ExecutaOnTime ocorrea, além de informar que o código executou na janela de verificação imediata. Criei o arquivo no Excel 2007 e o salvei como xlsm. Funcionou sem problemas. Existe alguma situação "especial" que não estamos prevendo?

Abraços

[vitorscar]

Boa tarde,

coloquei as macros como vc descreveu....

so que deu um erro no EstaPasta_de_Trabalho - 'Sub' ou 'Function' nao definida.

estou salvando o arquivo como xlsx e alguns estao salvos em xls e todos os meus arquivos assim q sao salvos ja sao publicados.

esses arquivos estao no meu servidor e vao abrir por agendamento, vao ser atualizados, salvos e fechados.

so que a parte de salvar tem que ser atraves de macro.

Obrigado!

[webmaster]

Vitor,

Veja se o arquivo anexo ajuda. Ele contém duas versões (xlsm, xls). É bom lembrar que no Excel 2007, arquivos xlsx não podem conter macros. Para isso, salve-os como xlsm, como o arquivo que está anexo.

Abraços

[vitorscar]

Opaaaa...

Funcionou perfeitamente

Obrigado

[webmaster]

Só complementando, em alguns testes percebi que o método chamado pelo OnTime precisa estar em um módulo e declarado como Public, como é o caso do arquivo anexo.

Abraços