salvare singolo foglio con nome cella

[finoalmattino]

salve di nuovooo
q.cuno mi sa dire come salvare 1 singolo foglio dandogli il nome di 1 cella ?
grazieee

[Robert Tucker]

Due thread in inglese:

http://www.oooforum.org/forum/viewtopic.phtml?t=125241
http://user.services.openoffice.org/en/ ... =20&t=7280

[patel]

questo per salvare il foglio1 col nome del foglio stesso

Sub salvaunfoglio
Dim arg(0) as new com.sun.star.beans.PropertyValue
dim args1(2) as new com.sun.star.beans.PropertyValue
cFolder = "C:\users\Andrea\Desktop\"
oDoc=thiscomponent
oSheets = oDoc.Sheets()
aSheetNames = oSheets.getElementNames()
Dim removeList(oSheets.getCount()) as String
index=0 ' <<<<<<<<<<<< vale per il foglio1
oSheet = oSheets.getByIndex(index)
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
cNewFileName = aSheetNames(index)
cNewFileName = Replace(cNewFileName, " ", "_") ' Replace spaces with underscores
oController = oDoc.GetCurrentController() 'view controller
oController.SetActiveSheet(oSheet) 'switches view to sheet object
document = oDoc.CurrentController.Frame
newDoc = StarDesktop.loadComponentFromURL("private:factory/scalc" ,"_blank", 0, Arg() )
newDoc.StoreAsURL(ConvertToUrl(cFolder + cNewFileName + ".ods" ), arg() )
args1(0).Name = "DocName"
args1(0).Value = cNewFileName
args1(1).Name = "Index"
args1(1).Value = 1
args1(2).Name = "Copy"
args1(2).Value = true
dispatcher.executeDispatch(document, ".uno:Move", "", 0, args1())
for s = 0 to newDoc.Sheets.Count - 1
sheet = newDoc.Sheets(s)
if sheet.Name <> cNewFileName then
removeList(s) = sheet.Name
else
removeList(s) = ""
end if
next s
'Remove all sheets apart from the active one
for s = 0 to ubound(removeList)
if removeList(s) <> "" then
newDoc.Sheets.removeByName( removeList(s))
end if
next s
newDoc.Store
newDoc.close(true)
'oDoc.dispose()
End Sub

Purtoppo su OO non sono disponibili tutti i comandi presenti su excel, bisogna arrangiarsi e il codice diventa lungo.

Il codice scritto per OO non funziona su Excel

[finoalmattino]

for s = 0 to newDoc.Sheets.Count - 1..... a questa linea di programma si blocca...
andrebbe bene anche una macro che rilevi il nome dalla cella e salva il foglio col nome in .pdf
e' possibile ?
ciaooo

[patel]

for s = 0 to newDoc.Sheets.Count - 1..... a questa linea di programma si blocca...

si blocca e dà un errore, quale ? a me funziona.

[finoalmattino]

ERRORE: valore o tipo di dati non ammesso
tipi di dati non corrispondenti

[patel]

prova a eliminare queste righe

Codice: Seleziona tutto

'	  for s = 0 to newDoc.Sheets.Count - 1
'        sheet = newDoc.Sheets(s)
'		if sheet.Name <>  cNewFileName then
'		  removeList(s) = sheet.Name
'		else
'		   removeList(s) = ""
'		end if
'	  next s

[finoalmattino]

una macro che prende il nome da una cella e salva iil foglio in pdf ?
graaaaaaazieeeeeeeeee

[patel]

bastava fare una ricerca
http://user.services.openoffice.org/it/ ... +pdf#p3260