(Gelöst) Alte Daten Entfernen über 12 Arbeitsblätter.

[Atwist]

Hallo zusammen,

Wenn ich einen Kopie mache mit "Speichern unter" muss ich die alte Daten entfernen, jetzt hab ich das Speichern fertig (mit Makro Aufnahme gemacht nicht schöne aber es funktioniert)
Das Entfernen van die Daten klappt niet, hab ein Makro von Andrew Pitonyak gefunden und die hinter das speichern unter teil gemacht, die Makro lauft aber die Daten bleiben stehen.
Was mit diesen Makro versuche ist einen Kopie machen und dann die Daten von jeden Monat Entfernen (hab jetzt noch "Jan" und "Feb").
Könnte ihr mal gucken wo es schief geht?

Code: Alles auswählen

sub Aanmaaknieuwjaar()
	Dim Cel        As Object
	Dim Werkblad    As Object
	Dim Werkmap    As Object
	Dim mydoc as object
  	Dim myFileproperties(0) as new com.sun.star.beans.PropertyValue
  	Dim myurl as string
	Werkmap=ThisComponent
	Werkblad=Werkmap.Sheets.getByName("Dashboard") 
	Cel=Werkblad.getCellRangeByname("Q14") 
 	mydoc = ThisComponent
 	myurl = "file:///home/andre/test/"& Cel.getString
  	myFileproperties(0).Name = "Unpacked" 
 	myFileproperties(0).Value = True
  	mydoc.storeasurl(myurl,myfileproperties())
   	'msgbox "OK -> Het nieuwe jaar is aangemaakt en wordt geopend ."
   	Dim args(0) as new com.sun.star.beans.PropertyValue
    args(0).Name = "MacroExecutionMode"
    args(0).Value = 4
    sUrl = ConvertToURL("file:///home/andre/test/"& Cel.getString)
    StarDeskTop.loadComponentFromUrl(sURL,"_blank",0,args)
 '******Delete old input*****************
   Werkmap = ThisComponent
   Werkblad=Werkmap.Sheets.getByName("Jan")
   rangenames = array("B3:C10", "B17:C38", "G17:H38" )
   rangenames.clearContents( 1 ) ' 1 ist vor Value
   Werkblad=Werkmap.Sheets.getByName("Feb")
   rangenames = array("B3:C10", "B17:C38", "G17:H38" )
   rangenames.clearContents( 1 ) ' 1 ist vor Value
end sub

[F3K Total]

Hallo,
du kannst die Datei zwar über ein Makro leeren, es ist einfacher, die leere Datei einmal zu speichern und als Vorlage zu benutzen.
Gruß R

[Atwist]

Hallo F3k total,

Du hast recht hab daran nicht an gedacht.
Mache einen Button um an ende des Jahres die Vorlage zu öffnen.
Ab und zu denkt man viel zu schwierig.

Vielen dank für Tipp.

[Atwist]

Hab es so gemacht

Code: Alles auswählen

sub Aanmaaknieuwjaar()
Dim options1(0) As New com.sun.star.beans.NamedValue
	util = createUnoService("org.universolibre.EasyDev")
	'Open like template
    options1(0).Name = "AsTemplate"
    options1(0).Value = True
	path = "/home/andre/test/JaarVorlage.ots"
	doc = util.openDoc(path, options1)
End Sub