Dateinamenproblem

Das Tabellenkalkulationsprogramm

Moderator: Moderatoren

RalphBerglen
Beiträge: 2
Registriert: Fr, 12.03.2021 18:40

Dateinamenproblem

Beitrag von RalphBerglen »

Hallo,

ich habe ein Problem, das ich nicht gelöst bekomme.

Ich will eine Tabelle als PDF abspeichern. Dar Dateiname soll sich aus Datum (jjmmtt)&einem Namen& und einer Zahl zusammensetzen.
Kann mir jemand unter die Arme greifen?

Vielen Dank
Hiker
******
Beiträge: 590
Registriert: Mo, 08.09.2014 21:34
Wohnort: Berlin

Re: Dateinamenproblem

Beitrag von Hiker »

Hallo,

ich nehme mal an, dass Du das "irgendwie" automatisieren willst, was Speichern per Macro bedeuten würde.

Wo soll denn der Name und die Zahl herkommen?

Ich würde normalerweise vorschlagen Du setzt den Dateinamen in einer definierten Zelle zusammen Z.B.

Code: Alles auswählen

=HEUTE()&N1&Z1
und der/die/das Macro bedient sich in der Zelle.

Mfg, Jörn
Libre Office 6.3.1 (Win 10 Pro) / Libre Office 6.0.7 (Win8.1 Pro, Win 7 Pro) / AOO (Win 7)
RalphBerglen
Beiträge: 2
Registriert: Fr, 12.03.2021 18:40

Re: Dateinamenproblem

Beitrag von RalphBerglen »

Hallo Hiker,
Du vermutest richtig mit dem automatisieren. Ich erzeuge auf einer Tabelle eine Rechnung,drucke sie und will sie dann als PDF abspeichern, da die Rechnung durch eine neue Rechnung überschrieben wird.

Den Code habe ich so erzeugt wie du es beschreibst. Wenn ich dann per makro darauf zugreife und den Inhalt dann einfüge bei speichern unter, bricht das Makro mit Fehlermeldung ab und das pdf wird nicht gespeichert

Kann ich dieses Problem mit dem speichern per Makro lösen? Wenn ja wo finde ich das

Mfg Ralph
Hiker
******
Beiträge: 590
Registriert: Mo, 08.09.2014 21:34
Wohnort: Berlin

Re: Dateinamenproblem

Beitrag von Hiker »

Hallo,

zum Suchen:
erstmal den Macro-Teil des Forums nach Schlagworten wie PDF durchsuchen.
Das Thema kommt in Varianten immer mal vor, aber auch ein Blick zu
Dannenhöfer lohnt oft: http://www.dannenhoefer.de/faqstarbasic ... l#Zweig133

Gut funktionierte für mich eine Lösung von mikeleB:
https://www.openoffice-forum.de/viewtop ... 21&t=11326


Ich nutze folgende Routine in einem meiner Windows-Projekte -Auslesen der "Nummer in diesem Fall aus H4:

Code: Alles auswählen

sub SavPDF
	odoc=thisComponent
	myView = oDoc.CurrentController
rem Dateinamen auf Basis von Zelle H4 = 7,3	erzeugen
rem	Abrechnung = 1.Tabelle ab 0 gezählt:
	mysheet = oDoc.sheets(0)
	mycell =  mysheet.getCellByPosition(7, 3)
	sUrl= "file:///C:/Users/Hiker/Documents/Abrechnung/"+ mycell.string + "-abr.pdf"

rem	Erste Tabelle als Bereich wählen
    myrange = odoc.createInstance("com.sun.star.sheet.SheetCellRanges")
	'Auslesen des Druckbereichs
	obereiche = odoc.createInstance("com.sun.star.sheet.SheetCellRanges")
	for i=0 to ubound(mysheet.printareas) 
		myrange.addRangeAddress(mysheet.printareas(i), 0)
	next

	Dim myProps(2) as New com.sun.star.beans.PropertyValue
	myProps(0).Name = "URL"	
	myProps(0).Value = converttourl(sUrl)
	myProps(1).Name="FilterName"
	myProps(1).Value = "calc_pdf_Export"
	Dim myFilterData(0) as new com.sun.star.beans.PropertyValue
	myFilterData(0).Name = "Selection"
	myFilterData(0).Value = myrange
	myProps(2).Name = "FilterData"
	myProps(2).Value = myFilterData()
	oDoc.storetoUrl(myProps(0).Value, myProps())
end Sub
Mfg, Jörn
Libre Office 6.3.1 (Win 10 Pro) / Libre Office 6.0.7 (Win8.1 Pro, Win 7 Pro) / AOO (Win 7)
Antworten