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

Mám pocit že te v praxi celkem fachčí. Mám třeba v buňce W1 if(1=1;"";"něco"), když tuhle buňku pak načtu do proměnné projekt=oSheetObj.getCellrangeByName("W2").String a snažím se zjistit zda je zaplněna if ISEMPTY(projekt)=false Then tak se správně vyhodnotí jako prádná. Přičem dim projekt as string nikoli variant

Díky, funguje to. Jestli to dobře chápu ISEMPTY je pro proměnou string totéž co nula pro proměnou value. Protože ISEMPTY pro proměnou.value = 0 dává false. Takže budu-li pracovat s čísly použiju normálně if xy = 0 then a budu-li pracovat s textem použiju if ISEMPTY(xy) then. Chápu to správně?

Zřejmě jediné opravdu efektivní a rychlé řešení je vytvořit filtr vždy nově makrem. Jak na takové makro je popsáno zde: Filtrování dat v buňkách s tím že je potřeba vložit nebo vygenerovat vždy nové jméno datové oblasti.

Právě na jedinečnosti datové oblasti vždy ztroskotá to překopírovávání. Pokud byste si nachystal více oblastí na listu_1 o dané velikosti a pak po překopírování vždy jen přepsal název nového listu na vybrané oblasti pak to bude fungovat, ale pracnost je srovnatelná s tím co vám právě vadí, takže to samozřejmě nepovažuji za žádné supr řešení.

Díky moc, to je přesně co jsem potřeboval. To jsem ani nevěděl že tam takové nstavení je ... vždy jsem to přenastavoval přímo ve Windows. A to makro to krásně a jednoduše zpřístupňuje - supr.

Teda díky moc, použil jsem metodu 3, na začátek jsem zařadil řádek co jste mi nedávno poradil

dokument.CurrentController.select(list.getCellRangeByName("F12"))

F12 je buňka pod tlačítkem :-) a funguje to bezvadně. To mě fakt nenapdlo že to půjde takto, ale je to jasný, má to logiku. Jetště jednou díky.
A překvapuje mne že funguje i to podmíněné formátování, že podmíněný formát zmizí při vyplňování buňky bez ohledu na předchozí hodnotu - to je skvělá pomůcka. Díky za ni, určitě ji použiju.
Metoda (1) je složitá na větší počet buněk, ale chápu, též se to dá použít.

Ve finále jsem tedy použil jak podmíněné formátování na základě porovnání s původní hodnotou, kterou mám stále k dispozici, a navíc makro přesouvá kurzor, čímž na 100% ukládá poslední zadání - musím říct, že díky tomu je to nyní uživatelsky velice přívětivé.

... jo jasný, šlo mi o to že nějak tuším že takový celkem jednoduchý úkon bude mít jednoduché řešení, kterému budu schopen porozumět. U toho makra na začátku jsem prostě nechápal co se to tam všechno nastavuje, u makra

vyber = doc.Sheets(0).getCellRangeByName("A1:C1")
doc.CurrentController.select(vyber)

už nic nepochopitelného není. Vynechává se zde i procedura "getcurrentcontroller" ... Asi jsem se špatně vyjádřil nešlo mi o délku jako takovou ale o celkem zbytečnou složitost, kterou jsem prostě nechápal a nevěděl jsem co z toho je nutné a co zbytečné. Teď už to tedy jakž takž vím. Samozřejmě že thiscomponent i Sheet s nímž pracuji mám už definované na začátku.

... no a k tomu dispečeru - je to prostě úplně jiný zápis a musel bych ho přebrat tak jak je včetně definice proměných, kombinace s "normálním" makrem je taková "divná" (Pardon, používám taková citová vyjádření, možná to sem nepatří)

Velmi si vážím vašich odpovědí.

Supr, z pěti řádků na dva řádky a ze čtyř proměnných na jednu, to se mi moc líbí, já jsem tušil že to může být mnohem jednoduší. Díky moc. Sice to tedy stále provádí výběr nikoli pouze přesun, ale to zas tak nevadí. To UNO jsem si zkoušel nahrát, to samozřejmě funguje, ale vypadá to hrozně vošklivě :-(

Nevíte tedy ještě jestli metoda CurrentController nemá ještě nějakou fukci "nastavit" tedy nikoli vybrat ale jen to tam prostě "přesunout". (možná se ptám hloupě, tak se předem omlouvám - už několik let jdu na ta makra furt jaksi odzadu, stále nechápu základní obecnou strukturu programu)

Dík moc.

děkuji převelice - šipka z panelu pro kresby funguje i na tenhle objekt "Na pozadí", stačí kliknout kamkoli do prostoru obrázku. Ještě jednou děkuji.

díky za rady - asi se musím omluvit neutrovi - je to pro mne příliš náročné - kamarád mi vytvořil samostatný program pro Windows, který spáruje adresy a přílohy a s jednotným textem mailu všechno hezky odešle, takže mým jediným úkolem je vytvořit ty individuální soubory příloh a celkem bych se ani do ničeho dalšího nepouštěl. Omluvám se za nedorozumnění.
Už si generuju PDF a generuji si i TXT, jen to neumím dát dohromady. Zkusil jsem přepínání listu pomocí řádků od "sedlacekdan" ale hned na list=thisComponent.sheets(16) to háže chybu - píše to "neznámá hodnota vlastnosti".

Dávám tedy celý svůj kód, kdyby se vám to chtělo procházet a předem velice děkuji pokud opravdu někdo najde nápravu chyby.

HEURÉKA, CHYBU JSEM MAKONEC OBJEVIL SÁM. Proměnná list není string ale object a je to. Díky mistru Sedláčkovi

sub SheetToPDF_faktura

dim sSheetName as string
dim sSheetName2 as string
dim sRange as string
dim sPATH as string
dim i as integer
dim pocet as integer
dim arg(0) as new com.sun.star.beans.PropertyValue
dim argt(1) as new com.sun.star.beans.PropertyValue
dim PA() as object
dim CRA(0) as new com.sun.star.table.CellRangeAddress
dim dokument as object
dim doc as object
dim s1 as object
dim adresa as string
dim list as string
dim pocitadlo as integer
dim tlacitko as integer

'on error goto konec

dokument = ThisComponent
s1 = dokument.Sheets.GetByName("faktura_automat")

sSheetName = "faktura_automat"
sSheetName2 = "export.txt"

sRange = "E1:M217"

' skryta vychozi objektova promenna
  with ThisComponent.Sheets

    dim bVisible(.Count-2)
 
    for i = 0 to .Count-2
      with .getByIndex(i)
      ' uloz viditelnost listu
        bVisible(i) = .IsVisible
      ' uloz oblasti tisku
        redim preserve PA(i)
        PA(i) = .PrintAreas
      ' zrus oblasti tisku
        .PrintAreas = array()
        if .Name = sSheetName Then                           
        ' Zadany list bude viditelny                         
          .IsVisible = true 
        ' Dle potreby se nastavi oblast tisku  
           if .Name = sSheetName2 Then                           
        ' Zadany list bude viditelny                         
          .IsVisible = true
           end if              
          if sRange <> "" then                               
            CRA(0) = .getCellRangeByName(sRange).RangeAddress
            .setPrintAreas(CRA())                            
          end if
        else
        ' Skryj nezadouci listy
          .IsVisible = false
        end if
      end with
    next i
   end with
   
   msgbox ("Spusť export!",0,"Pojistná zastávka")

	pocet = s1.GetCellRangeByName("X33").Value-1

for i = 0 to pocet

	wait 200
	
	doc = thisComponent.currentController
    list = thisComponent.sheets(16) 'faktura_automat
    doc.setActivesheet(list) ' nastaví aktivní list	
	
	'jdeme tisknout
	sPATH = s1.GetCellRangeByName("X32").String
 	arg(0).Name = "FilterName"
	arg(0).Value = "calc_pdf_Export"
    ThisComponent.storeToURL(ConvertToUrl(sPATH), arg())
    
    doc = thisComponent.currentController
    list = thisComponent.sheets(21) 'export_txt 
    doc.setActivesheet(list) ' nastaví aktivní list
        
    adresa = s1.GetCellRangeByName("X79").String
    argt(0).Name = "FilterName"
    argt(0).Value = "Text - txt - csv (StarCalc)"
    argt(1).Name = "FilterOptions"
    argt(1).Value = "32,,76,28"
    ThisComponent.storeToURL(convertToURL(adresa),argt())
    
    	
	if i < pocet then
		'tlacitko = msgbox ("Vytištěno, chystat další?",36,"Konec tisku?")
		'if tlacitko = 7 then
		   'goto konec
		'end if
		pocitadlo = s1.GetCellRangeByName("X1").Value + 1
		s1.GetCellRangeByName("X1").Value = pocitadlo
	end if

next i

  doc = thisComponent.currentController
  list = thisComponent.sheets(16) 'faktura_automat
  doc.setActivesheet(list) ' nastaví aktivní list
    
  'konec:
  
  msgbox ("Hotovo. Ještě vrátím listy zpět.",0,"Ukončení")
  
  with ThisComponent.Sheets
    for i = 0 to .Count-1
      with .getByIndex(i)
      ' Zobraz puvodni listy
        .IsVisible = bVisible(i)
      ' Nastav puvodni tiskove oblasti
        .PrintAreas = PA(i)
      end with
    next i

  end with
end sub

Jestli se můžu ještě zeptat ... toto makro mi hrozně pomohlo už tak jak je, ale kdyby mohlo buď exportovat jiný list než aktální nebo případně nějaký konkretizovaný výběr buněk na aktuálním listu, tak by to bylo úplně super. Víte i s tímto poradit? Zkoušel jsem to nahrávání makra, ale tam je opravdu pouze jediná možnost a to celý aktuální list. Jedině by šlo se přepnout a pak zase zpět, jenže ve chvíli běhu jiného makra jehož má být toto součástí, budou všechny okolní listy skryté (musí být pro danou funkčnost), tak se obávám že to bude dělat neplechu.
Mým cílem je hromadný export zároveň do pdf (to už umím) a do txt. Jenže samozřejmě do pdf se tiskne a oblast tisku lze definovat a tady je metoda jiná a tak si s tím neumím poradit.

Jo a ten třetí parametr značí (jak jsem tedy dost krokolomě zjistil) znakovou sadu. Ale která se skrývá pod jakým číslem to nevím, ale 76 funguje dobře :-)

Aha tak leccos je tady Pokročilé volby ukládání a načítání souborů