< návrat zpět

MS Excel

Téma: Výpis cesty k souboru rss

Zaslal/a Alfan 31.8.2023 8:47

AlfanPotřeboval bych pomoct s vypsáním cesty k souboru do buňky
Ale toto mi nefunguje.
= LEFT (CELL ("název souboru", A1), FIND ("[", CELL ("název souboru", A1), 1) -1)
Co tam mám špatně?
"Název souboru" mám něčím nahradit?
To musím pojmenovat nějakou oblast?
V buňce B2 mám název souboru bez přípony a v buňce B3 název souboru s příponou, obojí pomocí vzorce.
Chci pak následně v makru využít cestu k souboru.

Děkuji.

Zaslat odpověď >
Strana:  1 2   další »
Jiří497(31.8.2023 12:16)#055352
avatar
Místo "název souboru" např. "filename"?

V české verzi je to takto:
=ZLEVA(POLÍČKO("názevsouboru";A1);NAJÍT("[";POLÍČKO("názevsouboru";A1);1)-1)citovat
elninoslov(31.8.2023 13:30)#055353
elninoslov
Nemám tu teraz CZ Office, ale skúste namiesto "názevsouboru" použiť "filename". Myslím, že to pôjde aj v CZ Office, lebo naopak bude asi problém v iných jazykoch použiť "názevsouboru". Skúste to overiť pls.citovat
Alfan(31.8.2023 14:14)#055354
Alfan
Super funguje.
Prosím, co mám za chybu v makru "inttank", že mi to píše, že neexistuje soubor a pak to proběhne?
Ostatní bych si pak zeditoval.
Děkuji.
Příloha: zip55354_wall_path.zip (214kB, staženo 3x)
citovat
elninoslov(31.8.2023 14:45)#055355
elninoslov
sKod = List1.Range("B1")
List1 je ale list "view".
Ak myslíte cestu čo je na liste "procedure" v B1, tak ten je List7.
Ďalej neskúmam, nemám zdroj...citovat
Alfan(31.8.2023 15:14)#055356
Alfan
Jj, to byla chyba.
Soubor jsem přiložil v zipu i minule, ale bez zdroje, omlouvám se. Nyní napraveno. Dal jsem jen ten jeden zdroj na to první makro "inttank".
Nyní mi to, ale dává chybu zde:
sFileTemp = Dir(sDir & "\*.xlsx")
To se také musí upravit, i když jsem již nadefinoval tu cestu?
Díky.
Příloha: zip55356_wall_path.zip (226kB, staženo 3x)
citovat
elninoslov(31.8.2023 19:38)#055360
elninoslov
sDir
E:\Download\/data-int-tank/
Cesta na HDD obsahuje "\" a online cesta obsahuje "/".
Následne výraz
sDir & "\*.xlsx"
obsahuje
E:\Download\/data-int-tank/\*.xlsx
Sranda, že kód napriek týmto očividným chybám s lomítkami v E2021 prejde 1
Příloha: zip55360_wall_path2.zip (219kB, staženo 3x)
citovat
Alfan(1.9.2023 9:58)#055363
Alfan
Děkuji.
Zkoušel jsem to, ale makro se zastaví tady:
sFileTemp = Dir(sDir & "*.xlsx", vbNormal)

Čím to je?
Děkuji.citovat
elninoslov(1.9.2023 11:38)#055364
elninoslov
U mňa všetko prebehne v poriadku. Akurát som si teraz všimol, že list "unipetrol" má v stĺpci "price disc" vzorec. Takže tam sa bude asi načítavať inak. To som si len od oka tipol, že sa načítajú všetky 3 listy rovnakým spôsobom. To doriešime neskôr.

Každopádne teraz k veci.
- Dám si BreakPoint na ten riadok
sFileTemp = Dir(sDir & "*.xlsx", vbNormal)
- Kliknem na tlačítko "LOAD DATA - INTTANK"
- Kód sa zastaví na BreakPointe, myšou idem na "sDir" a napíše mi cestu.
- Sedí tá cesta naozaj úplne presne (lomítka, medzery, iné znaky ...)? U mňa je to
"E:\Download\data-int-tank\"
- Ak nie som si na 100% istý cestou, tak pklik na sDir - Add Watch... - OK. V okne Watches v stĺpci Value kliknem a skopírujem si hodnotu bez úvodzoviek. Otvorím si Prieskumník a do adresného riadku vložím skopírovanú hodnotu - ENTER. Otvorí mi presne ten adresár o ktorý ide?
- Ak je všetko v cajchu, ale stále to hádže chybu, tak akú konkrétne chybu?
- Ak cesta v cajchu nieje, tak aká má byť presne cesta k danému súboru? Ale presne (umiestnenie, lomítka, medzera všetko).

EDIT: Skúste použiť namiesto Dir() metódu FSO:
Příloha: zip55364_wall_path-fso.zip (208kB, staženo 4x)
citovat
Alfan(1.9.2023 13:33)#055366
Alfan
Soubor je uložený zde:
C:\Users\RBraum\OneDrive - Lannutti Spa\Ekonomika\FUEL\Jakub\fuel\data-int-tank

FSO nefunguje, hlásí mi to, že neexistuje cesta:
https://lannuttigroup-my.sharepoint.com/personal/radek_braum_lannutti_com/Documents/Ekonomika/FUEL/Jakub/fuel/data-int-tank\

To je vlastně cesta z breakpointu.citovat
Alfan(6.9.2023 7:31)#055369
Alfan
Doplnění
@elninoslov
Pokud mám vše uložené na lokálním počítači, tak ta makra proběhnou v pořádku.
Takže ta chyba na tom řádku se týká tedy uložení na OneDrive.
Pokud by se vám podařilo tu chybu odstranit, moc by mi to pomohlo.
Opět samozřejmě nabízím příspěvek buď vám nebo fóru.
Děkuji.citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje