Sub otevři()
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = "\\sítovýdisk\složka\podsložka\"
.Title = "Vyber adresar"
.Show
sxs = .SelectedItems(1)
Workbooks.Open Filename:=sxs
End With
End Subcitovat
Zaslal/a
13.5.2013 15:12Dobrý den,
můžete mi prosím poradit, jak pomocí funkce Application.GetOpenFilename zajistit, aby se vždy otevřela ta samá zvolená složka, ale ne na disku, ale na síti (celá sítová cesta, \\sítovýdisk\složka\podsložka\?
Private Sub CommandButton4_Click()
myFilePath = Application.GetOpenFilename()
nazev_pdf.Text = myFilePath
Cancel = True
End Sub
Díky Moc ;)
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.