Excel Složka

A nechcete si koupit nějaký kurz Excelu, nebo se laskavě podívat po síti Internet?

Vzij se do kuze tazatele. Cely rok to slo, nebylo treba nic delat. Ted najednou pred koncem rokuy po nich ve skole chteji, aby prokazali nabyte znalosti. Ale kde nic neni, ani smrt nebere. Takze hleda dobraky, kteri to udelaji za nej.

Hledal jsem na internetu Ali nic jsem nemohl najít.
Proto bych chtěl Vás moc poprosit o pomoc.

Děkuji

Odpoved mas hned v prvnim odkazu. Jen bys musel na ten odkaz kliknout a dostat se na stranku, kterou potrebujes:
http://office.lasakovi.com/excel/vba-soubory/excel -vba-vypsat-soubory-adresare/

Mas tam priklad:
Výpis adresáře pomocí VBA
Adresáře se vypíši do ListBoxu. ListBox1.AddItem můžeme nahradit třeby vypisem do dialogového okna MsgBox.

Nemohl jsem nic najit znamena, ze jsem ani nehledal nebo se ani nesnazil procist odkaz, ktery jsem v prvni odpovedi dostal.

Nějak mě to nejde.

lepší je ten můj soubor co jsem poslal jako vzor akorát, že píše to všechno i to co je v daných
složkách. Potřebuji, aby to vypsalo pouze složky.

Můžete mi poradit co stým nebo upravit. Moc děkuji.

Děkuji

Ono treba trochu porozmýšľať a prispôsobiť...
Toto máš z vyššie spomínaných stránok Lasákových, kód je upravený tak, aby nepísal obsah do ListBoxu, ale do buniek Excelu.

Predložené makro si naviaž na svoje tlačidlo, alebo spúšťaj z Vývojára, alebo to daj do procedúry spúšťajúcej sa pri otvorení súboru.
(Editor máš zaheslovaný a spúšťať neznáme makro - sorry, ale nebudem, takže by bolo vhodné odomknúť, aby sme mohli pozrieť čo a ako to pracuje, dať heslo, alebo sem rovno napísať onen utajený kód...)

Nižšie uvedené makro Ti vypíše zložky toho adresára, v ktorom sa nachádza súbor s týmto makrom.

Ideálne by bolo otvoriť okno pre výber adresára, ktorého výpis chceš získať, ale neviem ti to takto z hlavy povedať a nemám ani čas pátrať po tom.

Ak Ti niektorý z ostatných znalcov z poradne poskytne k tomu ďalšie info, môžeš si to doplniť a upraviť (a zároveň poskytne cennú informáciu mne)

Sub VypisAdresarov()
    Columns("A:A").ClearContents
    Range("A1") = "Výpis aktuálneho adresára"

    ZvolenyAdresar = ActiveWorkbook.Path & "\"
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(ZvolenyAdresar)
    Set fc = f.SubFolders
    i = 2
    For Each f1 In fc
        polozka = f1.Name
        Range("A" & i) = polozka
        i = i + 1
    Next
End Sub

Dúfam, že aplikovať si to už dokážeš, lebo inak je to naozaj na štúdium...

Ak Ti niektorý z ostatných znalcov z poradne poskytne k tomu ďalšie info, môžeš si to doplniť a upraviť (a zároveň poskytne cennú informáciu mne)

Dialog pro výběr složky, který je obsažen v "jeho" souboru (autorem je Petr Pecháček, proto ten zámek VBA) je použit tento kód:
http://www.mrexcel.com/forum/excel-questions/46381 4-h1-can-someone-please-explain-value.html

V súvislosti s dotazom výpisu skladieb v zložke s hudbou som sa vrátil k otázke dialógu výberu zložky.
Našiel som toto, čo plní presne to, čo som potreboval a je to úplne minimalistické (na skúšku vypisuje cestu do "A1"):

Sub DialogZloziek()

Dim FolderName As String

    With Application.FileDialog(msoFileDialogFolderPicker)
         .AllowMultiSelect = False
         If .Show = -1 Then Range("A1") = .SelectedItems(1)
     End With
     
End Sub