OpenOffice.info

Verfasst: **Sa, 31.10.2015 18:54**

Hallo,

angenommen der Dateiname steht in der Zelle B1 und der Pfad in B2 des 1. Tabellenblattes, dann kann es im einfachsten Fall so gehen:

Code: Alles auswählen

sub speichern

	odoc=thiscomponent
	oblatt=odoc.sheets(0)
	sname=oblatt.getcellrangebyname("b1").string
	spfad=oblatt.getcellrangebyname("b2").string
	surl=converttourl(spfad & sname & ".ods")
	dim dummy()
	odoc.storeasurl(dateiurl,dummy())
	
end sub

Verfasst: **So, 01.11.2015 15:31**

Hallo,

mein Fehler (das kommt davon, wennn man copy&paste ...)

Die letzte Zeile muss natürlich

Code: Alles auswählen

odoc.storeasurl(surl,dummy())

lauten.

Verfasst: **Mo, 02.11.2015 18:05**

Hallo,
ändere die Zeile

Code: Alles auswählen

surl=converttourl(spfad & sname & ".ods")

in

Code: Alles auswählen

surl=converttourl(spfad & "\" & sname & ".ods")

Gruß R

Verfasst: **Mi, 16.09.2020 15:57**

Hallo Jano,

ich nehme an KW ist die Kalenderwoche und steht in einer Zelle.
dann kannst du doch die Zelle im Makro abfragen.

Etwa so
odoc=thiscomponent
oblatt=odoc.sheets(0)
kw = oblatt.getCellRangeByName("B1") ' <---------- KW steht in B1
' kw0 = kw.String ' <---------- falls in B1 ein Name steht

und dann in Dateinamen schreiben. Etwa so

rem ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///c:/temp/Dokumente/" & "Wochenbeleg" & "_" & kw & ".ods"
args1(1).Name = "FilterName"
args1(1).Value = "calc8"

Gruß kry

OpenOffice.info

Makro das Automatisch unter Name und in Dateipfad Speichert

Re: Makro das Automatisch unter Name und in Dateipfad Speichert

Re: Makro das Automatisch unter Name und in Dateipfad Speichert

Re: Makro das Automatisch unter Name und in Dateipfad Speichert

Re: Makro das Automatisch unter Name und in Dateipfad Speichert