[Solved] Save in the same directory with the same filename

[sw_and]

I think this should be simple though google didn't help
Please help.

Code: Select all

sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object

rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///home/user/Documents/cant_save_russiansaved.xls"
args1(1).Name = "FilterName"
args1(1).Value = "MS Excel 97"

dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())

end sub

[JohnSUN-Pensioner]

Welcome to the forum, sw_and!
You have several options for solving the problem.
1. Read Chapter 5.17. Saving And Exporting A Document from the book by Andrew Pitonyak "My Macro Libraries" and copy the correct code from the listing.
2. Use text macros StoreDocument from the standard library Tools
3. Ask a question on the Russian forum. There your question will be easier to formulate and the answers will be clearer (I hope)

[kingfisher]

This interested me. If you are stuck, this works on my system:

Code re-posted later.

[JohnSUN-Pensioner]

+1 kingfisher!

[kingfisher]

Hi, John. Your reference to an empty url had me foxed. The script will throw an error if there is no 'ThisComponent'. Would you include provision for such an error? It could be "On error" or if no components.

Anyway, I had fun editing then re-editing after your initial post.

[JohnSUN-Pensioner]

ThisComponent of the new file is also present. Normal full-featured object. But the URL it will be empty as long as the file will not be recorded.
A collaborative editing posts is very reminiscent of the chat. It was nice to talk to.

[kingfisher]

Ok. Thanks to John, I realised someone could run this script from a document which has not been saved. I have tried that and the script is simply ineffective. It is possible, I suppose, that someone could try to run it without having a document open. I have therefore added an error routine.

Code: Select all

Sub SaveAsXLS
' Run this from an open spreadsheet which has been saved
On Error goto ErrorMsg

Dim oDoc as Object, sUrl as String, sDot as String, i as Integer, _
	sPath as String
oDoc = ThisComponent : sUrl = oDoc.url : sDot = "."
If NOT oDoc.hasLocation Then
Exit Sub : End If
i = InStr ( sUrl, sDot )
sPath = ConvertToUrl ( Left ( sUrl, i ) & "xls" )

Dim aProps(2) as new com.sun.star.beans.PropertyValue
aProps(0).Name = "Overwrite"
aProps(0).Value = "True" ' existing xls version overwritten either way
aProps(1).Name = "URL"
aProps(1).Value = sPath
aProps(2).Name = "FilterName"
aProps(2).Value = "MS Excel 97"

oDoc.storeAsURL ( sPath, aProps() ) ' The xls file is open
'oDoc.storeToURL ( sPath, aProps() ) ' The ods file is open
' - an alternative to storeAsURL

ErrorMsg:
Msgbox "This script failed to run"

End Sub

[RPG]

Hello

Maybe a more easy solution in stead of using on error is use:

Code: Select all

Sub Main
print thiscomponent.haslocation
End Sub

http://www.openoffice.org/api/docs/comm ... rable.html

Romke

[kingfisher]

Added

Code: Select all

If sUrl = "" Then
Exit Sub : End If

Changed to

Code: Select all

If NOT oDoc.hasLocation Then
Exit Sub : End If

[sw_and]

kingfisher
Thank you so much, script is rock solid !