MS Excel

Téma: A ZASE TEN HYPERLINK

Zaslal/a lopi007 7.1.2013 20:14

Dobrý den pánové, mohl by mi někdo poradit nějakou procedurku , potřeboval bych v UF při kliku na BUTTON aby se mi otevřela nabídka pro vybrání souboru který se uloží do buňky např A1 jako hyperlink

Uzamčeno - nelze přidávat nové příspěvky.

Jeza.m(7.1.2013 21:22)#010902

Zkus do procedury clicku vložit toto:
Dim soubor As String
Set dotaz = Application.FileDialog(msoFileDialogFilePicker)
With dotaz
.AllowMultiSelect = False
.InitialView = msoFileDialogViewDetails
.Title = "Vyber soubor"
.Show
For Each f In .SelectedItems
soubor = f
Next
End With
List1.Range("A1").Formula = "=HYPERLINK(" & Chr(34) & soubor & Chr(34) & ", " & Chr(34) & Dir(soubor) & Chr(34) & ")"
M@citovat

Jeza.m(7.1.2013 21:24)#010903

asi by neuškodilo vložit nakonec ještě
set dotaz = nothing
ale to už je jen jakési hraní se zanedbatelnými prostředky pc.

M@citovat

Jeza.m(7.1.2013 21:35)#010904

Nebo trochu jednodušší způsob :-)
Dim soubor As String
Soubor = Application.GetOpenFilename
List1.Range("A1").Formula = "=HYPERLINK(" & Chr(34) & soubor & Chr(34) & ", " & Chr(34) & Dir(soubor) & Chr(34) & ")"

M@citovat

lopi007(7.1.2013 21:38)#010905

super kucííí děkuji vyzkouším

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