Application.OnTime Now + TimeValue macro modifica

[ste]

Hi everyone, I’m trying to make a macro to save LibreOffice sheets in CSV every 2 minutes. I set this macro so that I can save the sheets but it gives me an error on repetition. I think it’s because of application.ontime. I used it with xls, but I can’t understand if there is an alternative and what it is. I’ve been going on google for days.

This is the error:

Application.OnTime Now + TimeValue("00:00:30"), "ExportToCsv": Errore di runtime BASIC. Object variable not set

Anyone can help me?

This is the code:

Sub ExportToCsv
    document = ThisComponent

    ' Use the global string tools library to generate a path to save each CSV
    GlobalScope.BasicLibraries.loadLibrary("Tools")
    FileDirectory = Tools.Strings.DirectoryNameoutofPath(document.getURL(), "/")

    ' Work out number of sheets for looping over them later.
    Sheets = document.Sheets
    NumSheets = Sheets.Count - 1

    ' Set up a propval object to store the filter properties
    Dim Propval(1) as New com.sun.star.beans.PropertyValue
    Propval(0).Name = "FilterName"
    Propval(0).Value = "Text - txt - csv (StarCalc)"
    Propval(1).Name = "FilterOptions"
    Propval(1).Value ="44,34,0,1,1"   'ASCII 44=, 59 = ;  34 = "

    For I = 0 to NumSheets
        ' For each sheet, assemble a filename and save using the filter
        document.getCurrentController.setActiveSheet(Sheets(I))
        Filename = FileDirectory + "/" + Sheets(I).Name + ".csv"
        FileURL = convertToURL(Filename)
        document.StoreToURL(FileURL, Propval())
    Next I
    Call aggiornamento
End Sub


Sub aggiornamento()
    Application.OnTime Now + TimeValue("00:00:30"), "ExportToCsv"
End Sub

[smono]

Good question, I have the same problem.
I hope some one can help.

[Wanderer]

@smono

I hope some one can help

I just used google with:

LibreOffice macro at defined time

[Wanderer]

Answered at the following topic:

Macro VBA excel to calc

Sub vallerH24() ' ' valler Macro ' ' Keyboard Shortcut: Ctrl+Shift+I Range("C5").Select Selection.Copy lMaxRows = Cells(Rows.Count, "G").End(xlUp).Row Range("G" & lMaxRows + 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.OnTime Now + TimeValue("00:02:00"), "vallerH24" End Sub Sub ripeti() Application.OnTime Now + TimeValue("00:02:00"), "vallerH24" End Sub Hello, unfortunately I come fr…

My top google hit was:

How can I run a macro at regular time interval?

how can I run a macro at regular time interval?

Another macro in a german thread:

Makro zu einer bestimmten Zeit ausführen