MS Excel

Téma: VBA Combobox - procházení adresáři

Zaslal/a Away 25.7.2016 15:35

Zdravím,

rád bych se zeptal zda je možné v COMBOBOXu procházet adresáře. Mám napsanou subrutinu, která mi vypíše .xls* v konkrétním adresáři, ale já bych potřeboval ještě o úroveň výš. Vypsat jednotlivé adresáře, proklikem otevřít a vybrat konkrétní soubor. Je to možné, nebo to musím řešit například v kombinaci s LISTBOXem?

Zde aktuální řešení:

Private Sub UserForm_Activate()
Dim SouboryKtere As String

Adresar = ThisWorkbook.Path & "\Zdroj\"

SouboryKtere = Dir(Adresar & "*.xls*")
With ListBox1
While SouboryKtere <> vbNullString
.AddItem SouboryKtere
SouboryKtere = Dir
Wend
End With
End Sub

Děkuji za pomoc.

Zaslat odpověď >

xlnc(26.7.2016 10:55)#032113

No jednoduše dva závislé Comboboxy, trocha kódu z FSO. Na netu najdete i rekurzivní procedury, které projdou složku včetně podsložek, pokud vám ve finále nejde o to, kde konkrétně soubor leží. Samozřejmě v jednom Comboboxu nijak nezohledníte strukturu. Sice existuje i prvek TreeView, ale Microsoft ho v nových verzích Excelu zazdil.citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio