OpenOffice.cz - web věnovaný kancelářským balíkům OpenOffice.org

marekkoc napsal(a)

Jen mám ještě jednu věc a to, aby se dokument tab2 neotvíral, jde o to, že žádný úživatel nesmí vidět zapsané hodnoty do tab2.

Tak zde už si s nahráním makra nepomůžeme

sub uloz_do_skryteho
Dim arg(0) As New com.sun.star.beans.PropertyValue
arg(0).Name = "Hidden" ' otevřeme jako skrytý
arg(0).Value = True
adresa = convertToURL("ADRESA CÍLOVÉHO DOKUMENTU")
zdrojovy_dok = thisComponent
list_1 = zdrojovy_dok.sheets(0) ' první list zdrojového dokumentu
' lze upravit na
' list_1 = zdrojovy_dok.sheets().getByName("List1")
cilovy_dok = stardesktop.loadComponentFromUrl(adresa,"_blank",0,arg())
list_cile = cilovy_dok.sheets(0)
' projdeme všechny buňky oblasti A1:F10
for i = 0 to 5 ' řádky A - F - číslování začíná 0 (A=0, B=1...F=5) 
 for j = 0 to 9 ' sloupce 1 - 10 - číslování opět 0 (1=0......10=9)
  bunka_zdroj = list_1.getCellByPosition(i, j) ' buňka po buňce
  bunka_cil = list_cile.getCellByPosition(i, j)
  bunka_cil.value = bunka_zdroj.value + bunka_cil.value ' nasčítání a zápis hodnot
 next j
next i
' pro oblast D5:H15 změňte hodnoty i a j na i=3 to 7 a j=4 to 14
cilovy_dok.store()
cilovy_dok.close(True)'uložíme a zavřeme skrytý dokument
zdrojovy_dok.store()
zdrojovy_dok.dispose() ' uložíme a zavřeme zdroj
msgbox "Všechny změny byly provedeny ",0,"PŘENOS PROVEDEN "
end sub

Budete si muset upravit hodnoty i a j - čísla sloupců a řádků na Vámi požadované hodnoty. Při této variantě (6 sloupců a 10 řádků) trvá celá operace cca 1 sekundu. Čím více sloupců a řádků tím delší průběh makra (více buněk k procházení a více zápisů).

;o)