Problema Macro mail merge: Failed to save temporary file

Non sapete dove scrivere? Scrivete qui!
Regole del forum
Solo richieste di aiuto. Per saluti e presentazioni utilizzate il forum Discussioni Generali e Presentazioni.
Rispondi
marionulla
Messaggi: 3
Iscritto il: giovedì 22 marzo 2018, 9:31

Problema Macro mail merge: Failed to save temporary file

Messaggio da marionulla »

Ciao a tutti,
sono alla disperata ricerca di una soluzione ad un problema di stampa unione (mail merge) eseguita con una macro. Sto usando LibreOffice 6.
Premetto che non conosco nulla di Basic per cui ho pedestremente copiato e modificato una macro che ho trovato in rete. Il tutto non con poche difficoltà.
Adesso, quando la eseguo la prima volta tutto funziona. Quando la eseguo la seconda volta (e le successive) mi da un errore che non riesco a risolvere.

Errore di runtime BASIC.
Si è verificata un'eccezione
Type: com.sun.star.uno.RuntimeException
Message: Failed to save temporary file.
.

Il solo modo che ho trovato per ovviare al problema è killare soffice.bin e soffice.exe.
In seguito la macro viene nuovamente eseguita per una sola volta poi di nuovo l'errore.
Qualcuno sa come risolvere?
Vi ringrazio molto.

Di seguito il codice della macro

Codice: Seleziona tutto

Sub myMailmerge

    dim NameSource as String
    dim NameTable as String
    dim colunnPrefix as string
    dim URLframe as string
    dim CommandType as string
    dim Command as string
    dim dirResults as string
    dim myMailmerge as object, props()
    dim MergedFile as object, propFile()
    Dim  url as string

    NameSource = "tosap"
    NameTable = "tosap"
    URLframe = ConvertToURL("C:\temp_sipal\StampaUnioneOccupazione.odt")
    dirResults = ConvertToURL("C:\temp_sipal\risultati\")

    myMailmerge = createUnoService("com.sun.star.text.MailMerge")

    With myMailmerge
      .DataSourceName = NameSource
      .CommandType = com.sun.star.sdb.CommandType.TABLE
      .Command = NameTable
      .OutputType = com.sun.star.text.MailMergeType.FILE
      .SaveAsSingleFile = True
      .DocumentURL = URLframe
      .OutputURL = dirResults
      .execute(props())
    End With

    MsgBox("Il file è stato salvato nella cartella: "+dirResults)
   
   	url = ConvertToURL("C:\temp_sipal\risultati\StampaUnioneOccupazione0.odt")
	StarDesktop.loadComponentFromURL(url,"_blank",0,Array())
   

    End Sub
Ultima modifica di charlie il giovedì 22 marzo 2018, 10:15, modificato 1 volta in totale.
Motivazione: Formattato codice
Avatar utente
charlie
Site Admin
Site Admin
Messaggi: 8786
Iscritto il: mercoledì 19 dicembre 2012, 10:50
Contatta:

Re: Problema Macro mail merge: Failed to save temporary file

Messaggio da charlie »

Ciao e benvenuto sul forum.
Se intanto ti vuoi presentare puoi farlo qui: viewforum.php?f=16
Per una panoramica delle regole del forum consulta il Manuale di sopravvivenza: http://forum.openoffice.org/it/forum/vi ... hp?f=1&t=2
Buon proseguimento.
charlie
macOS 14.3 Sonoma: Open Office 4.1.15 - LibreOffice 7.5.7.2
http://www.charlieopenoffice.altervista.org
marionulla
Messaggi: 3
Iscritto il: giovedì 22 marzo 2018, 9:31

Re: Problema Macro mail merge: Failed to save temporary file

Messaggio da marionulla »

Grazie!
Presentazione ufficale effettuata! ...scusa se hai dovuto ricordarmelo...

Attendo fiducioso che qualcuno possa aiutarmi!

Grazie a tutti in anticipo
LibreOffice 6.0 su Windows 8.1
Rispondi