Příspěvky uživatele

A něco takéto by to nepomohlo vyřešit?

https://stackoverflow.com/questions/33734706/excels-fullname-property-with-onedrive

Public Function GetLocalPath(ByVal Path As String) As String
Const HKCU = &H80000001
Dim objReg As Object, rPath As String, subKeys(), subKey
Dim urlNamespace As String, mountPoint As String, secPart As String
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\." & _
"\root\default:StdRegProv")
rPath = "Software\SyncEngines\Providers\OneDrive\"
objReg.EnumKey HKCU, rPath, subKeys
For Each subKey In subKeys
objReg.GetStringValue HKCU, rPath & subKey, "UrlNamespace", urlNamespace
If InStr(Path, urlNamespace) > 0 Then
objReg.GetStringValue HKCU, rPath & subKey, "MountPoint", mountPoint
secPart = Replace(Mid(Path, Len(urlNamespace)), "/", "\")
Path = mountPoint & secPart
Do Until Dir(Path, vbDirectory) <> "" Or InStr(2, secPart, "\") = 0
secPart = Mid(secPart, InStr(2, secPart, "\"))
Path = mountPoint & secPart
Loop
Exit For
End If
Next
GetLocalPath = Path
End Function

To now get the local full name of your workbook, just use GetLocalPath(ThisWorkbook.FullName)

@elninoslov
Prosím Tě, omlouvám se.
Včerejší mé nadšení, že to funguje bylo mylné...

Popsal jsem to v souboru, který přikládám.
Když zadám nový dotaz, tak se to načte dobře, s tou správnou na C: uživatele.
Ale ty původní dotazy nefungují.

Tak mě napadá, jestli si nepomoct přes nějaký pomocný dotaz, který načte tu relativní cestu na to C:, kde je ten OneDrive a zbytek adresářů by se jen doplnil?
Ale to je jen nápad.

Ještě jednou se omlouvám.

opraveno níže

Posílám postup.
Po přihlášení přes MS účet to šlo.
Akorát jsem musel zadat cestu na SP bez podadresářů Ale pak to načetlo úplně všechno.

Posílám v příloze prtsc

Posílám ty informace:

Ak otvoríte súbor "matricePQ-nacitani.xlsm", čo je v parametroch "Soubor" a "Cesta"?
https://lannuttigroup-my.sharepoint.com/personal/radek_braum_lannutti_com/Documents/pokus/relativni cesta/data\[/b]

https://lannuttigroup-my.sharepoint.com/personal/radek_braum_lannutti_com/Documents/pokus/relativni cesta/kj\

https://lannuttigroup-my.sharepoint.com/personal/radek_braum_lannutti_com/Documents/pokus/relativni cesta/hs\

Ak dáte vytvoriť pokusný nový dotaz:
Záložka Údaje - Získať údaje - Zo súboru - Z priečinka služby SharePoint

a zadáte Vašu SP adresu
https://lannuttigroup-my.sharepoint.com/personal/radek_braum_lannutti_com/Documents/pokus/kj

dostanete nejaký zoznam súborov?

Zdroj = Folder.Files("C:\Users\RBraum\OneDrive - Lannutti Spa\pokus\relativni cesta\kj")

@elninoslov
Tak jsem v pasti.
Na lokále je například cesta tato:
C:\Users\RBraum\Documents\pokus\kj\

A vše funguje super.

Ale pokud uložím na OneDrive, mám problém.
Namapuje se mi toto:
https://lannuttigroup-my.sharepoint.com/personal/radek_braum_lannutti_com/Documents/pokus/kj\

A nefunguje to.

Nedalo by se to, prosím, nějak upravit? Třeba nějaká kontrola „lomítek“?
I s tím, že bych si něco zeditoval, kdybych to měl na lokále anebo, kdyby to bylo na OD?

Děkuji.

Jj. Díky za vysvětlení.
Jak píšete. Budu mít synchronizaci NB a OD.
Ještě jednou díky.

@elninoslov
S úspěchem používám Tvé řešení, viz příloha.
Ale chci se zeptat.
Dalo by se toto řešení nějak poupravit ideálně na tom listu "Settings" tak, aby se to dalo používat i při uložení na OneDrive?
Děkuji
Radek

Jak jsem psal.
Já mám Microsoft 365 Apps pro firmy, když kouknu v Excelu přes nabídku "Účet".
A nemám to nikde.
Už jsem informoval IT.

@Dingo
Já to přesto nemůžu nikde najít...
Poslal jsem ticket na IT

Nemáte někdo prosím nějaký nápad nebo návrh řešení?
Děkuji

@elninoslov
díky

@lubo
Já mám Microsoft 365 Apps pro firmy a ten nástroj tam nemám.
To se musí nějak doinstalovat?

Děkuji

@elninoslov
V tom PQ je to elegantní, super.
Mohl bys mi prosím v tom kódu popsat přesně co se tam "děje"?
Já jsem to také zkusil spojit ty tabulky, ale pak jsme neznal to, co jsi s tím udělal ty.
Mám na mysli to vytvoření toho extra sloupce buď navíc nebo chybí.
Konkrétně toto:
#"Pridané Navíc" = Table.AddColumn(Navic, "Check", each "Navíc"),
a toto
#"Pridané Chybí" = Table.AddColumn(Chybi, "Check", each "Chybí"),

Ale každopádně mockrát děkuji.

Dobrý den, potřeboval bych porovnat dva soubory, respektive listy.
Na listu "actual" mám současný stav a na "old test" mám stav poslední před aktuálním.
A potřebuji vědět, co je v "actual" nyní navíc a co naopak v "actual" od posledního stavu chybí, řádky.
Nevím si s tím rady.
Můžete mi, prosím, někdo poradit?
Děkuji

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje