MS Excel

Dobrý den,

mám problém a nějak mě nenapadá způsob řešení. V tabulce mám sloupec ve kterém se nacházejí čísla výkresů a nevím, jakým způsobem vytvořit makro, které by mi např. ve sloupci vedle vytvořilo odkazy na soubory se stejným názvem. Např. první buňka je 111111 a excel prohledá adresář, najde soubor 111111.dxf a vytvoří na něj odkaz do buňky vedle. Máte někdo nějakej nápad?

Zaslat odpověď >

Poki(22.2.2010 14:46)#001234

ahoj,
Pokud mas nazvy souboru ve sloupci A, jde to udelat takhle:
Sub hyperlinks()

Dim Cesta As String
Dim Pripona As String

Cesta = "C:\Documents and Settings\admin\Plocha\"
Pripona = ".dxf"

For i = 1 To Application.WorksheetFunction.CountA(Range("a:a"))

Cells(i, 2).Select
ActiveSheet.hyperlinks.Add Anchor:=Selection, Address:= _
Cesta & Cells(i, 1) & Pripona, TextToDisplay:=Cells(i, 1) & Pripona

Next

End Sub
Musis si nastavit Cestu a priponu podle toho, kde soubry mas a o jaky typ jde...citovat

Jeza.m(22.2.2010 21:28)#001240

Ahoj, asi by to šlo i funkcí:
=HYPERTEXTOVÝ.ODKAZ(A1&".dxf";A1)

M@citovat

Mrmola(23.2.2010 6:24)#001243

Díky moc za ochotu, přesto bych se ještě zeptal. Pokud by ty soubory neměli přesně název jako zdrojová buňka, tedy např. XX_111111_XX.dxf a mohl se soubor vyskytovat ve víc variantách např. XX_111111_A a XX_111111_B , dalo by se nějakou procedurou vyhledávat v adresáři se soubory a vracet přesnej název souboru? Stačilo by mě alespoň nakopnout, jakou procedurou to udělat, nebo jakým způsobem by to mohlo jít, já už bych to snad nějak spáchal. Ještě jednou díky moc za pomoc....citovat

Poki(23.2.2010 9:29)#001244

tahle procedura vypise vsechny soubory s priponou .dxf do buněk na listu (pocinaji bunkou A1)

Sub HONORARE_soubory()
Dim f As String
Dim Cesta As String
Dim i As Integer

Cesta = "C:\Documents and Settings\Poki\Dokumenty\" 'Cesta musí končit znakem '\'

ChDir Cesta
f = Dir(Path & "*.dxf")
i = 1

While f <> ""
Cells(i, 1) = f
i = i + 1
f = Dir()
Wend

End Subcitovat

mrmola(23.2.2010 10:09)#001248

Výtečně, s tímhle už to asi dám dokupy. Akorát jsem měl chvilku problém to rozběhnout, než jsem přišel na droboulinkou chybičku v názvu proměnný, kdy je použita Cesta a Path, to jen kdyby to chtěl využít někdo další.