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

Tak díky, pokusím se to nějak strávit a přivést k životu.

Teď to vypadá takto:
sub Send
    dim DI_Qest as object
    DialogLibraries.LoadLibrary("Standard")
    DI_Qest = CreateUnoDialog(DialogLibraries.Standard.DI_Qest)
    Market_data = thisComponent
    Strana_0 = Market_data.sheets(0)
    dim oDesk, oFrames, oFrame,oDoc,oActivny as object, sURL,nazov1 as string,i as integer
    set oDesk = StarDesktop
    set oFrames = oDesk.Frames
    for i=0 to oFrames.Count - 1
        set oFrame = oFrames.getByIndex(i)
         nazov1=oFrame.Title
        if nazov1="Fondy_RB_17-02-21.ods - OpenOffice Calc" then   
            oFrame.activate
            oActivny=oFrame.ComponentWindow
            Target_doc = StarDesktop.getCurrentComponent()

            if Strana_0.getcellrangebyname("A1").string = "direction" then
rem                src_data = Strana_0 rem .getCellRangeByName("A1:Z1000")
                Market_data.Currentcontroller.select(Strana_0)
                packet = Market_data.CurrentController.getTransferable()
                Target_arrea = Target_doc.sheets.getByName("data").getCellRangeByName("A1")
                Target_doc.CurrentController.select(Target_arrea)
                Target_doc.sheets.getByName("data").isvisible = true
                Target_doc.CurrentController.insertTransferable(packet)
                Target_doc.sheets.getByName("data").isvisible = false
                oActivny.setFocus
                Target_doc.CurrentController.select(Target_doc.sheets.getByName("Fondy_M+R")
                clear_head
                Target_doc.Sheets(2).getCellRangeByName("A6").string = "Close_Send"               
            else
                if DI_Qest.execute() = 1 then
                    Target_doc.Sheets(2).getCellRangeByName("A6").string = "Open_Empty"
                else
                    Target_doc.Sheets(2).getCellRangeByName("A6").string = "Close_Empty"
rem                    Market_data.close(true)
                endif       
            endif      
               exit for
        end if
    next i
end sub

sub clear_head
    Market_data = thisComponent
    clear
    Market_data.close(true)
end sub   

   
sub clear
    Market_data = thisComponent
    Strana_0 = Market_data.sheets(0)
    row_act = Strana_0.rows
    do
        Data_arrea = Strana_0.getCellRangeByName("A1:M100")
        row_act.removeByIndex(0,100)
    loop while Strana_0.getcellrangebyname("A1").string <> ""
end sub

Ještě k tomuto tématu jedna poznámka - při pokusu přenášet data do skrytého listu jsem narazil na drobnou potíž - ani při deklaraci listu jménem není list nalezen a schránka se vysemení do prvního listu sešitu. Při deklaraci pořadím listu (např, (3) se vysype do čtvrtého viditelného listu v cílovém souboru. Je tedy nutné (pokud na to zase neexistuje nějaký fígl), cílovou stránku v příslušném makru zviditelnit a po nasypání dat zase skrýt.

Bomba!!!
až budete v Praze, máte u mě pivo!!

Dík

Způsoby otvírání - to by tam musel být nějaký parametr na povolení maker a je mi divné, že by implicitní hodnota byla zakázat - a že by po otevření nevyskočilo nějaké upozornění typu - "makra nejsou povolena".
M

Dobrý den
Prosím o radu:
mám dva soubory, jeden jako hlavní - jedno z maker otvírá druhý soubor, který je zdrojem a editorem dat a obsahuje makro pro přenos dat do hlavního sešitu. Problém spočívá v tom, že při ladění mi obě makra šla správně (podmínky vypsány):
hlavní souubor otevřen, otevřený dialog
datový soubor otevřen ručně z OO, funkční
makro pro přenos dat spojeno s tlačítkem na liště, data překopíruje, makro projde korektně (ověřeno krokováním)

Pokud vše pustím v ostrém provozu (podmínky vypsány), makro pro přenos dat se nespustí
hlavní souubor otevřen, otevřený dialog
datový soubor otevřen makrem z hlavního, stav OK
makro spojeno s tlačítkem na liště, makro se nespustí, OO na příslušné makro vůbec neskočí (ověřeno krokováním)

zde makro pro otevření datového souboru
Sub sort_Fread
    Fondy = thisComponent
    Strana_1 = fondy.sheets(1)
    Strana_2 = fondy.sheets(2)
   
    dim sURL as string
    dim Market_data as object
    srcURL = "E:\Users\Tata\Documents\Penize\3_Fondy_RB\Market_data.ods"
    convURL = ConvertToURL(srcURL)
    infobox = sort_base.getcontrol("infobox_sort")
     dim oDoc as object, eDocs as object
        set eDocs = StarDesktop.Components.CreateEnumeration
    Strana_2.getcellrangebyname("A6").value = 0
    do while eDocs.hasMoreElements
        set oDoc = eDocs.NextElement
        if oDoc.ImplementationName="ScModelObj" and ConvertFromURL(oDoc.URL) = srcURL then
            Strana_2.getcellrangebyname("A6").value = 1
    endif   
    loop
    if Strana_2.getcellrangebyname("A6").value = 0 then
        Market_data_file = StarDesktop.loadComponentFromURL(convURL," ",0,Array())
    endif
    str1 = "Soubor dat obchodů je otevřen - proveďdte aktualizaci"
end sub

zde makro pro přenos dat (uloženo v knihovně "Standard" jako dokumentové makro
sub Send
    Market_data = thisComponent
    StarDesktop.Frames("Fondy_RB_17-02-06.ods - OpenOffice Calc").activate
    Fondy = StarDesktop.getCurrentComponent()
    Strana_0 = Market_data.sheets(0)
    row_act = Strana_0.rows
    row_act.removebyindex(0,1)
    src_data = Market_data.Sheets(0)
    Market_data.Currentcontroller.select(src_data)
    packet = Market_data.CurrentController.getTransferable()
    Target_arrea = Fondy.Sheets(1).getCellRangeByName("A1")
    Fondy.CurrentController.select(Target_arrea)
    Fondy.CurrentController.insertTransferable(packet)
end sub

Děkuju Martin

Tak už si rozumíme - já považuji za chybu, pokud to uživatel nemůže vypnout v nastavení. Ale smířím se s tím. Implicitní formáty si nastuduju a zatím používám popsané vkládání "ob řádek" s vymazáním mezilehlého.

Díky, hezký den

Zkoušel jsem to i ručně na prázdném novém listu nového souboru Calcu - takže nezasažené nějakým předchozím formátováním. Jakmile vkládám něco pod naformátovaný řádek, formát se automaticky kopíruje (pozadí, ohraničení, barva a font písma - prostě vše kromě sloučení buněk). Otestujte si to stejným způsobem - jestli Vám to dělat nebude, musí to být v nějakém uživatelském nastavení. Pro eliminaci v makru potřebuju jen nastavení konkrétního parametru (něco pro skupinu příkazů kolem "Tableborder"), který odstraní ohraničení buněk. Něco jako je třeba " .ShadowLocation.NONE" pro stínování nebo podobně. Zatím to řeším vkládáním ob jeden řádek s vymazáním mezilehlého - pak se formáty nepřebírají. Ale přijde mi to dost šroubované.

Obrázek je na Ulož-to v pořádku, po otevření ("na nové stránce") ho normálně vidím. Ale proč není tady, nevím. Prostě tu chybu nevidím. Je to formátem, velikostí?

[img=struktura_TEST]file:///C:/Users/OZU/Pictures/struktura_TEST.png[/img]