Errore nell'applicare filtri su finestra apertura file

chiesto il 2017-01-26 11:15:56 +0200

Immagine gravatar per RafMita

updated 2017-01-26 14:47:43 +0200

Buongiorno, sono alle prese con una macro in Basic per selezionare un file di testo da cui importare i dati. Di seguito il codice:

Dim fName As String
Dim file_dialog as Object
Dim status as Integer
Dim file_path as String
Dim init_path as String
Dim ucb as object
Dim filterNames(2) as String

filterNames(0) = "*.*"
filterNames(1) = "*.txt"

GlobalScope.BasicLibraries.LoadLibrary("Tools")
file_dialog = CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
ucb = createUnoService("com.sun.star.ucb.SimpleFileAccess")

AddFiltersToDialog(filterNames(), file_dialog)

L'esecuzione mi restituisce il seguente errore sulla riga "AddFiltersToDialog":

"Errore di sintassi BASIC. Atteso: =."

Non riesco ad individuare il problema che fa scattare questo errore.

modifica retag flag offensive close merge delete