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

Posílám pro vyzkoušení testovací soubor na kterém jsem to dělal, pokud je nekompatibilita vlivem použitého OS, tak neporadím. Jediný co vím, je že konec řádku může být ukončen různými znaky (v různých OS), ale to jsem uvedl již minule.

Všiml jsem si že používáš i odřádkování, tak jsem to tam dodělal.

Function Knv(Data) As Variant
	Dim Text, X, S, D, U, K, T1, T2
	D = Chr(10) ' Upravit podle použitého odřádkování ... buď Chr(10), nebo Chr(13), nebo oba - záleží na pořadí
 	Text = split(Data, D)
 	S = "<p>"
 	U = Ubound(Text)
	For K=0 To U-1
		T1 = Trim(Text(K))
		T2 = Trim(Text(K+1))
		If Len(T1)>0 Then		
			If Len(T2)=0 Then 
				S = S &  T1 & "</p>" & D & "<p>"
			Else 
				S = S &  T1 & "<br />"
			EndIf		
		EndIf		
	Next
	S = S &  T2 & "</p>"	
	Knv = S
End Function

Mě už toho moc nenapadá.

Já už z nouze si pojmenoval adresáře i soubory stejně jako vy (tj.s mezerami, háčky a čárkami) a zkusil jsem to. Bohužel jsem k ničemu nedošel - mě to funguje.

Pro začátek bych navrhoval zkusit jednoduší názvy (souborů i adresářů) bez háčků, čárek a mezer a co nejkratší -> eliminace případné chyby z nepozornosti a navíc se to celé zpřehlední a zkrátí.

Chyba 509 může znamenat chybějící nebo přebývající znak v buňce (logická chyba), případně odkaz na neexistující soubor (díval jsem se chybí Vám tam apostrof, ale to může být chyba kopírování). Ona i mezera navíc udělá své... a není snadno vidět.

V důvěryhodných umístěních máte určitě tyto dva řádky (možná více, pokud používáte více umístění):

C:\Users\Josef\Documents
C:/Users/jiras/Documents

Lomítka budou možná jinak..., myslím, že Windows používá obrácená lomítka. Na konci za Documents lomítko už není.

Pokud použijete způsob co uváděl kamowski, pak se po změně dat ve zdrojovém dokumentu projeví změna automaticky i v cílovém dokumentu. U mě to trvá v průměru několik sekund (ale mám počítač z roku 2008, dnes již historický CPU Intel E8400). Někdy tomu musím trošku pomoct. :-)

Pokud použijete ten můj způsob pak se změna ukáže až při jakémkoliv přepočtu v cílovém souboru. Nebo se tomu dá ručně "pomoct" stiskem kláves Control+Shift+F9. Takže se to "samo" hned neprojeví.

V obou případech musí být oba soubory otevřeny (jak cílový, tak zdrojový).

Znovu opakuji (příspěvek #2 a #11):
Zvol: Nástroje - Možnosti - LibreOffice (žádný Calc) - Zabezpečení - Zabezpečení maker - Důvěryhodné zdroje - Důvěryhodná umístění - Přidat (vlož sem cestu k tvým souborům)
Obrázek (klikni pro zvětšení):

Mě se video přehraje, zkus jiný přehrávač (VLC, SMPlayer, ...), nebo ti chybí nějaký kodeky (H264)

Zdravím, podíval jsem se na to video od Kamowski, je to hezky udělaný. Všiml jsem si, že jsem opomněl říct, že v nastavení:
Možnosti - LibreOffice Calc - Obecné - Aktualizovat odkazy při otevírání - mám "Vždy (z důvěryhodných umístění)".
Kamowski to tam správně ukázal.
Ale co mě zarazilo, že nemá vyplněno v "Důvěryhodných zdrojích" "Důvěryhodná umístění". Zkusil jsem tu tabulku smazat, ale přestalo mi to fungovat. Několikrát jsem to zkusil (i se změnou "úrovně zabezpečení" ale bez úspěchu. Nevím jestli na to má vliv jiný operační systém (mám Ubuntu), ale u mě to musí být vyplněné.

Zdravím,
Vyzkoušeno na LibreOffice 7.4.6.2 (Operační systém Ubuntu 22.04.1 LTS), v mém případě to jde takto:

První způsob:
Otevřu oba dokumenty vedle sebe.
V cílovém dokumentu do příslušné buňky napíšu "=". Ve zdrojovém dokumentu ťuknu do buňky odkud chci data číst a stisknu enter. Automaticky se vytvoří propojení které funguje.

Druhý způsob:
Otevřu oba dokumenty vedle sebe.
Ve zdrojovém dokumentu zvolím zdrojovou buňku. Dám kopírovat. V cílovém dokumentu označím buňku kterou chci mít propojenou. Dám vložit jinak, zvolím odkaz a potvrdím.

Oba způsoby mi bez problému fungují a jsou identické.

Ten třetí způsob od uživatele kamowski mi také funguje, ale chová se jinak. Při zavřeném zdrojovém dokumentu hlásí chybu (neotevření dokumentu) a v propojených buňkách se objeví #N/A. Což je asi lepší.
Ten můj se pouze nezaktualizuje (zůstanou tam poslední hodnoty) bez jakéhokoliv varování.

Tady jsou nějaké moje testy:
Odkaz na soubor
Je tam i jiný způsob podle tlačítek (možná by mohlo být jen jedno ... )

Nebo takto:

Sub GetLastRowInCol
	Dim oDoc As Object, oSheet As Object, oRange As Object, oCol As Object, oCell As Object, oLast As Object  
	oDoc	  = ThisComponent
	oSheet = oDoc.CurrentController.ActiveSheet	
	oCol = oSheet.Columns.getByIndex(oDoc.CurrentSelection.RangeAddress.StartColumn)	
	oLast = oCol.queryEmptyCells()
	oRange = oLast.getByIndex(oLast.getCount()-1)	
	oCell   = oCol.getCellByPosition(0, oRange.RangeAddress.StartRow)
	oDoc.CurrentController.select(oCell)
End Sub

Asi takhle?

Sub Main
	dim document   as object
	dim dispatcher as Object
	document   = ThisComponent.CurrentController.Frame
	dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
	
	' Na poslední vyplněnou ve sloupci
	dim args1(1) as new com.sun.star.beans.PropertyValue
	args1(0).Name = "By"
	args1(0).Value = 1
	args1(1).Name = "Sel"
	args1(1).Value = false
	
	dispatcher.executeDispatch(document, ".uno:GoDownToEndOfData", "", 0, args1())

	' O jednu dolů
	dim args2(1) as new com.sun.star.beans.PropertyValue
	args2(0).Name = "By"
	args2(0).Value = 1
	args2(1).Name = "Sel"
	args2(1).Value = false
	
	dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args2())
End Sub

Zdravím,
souhlasím s tím, že to není dobrý nápad, nicméně jsem napsal funkci, která toto řeší (používá trik s časem, aby se provedl přepočet při změně barvy).
Odkaz na soubor: TrikSoucetBarev2.ods

Normálně jsem si označil tabulku, kterou chci zkopírovat (oranžově orámovaná), pak jsem ťuknul na "Copy table data to clipboard" a v Calcu jsem dal vložit.

Zdravím,
hned to první rozšíření na té uvedené stránce mi fungovalo:
https://chrome.google.com/webstore/search/table