Errore macro su MAC

[sermedix]

Salve a tutti,
usando un foglio di calcolo, creato su sistema Windows, si presenta l'errore legato al seguente comando:

Codice: Seleziona tutto

	'parametri di esportazione
	Dim mStoreOpts(2) As New com.sun.star.beans.PropertyValue
	mStoreOpts(0).Name = "Overwrite"
	mStoreOpts(0).Value = True
	mStoreOpts(1).Name = "FilterName"
	mStoreOpts(1).Value = "calc_pdf_Export"
	mStoreOpts(2).Name = "FilterData"
	mStoreOpts(2).Value = mFilterData()
	ThisComponent.storeToURL(fname, mStoreOpts())  'l'errore è legato a questa stringa
    End Sub

Il problema non si presenta se uso il file sotto windows
Sapete come posso risolvere?
Grazie

[patel]

Su MAC nel nome del file non devi usare il backslash \ ma soltanto /

[sermedix]

Ciao patel,
l'indirizzo della cartella di salvataggio riportato dal terminale MAC è:
/Volumes/Backup\ Mac/Dropbox/Studio/Fatture\ 2018/
ho provato a modificare i backslash inserendo il cidice:

Codice: Seleziona tutto

	 'SALVA IN .PDF COL NOME COSTITUITO DAL NUMERO FATTURA E NOME PAZIENTE------------------------------------------------------------------------------------------------------------
    Sub EsportaSelezione_in_PDF
	Dim mFilterData(0) As New com.sun.star.beans.PropertyValue
	oDoc = ThisComponent
	Sheet = oDoc.getCurrentController.ActiveSheet
	aSel = oDoc.getCurrentSelection.RangeAddress
	cellnome = Sheet.getCellRangeByName("G3").string ' <<< cella da dove prendere il NUMERO
	'Sheet.getCellRangeByName("G3").value = Sheet.getCellRangeByName("G3").value + 1 ' <<< incremento numero fattura
	num = Format(Sheet.GetCellRangeByName("G3").value,"000")
	cellnum = Sheet.getCellRangeByName("C7").string ' cella da dove prendere il nome
	fname =  "file:/Volumes/Backup/ Mac/Dropbox/Studio/Fatture/ 2018/" & cellnome & " " & cellnum & ".PDF" ' <<< nome fattura
	mFilterData(0).Name = "A1:O31" 'area esportata in pdf
	mFilterData(0).Value = Sheet.getCellRangeByPosition(aSel.StartColumn, aSel.StartRow, aSel.EndColumn, aSel.EndRow)

	'parametri di esportazione
	Dim mStoreOpts(2) As New com.sun.star.beans.PropertyValue
	mStoreOpts(0).Name = "Overwrite"
	mStoreOpts(0).Value = True
	mStoreOpts(1).Name = "FilterName"
	mStoreOpts(1).Value = "calc_pdf_Export"
	mStoreOpts(2).Name = "FilterData"
	mStoreOpts(2).Value = mFilterData()
	ThisComponent.storeToURL(fname, mStoreOpts()) 'continua a dare errore in questo punto
    End Sub

ma continua a dare errore

[patel]

dopo file: ci devono essere 3 / quindi:
fname = "file:///Volumes
poi prova e togliere gli spazi in / Mac e / 2018/