MS Excel

Téma: Otevřít složku

Zaslal/a Zbynek77 2.1.2017 22:57

Prosím o radu jak makrem otevřu složku "Soubor1" ve které mám další podsložky. Mám makro, které mně složku otevře, ale nejsou zde ostatní třeba PDF soubory, excelové atd.

Děkuji.

Sub DialogVyberSlozky()

'víceúčelový dialog, zde pro výběr složky
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "C:\Users\Zoro2\Desktop\Soubor1"
'zobrazení dialogu
.Show
End With

End Su

Zaslat odpověď >

Pavlus(3.1.2017 7:20)#034144

Místo msoFileDialogFolderPicker použijte jiný FileDialog - msoFileDialogFilePicker nebo msoFileDialogOpen.
P.citovat

Anonym(3.1.2017 8:32)#034145

Tak super ostatní podsložky jsou už vidět, ale po kliknutí třeba na PDF, nebo excel složka zmizí. Funguje pravé tlačítko a otevřít soubor. Jak toho docílím dvojklikem. Děkuji. Z.citovat

xlnc(3.1.2017 9:23)#034146

FileDialog sám o sobě nic neotvírá, pouze umožňuje výběr složky/souboru(ů). Následně je možné si přes SelectedItems zjistit, co uživatel vybral. Samotné otevírání se pak dělá dalším kódem (Workbooks.Open, Shell, FollowHyperlink aj.) a liší se podle typu souboru.

Složky lze otevírat i klasicky přes Průzkumníka. Nezjistíte ovšem, co si uživatel vybral.citovat

Zbynek77(3.1.2017 9:36)#034147

No mně jde v podstatě oto abych makrem otevřel průzkumníka, a potom klasicky vybíral a otvíral soubory. Děkuji za odpověď.citovat

xlnc(3.1.2017 9:50)#034148

Pak to zkuste třeba takto:

Sub SlozkaPruzkumnik()

Dim strSlozka As String

strSlozka = "C:\Windows\System32\"

Shell "explorer.exe """ & strSlozka & """", vbNormalFocus

End Subcitovat

Zbynek77(3.1.2017 9:58)#034149

To je presně ono. Moc Děkuji.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

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.