napr. cez vlastnost FullName objektu Workbook. V okne immediate:
? Left(ActiveWorkbook.FullName,2)citovat
? Left(ActiveWorkbook.FullName,2)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: ktory disk
MS Excel
Téma: ktory disk 
Zaslal/a 30.10.2017 15:10
dobry den,
da sa zistit (cez VB)z ktorého disku bol spusteny dany subor .xls?
Priklad: Vytvorim subor v xls a potreboval by som aby mi vypisalo meno disku za ktorého bol spusteny.
Stacilo by mi ci je to z C:, D: ...
vopred dakujem
(30.10.2017 16:19)#038187
nebo FSO:
Set objFSO = CreateObject("Scripting.FileSystemObject")
strAktualniSlozka = objFSO.GetAbsolutePathName("")
strAktualniJednotBka = objFSO.GetDriveName(strAktualniSlozka)citovat
Set objFSO = CreateObject("Scripting.FileSystemObject")
strAktualniSlozka = objFSO.GetAbsolutePathName("")
strAktualniJednotBka = objFSO.GetDriveName(strAktualniSlozka)citovat
(31.10.2017 9:24)#038196
dakujem za odpovede, ale nerobi mi to co potrebujem. Cez FSO mi vypisuje stale z C: aj ked subor otvaram napr. z disku E: t.z. Ja by som potreboval, ze ak otvorim subor napr. z disku E: tak aby mi davalo E: ak spustim napr. F: tak aby mi davalo F: atd.
Cez Left(ActiveWorkbook.FullName,2)vypisuje navestie zosita.
Cez Left(ThisWorkbook.Path, 1) je prazdne
dakujemcitovat
Cez Left(ActiveWorkbook.FullName,2)vypisuje navestie zosita.
Cez Left(ThisWorkbook.Path, 1) je prazdne
dakujemcitovat
Predpoklad vrátenia správneho písmena disku je:
-uložený súbor (nie iba nový a neuložený)
-neotvárať z archívu (ten sa rozbalí do Tempu - predvolene C:)
Tu máte už uvedené príklady v súbore, a mne fungujú.
-uložený súbor (nie iba nový a neuložený)
-neotvárať z archívu (ten sa rozbalí do Tempu - predvolene C:)
Tu máte už uvedené príklady v súbore, a mne fungujú.
Příloha: 
38197_getdrive.zip (12kB, staženo 25x)
citovat38197_getdrive.zip (12kB, staženo 25x)(31.10.2017 9:59)#038199
jasnee ...je to funkcne... vsetky priklady...chcelo to ulozit...
este raz dakujemcitovat
este raz dakujemcitovat
Inak aj bunka Vám to zistí:
=LEFT(CELL("filename";$A$1);2)
=ZLEVA(POLÍČKO("filename";$A$1);2)
Ak by to nechcelo prepočítavať, tak to obalte do IF/KDYŽ napr:
=IF(NOW()<>0;LEFT(CELL("filename";$A$1);2))
=KDYŽ(NYNÍ()<>0;ZLEVA(POLÍČKO("filename";$A$1);2))citovat
=LEFT(CELL("filename";$A$1);2)
=ZLEVA(POLÍČKO("filename";$A$1);2)
Ak by to nechcelo prepočítavať, tak to obalte do IF/KDYŽ napr:
=IF(NOW()<>0;LEFT(CELL("filename";$A$1);2))
=KDYŽ(NYNÍ()<>0;ZLEVA(POLÍČKO("filename";$A$1);2))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