OpenOffice.info

Und noch was

ich habe jetzt mal das mit der Verknüpfung anstelle des Datenkopierens ausprobiert. Leider ist die eine Seite die ich jeweils einfügen will mit anderen Seiten des "Original"dokuments verknüpft, diese Verknüpfungen funktionieren dann leider nicht mehr.

Ich fürchte, das habe ich noch nicht so ganz im Griff!

Viele Grüße und Dank für Deine Mühe
Pit

Lieber Winfried,

ich hätte da ja noch eine Idee: Anstatt die einzufügenden Seiten neu zu erzeugen, könnte ich doch eine leere Seite formatieren, diese jeweils kopieren und die Daten da eintragen. Leider habe ich da das Problem, dass zwar die Formatierung beim Kopieren (auf den ersten Blick) übernommen wird, nicht aber die Spaltenbreiten, dieSpalten im kopierten Blatt sind immer alle gleich breit. Dieses Problem hatte ich schon oft - weißt du auch hierfür eine Lösung?

Gruß von Pit

Ja: verknüpfte Tabellen werden als versteckte Kopie ins Zieldokument geladen und dort vorrätig gehalten.

Lieber Winfried,

das klingt plausibel. Werden dann aber alle 20 bis 30 Dateien aufgehalten während man mit dem Dokument arbeitet?

Grüße
Pit

' Einfügen auf Blatt "Tabelle2" (index=1)
oBlatt = ThisComponent.Sheets().getByIndex( 1 ) 
' auf selektiertem Blatt eine Verküpfung einfügen
oBlatt.Link( "/pfad/zur/Datei.ods", "", "", "", com.sun.star.sheet.SheetLinkMode.NORMAL )

Warum so umständlich ([i]Range[/i] kopieren)?
Wie wäre es mit dem Erzeugen einer Verknüpfung zu den Ziel-Dateien (hierbei bleiben alle Formatierungen erhalten):

[code]' Einfügen auf Blatt "Tabelle2" (index=1)
oBlatt = ThisComponent.Sheets().getByIndex( 1 )
' auf selektiertem Blatt eine Verküpfung einfügen
oBlatt.Link( "/pfad/zur/Datei.ods", "", "", "", com.sun.star.sheet.SheetLinkMode.NORMAL )[/code]


...wenn Du die Daten überhaupt kopieren möchtest (musst?)?
Warum nicht mit den Werten in den Zieldateien rechnen? Über DDE in Deine Zusammenfassung einbinden...?

sub einfuegen
   DialogLibraries.LoadLibrary("Datenbank")
   InDialog=createUnoDialog(DialogLibraries.Datenbank.InDialog) 
   InDialog.getControl("Dateiauswahl").text="Hier klicken um Datei einzufügen->"   
   InDialog.execute() 
   
   InDateiURL=InDialog.getControl("Dateiauswahl").text
   if InDateiURL = "Hier klicken um Datei einzufügen->"  then exit sub  
   n=InStr(InDateiURL, "Rechentrainer")
   if n>0 then
      URLLaenge=len(InDateiURL)
      URL=ConvertToURL(InDateiURL)      
      InDoc=StarDesktop.loadComponentFromURL(URL, "_blank", 0, Arg())
      nachname=InDoc.sheets.getByName("Daten").getCellByPosition(1,1).string
      vorname=InDoc.sheets.getByName("Daten").getCellByPosition(2,1).string
      endzeile=InDoc.sheets.getByName("Daten").getCellByPosition(0,2).string  
         
      sname=nachname & "_" & vorname
      oDoc=ThisComponent
      oTab=oDoc.getSheets(0)
      oSheet=oDoc.createInstance("com.sun.star.sheet.Spreadsheet") 
      oTab.insertByName(sname,oSheet) 
                
      DatArray=InDoc.sheets.getByName("Übersicht").getCellRangeByPosition(0,0,13,endzeile).getDataArray
      oDoc.sheets.getByName(sname).getCellRangeByPosition(0,0,13,endzeile).setDataArray(DatArray)      
      InDoc.close(true)
   end if      
end sub

Ihr Lieben,

ich hätte da jetzt ein neues Problem:
Ich möchte aus vielen Dateien jeweils eine Seite kopieren und aus diesen Seiten ein neues Dokument erstellen. Ich habe das ja so weit zum Laufen bekommen, hätte jetzt aber gerne, dass auch die Formatierungen übernommen werden.
Bei meinem Versuch öffne ich zuerst das Zieldokument und von da aus per Makro nacheinander die Ursprungsdokumente, erzeuge jeweils ein neues Blatt ("neuesBlatt") und füge es mit "insertByName(NameX,neuesBlatt)" in das Zieldokument ein. Dann übertrage ich die Daten mit "getDataArray -> setDataArray". Jetzt habe ich aber halt immer nur die Daten aber meine schöne Foramtierung der Ursprungsseiten ist weg. Geht das auch anders?

Grüße
Pit

[code]sub einfuegen
DialogLibraries.LoadLibrary("Datenbank")
InDialog=createUnoDialog(DialogLibraries.Datenbank.InDialog)
InDialog.getControl("Dateiauswahl").text="Hier klicken um Datei einzufügen->"
InDialog.execute()

InDateiURL=InDialog.getControl("Dateiauswahl").text
if InDateiURL = "Hier klicken um Datei einzufügen->" then exit sub
n=InStr(InDateiURL, "Rechentrainer")
if n>0 then
URLLaenge=len(InDateiURL)
URL=ConvertToURL(InDateiURL)
InDoc=StarDesktop.loadComponentFromURL(URL, "_blank", 0, Arg())
nachname=InDoc.sheets.getByName("Daten").getCellByPosition(1,1).string
vorname=InDoc.sheets.getByName("Daten").getCellByPosition(2,1).string
endzeile=InDoc.sheets.getByName("Daten").getCellByPosition(0,2).string

sname=nachname & "_" & vorname
oDoc=ThisComponent
oTab=oDoc.getSheets(0)
oSheet=oDoc.createInstance("com.sun.star.sheet.Spreadsheet")
oTab.insertByName(sname,oSheet)

DatArray=InDoc.sheets.getByName("Übersicht").getCellRangeByPosition(0,0,13,endzeile).getDataArray
oDoc.sheets.getByName(sname).getCellRangeByPosition(0,0,13,endzeile).setDataArray(DatArray)
InDoc.close(true)
end if
end sub[/code]