< návrat zpět

MS Excel

Téma: hyperlink cez makro rss

Zaslal/a Noco 13.8.2012 11:35

Zdravím potreboval by som spraviť hromadne viac hypertextových prepojení cez makro. mám makro ktoré mi generuje obsah najradšej by som bol keby som len to prepísal len neviem aký je príkazový kód na to, lebo čo som našiel na nete tak mi to furt dade havarovalo. tu je to makro. Ak by niekto vedel tak budem veľmi vďačný, kontaktovať ma môžte na adrese mato.nociar@gmail.com
Sub SeznamSouboru()

Dim Cesta As String, Soubor As String

Dim i As Long, Sloupec As Long

Cesta = "C:\Documents and Settings\admin\Desktop\veci pre rada\" 'Musí končit zpětným lomítkem

Soubor = Dir(Cesta & "*.*") 'lze nastavit jen určité soubory, např. "*.doc"

Sloupec = 1

'smazani puvodnich hodnot ve Sloupci

Columns(Sloupec).ClearContents

'doplneni novych souboru do Sloupce

i = 2

Do While Soubor <> ""

Cells(i, Sloupec) = Soubor

Soubor = Dir

i = i + 1

Loop

End Sub

stop Uzamčeno - nelze přidávat nové příspěvky.
icon Poki(13.8.2012 12:31)#009222
Poki
co takto?
Sub SeznamSouboru()
Dim Cesta As String, Soubor As String
Dim i As Long, Sloupec As Long

Cesta = "C:\Documents and Settings\admin\Desktop\veci pre rada" 'Musí končit zpětným lomítkem

Soubor = Dir(Cesta & "*.*") 'lze nastavit jen určité soubory, např. "*.doc"
Sloupec = 1

'smazani puvodnich hodnot ve Sloupci
Columns(Sloupec).ClearContents

'doplneni novych souboru do Sloupce
i = 1
Do While Soubor <> ""
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, Sloupec), Address:=Cesta & Soubor, TextToDisplay:=Soubor
Soubor = Dir
i = i + 1
Loop

End Subcitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje