< návrat zpět

MS Excel


Téma: zjištění jména souboru při ukládání rss

Zaslal/a 29.9.2017 13:58

Při ukládání souboru z dialogového okna pomocí
zdroj_slozka = .InitialFileName - zjistím složku C:\SKLAD\REGAL\
zdrojovy_soubor = .SelectedItems(1) ' – zjistím jméno souboru s cestou C:\SKLAD\REGAL\nářadí.xls
Jak mohu zjistit jen název souboru bez cesty ?
Díky za odpověď.
Laďa

Zaslat odpověď >

#037773
avatar
A čo tak použiť funkcie RIGHT, MID, FIND, INSTR, INSTRREW, prípadne SPLIT?citovat
#037774
avatar
Skús funkciu
Public Function ASAPFileName() As String
Application.Volatile
ASAPFileName = ActiveWorkbook.Name
End Function

a do súboru napr. vzorecom napr. ako
=asapfilename()citovat
#037884
elninoslov
Pr.
A = Right(A, Len(A) - InStrRev(A, Application.PathSeparator))
alebo
A = Split(A, Application.PathSeparator)(UBound(Split(A, Application.PathSeparator)))citovat
icon #037885
eLCHa
Replace$(.SelectedItems(1), .InitialFileName, vbNullString)citovat
#037886
avatar
Sub Testicek()

strCestaSoubor = "d:\abc.jpg"

'vytvoreni objektu FSO a jeho prirazeni do objektove promenne
'Set objFSO = CreateObject("Scripting.FileSystemObject")

'parsovani
'strCesta = objFSO.GetParentFolderName(strCestaSoubor)
'strSoubor = objFSO.GetFileName(strCestaSoubor)

'nacteni souboru z existujici slozky a souboru
strSoubor = Dir(strCestaSoubor)

End Sub
citovat
icon #037888
eLCHa
@xlnc
Jo, už mi to taky došlo, ale byls rychlejší. Stačí Dir ;)citovat
#037890
avatar

eLCHa napsal/a:

@xlnc
Jo, už mi to taky došlo, ale byls rychlejší. Stačí Dir ;)


Úplně v klidu, já taky :-) A mám radši FSO. Dir je pro mě "takový nejasná věc", a i když dneska ještě rozhodně nezatracuju třeba ani MS DOS a příkazovou řádku, přeci jen ho mám ve spojení s CD, MK DIR a dalšími, no když se k tomu přidá Kill a ostatní, tak z toho zkrátka mám takový divný pocit. Ostatně řada jakože příkazů VBA typu FileExists a FolderExists stejně nakonec člověka na FSO nasměrují.citovat
icon #037896
eLCHa
Tak to já zase jedu čistě na Dir, jen se s tím musí člověk naučit.
Ono to vyvádí veselé věci, když v jedné proceduře je Dir použit a v rámci cyklu je volaná procedura, kde je taky použit. Takže fso je asi bezpečnější a snadnější na použití a ve větších projektech určitě je lepší dát mu přednost. Ale.. ;))citovat
#037899
avatar
Dir mám tak nějak v hlavě ještě spojený s básnickým pojmem "výchozí složka". Pro mě je něco jako kouzlo Ororok Orebuh s tím, že nemám tušení, co to udělá. A nebo další hloupé přirovnání. Je to pro mě jako fix, který sice píše, ale mám od něj obarvené prsty. FSO - mno, to je na oplátku něco, co je tu neměnné 20 let z VBScriptu, ale zaplaťpánbůh alespoň z velké části funguje.citovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

špatný výpočet ze zisku - příčina?

Jakoby • 12.7. 12:35

Řazení podle času v kategoriích

Marekh • 12.7. 9:55

Porovnávací Tabulka

Jess • 8.7. 20:49

Vzorec pro zkopírování obsahu buňky.

veny • 6.7. 8:28

Vzorec pro zkopírování obsahu buňky.

Tonda_Hu • 5.7. 21:17

Porovnávací Tabulka

Jess • 5.7. 13:49

Kontexove menu na tlačenie tabuliek

ivana12 • 3.7. 14:35