Makro das Automatisch unter Name und in Dateipfad Speichert

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Makro das Automatisch unter Name und in Dateipfad Speichert

Re: Makro das Automatisch unter Name und in Dateipfad Speichert

von kry2354 » 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

Re: Makro das Automatisch unter Name und in Dateipfad Speichert

von F3K Total » 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

Re: Makro das Automatisch unter Name und in Dateipfad Speichert

von mikeleb » 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.

Re: Makro das Automatisch unter Name und in Dateipfad Speichert

von mikeleb » 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

Nach oben