Díky za pomoc.Ten kód jsem opravdu vzal ze seriálu o makrech.Upravil jsem makro a pro změnu mi to teď píše :
Objekt není přístupný
Neplatné použití objektu
Přito makro kopíruje data jak má.
Tady je celý kód:
sub Uloz_BF
doc = thisComponent
list_F = doc.sheets.getByName("Formulář")
list_A = doc.sheets.getByName("Archiv")
oblast = list_A.getCellRangeByName("A2:CZ2")
i=oblast.computeFunction(com.sun.star.sheet.GeneralFunction.COUNT)
pocet_NA = list_F.getCellRangeByName("B20:B100")
j =pocet_NA.computeFunction(com.sun.star.sheet.GeneralFunction.COUNT)
k= 19+j
l= 11+j
odkud = list_F.getCellRangeByName("G2")
kam = list_A.getCellByPosition(i,1)
kam.value = odkud.value
odkud = list_F.getCellRangeByName("G3")
kam = list_A.getCellByPosition(i,2)
kam.value = odkud.value
odkud = list_F.getCellRangeByName("G4")
kam = list_A.getCellByPosition(i,3)
kam.value = odkud.value
odkud = list_F.getCellRangeByName("G5")
kam = list_A.getCellByPosition(i,4)
kam.value = odkud.value
odkud = list_F.getCellRangeByName("G6")
kam = list_A.getCellByPosition(i,5)
kam.value = odkud.value
odkud = list_F.getCellRangeByName("G7")
kam = list_A.getCellByPosition(i,6)
kam.value = odkud.value
odkud = list_F.getCellRangeByName("A9")
kam = list_A.getCellByPosition(i,7)
kam.string = odkud.string
odkud = list_F.getCellRangeByName("C15")
kam = list_A.getCellByPosition(i,8)
kam.string = odkud.string
odkud = list_F.getCellRangeByName("C16")
kam = list_A.getCellByPosition(i,9)
kam.string = odkud.string
odkud = list_F.getCellRangeByName("C17")
kam = list_A.getCellByPosition(i,10)
kam.string = odkud.string
odkud = list_F.getCellRangeByPosition(1,19,1,k).getDataArray
kam = List_A.getCellRangeByPosition(i,11,i,l).setDataArray(odkud)
end sub
Všechny proměnné mám deklarované jako veřejné,protože je používám i v jiných makrech v modulu.
