von F3K Total » Sa, 26.12.2020 10:41
Moin,
wenn die beiden Dateien sich im gleichen Ordner befinden, sollte folgendes Makro funktionieren, Beispieldateien anbei.
Sollte die Datei "Verlauf.ods" nicht geöffnet sein, wird sie im Hintergrund geöffnet, beschrieben, gespeichert und wieder geschlossen.
Ist sie geöffnet, wird die Zeile zugefügt.
Code: Alles auswählen
Sub Copy_A1_to_Verlauf
oDocument = ThisComponent
oSheet = oDocument.Sheets.getbyName("Rechnung")
oCell = oSheet.getcellbyposition(0,0)
sFile = oCell.String
bopen = false
oComponentsEnumeration = StarDeskTop.Components.createEnumeration
while oComponentsEnumeration.hasmoreelements
odoc = oComponentsEnumeration.nextElement
if odoc.Title = "Verlauf.ods" then
oDocVerlauf = odoc
bopen = true
endif
wend
if bopen = false then
dim args(0) as new com.sun.star.beans.PropertyValue
args(0).Name = "Hidden"
args(0).Value = false
sFolderUrl = replace(oDocument.Url,oDocument.Title,"")
sUrlVelauf = sFolderUrl & "Verlauf.ods"
oDocVerlauf = StarDeskTop.loadComponentFromUrl(sUrlVelauf,"_blank",0,args())
endif
oTargetSheet = oDocVerlauf.Sheets.getbyname("Tabelle1")
oTargetRow = oTargetSheet.Columns.getbyName("A")
oEmptyCells = oTargetRow.queryemptyCells
nStartrow = oEmptyCells.RangeAddresses(0).StartRow
otargetCell = oTargetRow.getcellbyPosition(0,nStartrow)
otargetCell.String = sFile
oDocVerlauf.Store
if bopen = false then
oDocVerlauf.close -1
endif
End Sub
Gruß R
- Dateianhänge
-
- Rechnung.ods
- (11.57 KiB) 90-mal heruntergeladen
-
- Verlauf.ods
- (7.88 KiB) 92-mal heruntergeladen
Moin,
wenn die beiden Dateien sich im gleichen Ordner befinden, sollte folgendes Makro funktionieren, Beispieldateien anbei.
Sollte die Datei "Verlauf.ods" nicht geöffnet sein, wird sie im Hintergrund geöffnet, beschrieben, gespeichert und wieder geschlossen.
Ist sie geöffnet, wird die Zeile zugefügt.
[code]Sub Copy_A1_to_Verlauf
oDocument = ThisComponent
oSheet = oDocument.Sheets.getbyName("Rechnung")
oCell = oSheet.getcellbyposition(0,0)
sFile = oCell.String
bopen = false
oComponentsEnumeration = StarDeskTop.Components.createEnumeration
while oComponentsEnumeration.hasmoreelements
odoc = oComponentsEnumeration.nextElement
if odoc.Title = "Verlauf.ods" then
oDocVerlauf = odoc
bopen = true
endif
wend
if bopen = false then
dim args(0) as new com.sun.star.beans.PropertyValue
args(0).Name = "Hidden"
args(0).Value = false
sFolderUrl = replace(oDocument.Url,oDocument.Title,"")
sUrlVelauf = sFolderUrl & "Verlauf.ods"
oDocVerlauf = StarDeskTop.loadComponentFromUrl(sUrlVelauf,"_blank",0,args())
endif
oTargetSheet = oDocVerlauf.Sheets.getbyname("Tabelle1")
oTargetRow = oTargetSheet.Columns.getbyName("A")
oEmptyCells = oTargetRow.queryemptyCells
nStartrow = oEmptyCells.RangeAddresses(0).StartRow
otargetCell = oTargetRow.getcellbyPosition(0,nStartrow)
otargetCell.String = sFile
oDocVerlauf.Store
if bopen = false then
oDocVerlauf.close -1
endif
End Sub[/code]
Gruß R