(Resolvido) Macro

[bareta]

tenho a seguinte macro

ela exporta a planilha em HTML, queria que a cada mais ou menos 2 minutos a macro rodase e exportasse esse arquivo...

na atual situação eu posso aumentar o valor do for para chegar nesse tempo, mais o uso de CPU é muito alto... tem outra forma de fazer isso...

Sub exportar()
    
    Sheets("SP").Select
    With ActiveWorkbook.PublishObjects("cotação_25837")
        .HtmlType = xlHtmlStatic
        .Filename = _
        "C:\Documents and Settings\Sala de Agronegócios\Meus documentos\site\agrosala\modelos\soja.htm"
        .Publish (False)
        .AutoRepublish = False
    End With
       
     ActiveWorkbook.Save
     
For I = 1 To 30000000 Step 0.1
a=i*1,99
Next
Call exportar

     
End Sub

[RenatoMejias]

Opa Bareta, uso de Macros apesar de ser Excel usa códigos VBA, creio que o pessoal daquela seção poderá lhe ajudar melhor.

[Guest Sir]

Crie uma macro conforme abaixo

e faça uma chamada pra ela na macro exportar

call espera

pode tirar o for-next de espera e o call exportar deve ser trocado por call espera pois após exatos dois minutos sua macro será rodada e ao terminar chamara

a macro espera novamente assim sucessivamente. Para cancelar edite a macro exportar e elimine a chamada para a macro espera.

Sub espera()
Application.OnTime Now + TimeValue("00:02:00"), "exportar"
End Sub

[Duduh_Capixaba]

cara esse código é show!!! funciona perfeito, muito bom mesmo! dá só uma olhada nisso tb:

Este exemplo executa my_Procedure daqui a 15 segundos.

Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"

Este exemplo executa my_Procedure às 17:00.

Application.OnTime TimeValue("17:00:00"), "my_Procedure"

Este exemplo cancela a definição de OnTime do exemplo anterior.

Application.OnTime EarliestTime:=TimeValue("17:00:00"), _

Procedure:="my_Procedure", Schedule:=False

[bareta]

perfeito.... muito obrigado...