A čo tak použiť funkcie RIGHT, MID, FIND, INSTR, INSTRREW, prípadne SPLIT?citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: zjištění jména souboru při ukládání
Ú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
MS Excel
Téma: zjištění jména souboru při ukládání 
Zaslal/a bordov 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
(29.9.2017 17:15)#037774
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
Public Function ASAPFileName() As String
Application.Volatile
ASAPFileName = ActiveWorkbook.Name
End Function
a do súboru napr. vzorecom napr. ako
=asapfilename()citovat
Pr.
A = Right(A, Len(A) - InStrRev(A, Application.PathSeparator))
alebo
A = Split(A, Application.PathSeparator)(UBound(Split(A, Application.PathSeparator)))citovat
A = Right(A, Len(A) - InStrRev(A, Application.PathSeparator))
alebo
A = Split(A, Application.PathSeparator)(UBound(Split(A, Application.PathSeparator)))citovat
(11.10.2017 9:06)#037886
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 Subcitovat
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 Subcitovat
(11.10.2017 10:09)#037890
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
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
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
(11.10.2017 17:56)#037899
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)
\n
\nMenu
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.
RSS nejnovější články