Excel przypisywanie linków do wielu plików ?

[Tomek]

cześć

Nie wiem jak zrobić makro które tworzyłoby linki do wielu plików?
Chodzi o to że mam w excelu arkusz z tabelą. W pierwszej kolumnie jest
nr pozycji. Mam rówineż pliki w moich dokumentach które nazwane są
numerem pozycji, czyli np. w kolumnie A2 mam 1 oraz mam plik w moich
dokumentach który nazywa się "1" , później mam w kolumnie A3 pozycję 2
oraz mam plik w moich dokumentach o nazwie "2" , itd.
Mam tego kilka tysięcy.

Pytanie jest jak to zrobić żeby np w kolumnie F powstały linki
odwołujące się do poszczególnych plików.
Oczywiście wiem jak to zrobić na piechotę po jednej pozycji , pytanie
jest jak to zrobić dla kilku tysięcy?

[Stanislaw]

cze??
Nie wiem jak zrobi? makro które tworzy?oby linki do wielu plików?
Chodzi o to ?e mam w excelu arkusz z tabel?. W pierwszej kolumnie jest
nr pozycji. Mam rówine? pliki w moich dokumentach które nazwane s?
numerem pozycji, czyli np. w kolumnie A2 mam 1 oraz mam plik w moich
dokumentach który nazywa si? "1" , pó?niej mam w kolumnie A3 pozycj? 2
oraz mam plik w moich dokumentach o nazwie "2" , itd.
Mam tego kilka tysi?cy.
Pytanie jest jak to zrobi? ?eby np w kolumnie F powsta?y linki
odwo?uj?ce si? do poszczególnych plików.
Oczywi?cie wiem jak to zrobi? na piechot? po jednej pozycji , pytanie
jest jak to zrobi? dla kilku tysi?cy?

Witaj Tomek,

Oto makro:
''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Hiperlacza()

Dim i As Long

i = 2


Do While Cells(i, "A") <> ""
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, "F"), _
Address:=CurDir & "\" & Cells(i, 1).Value & ".xls", _
TextToDisplay:=Cells(i, 1).Value & ".xls"
i = i + 1
Loop

End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''

Kilka uwag:
1. aby makro poprawnie dzialalo, biezacym folderem musi byc ten,
w ktorym znajduja sie pliki wymienione w kolumnie "A"

biezacym folder to ten, ktory otwiera si? po kliknieciu przycisku "Otworz"

2. przyjalem, ze pliki z kolumny "A"
do ktorych maja byc hiperlacza to skoroszyty
i nie maja rozszerzenia ,
wiec makro dodaje rozszerzenie ".xls"

3. hiperlacza sa dodawane do wszystkich pozycji z kolumny "A",
poczynajac od kolumny "A2" do ostatniej niepustej komorki

4. kolumna "F" powinna byc pusta - hiperlacza sa nadpisywane
bez ostrzezenia

__________
Stanislaw

[TASCH]

cze¶æ
Nie wiem jak zrobiæ makro które tworzy³oby linki do wielu plików?
Chodzi o to ¿e mam w excelu arkusz z tabel±. W pierwszej kolumnie jest
nr pozycji. Mam rówine¿ pliki w moich dokumentach które nazwane s±
numerem pozycji, czyli np. w kolumnie A2 mam 1 oraz mam plik w moich
dokumentach który nazywa siê "1" , póŒniej mam w kolumnie A3 pozycjê 2
oraz mam plik w moich dokumentach o nazwie "2" , itd.
Mam tego kilka tysiêcy.
Pytanie jest jak to zrobiæ ¿eby np w kolumnie F powsta³y linki
odwo³uj±ce siê do poszczególnych plików.
Oczywi¶cie wiem jak to zrobiæ na piechotê po jednej pozycji , pytanie
jest jak to zrobiæ dla kilku tysiêcy?
--
Tomek
ICQ 326-586-522
Skype TomEnglish32
GG 319-66-44

jesli na dysku w d:\folder masz plik np. 1.txt
to wtedy:

=HIPER£¡CZE("[d:\folder\"&A1&".txt]")

pozdr.
Tad

[Stanislaw]

cze??
Nie wiem jak zrobi? makro które tworzy?oby linki do wielu plików?
Chodzi o to ?e mam w excelu arkusz z tabel?. W pierwszej kolumnie jest
nr pozycji. Mam rówine? pliki w moich dokumentach które nazwane s?
numerem pozycji, czyli np. w kolumnie A2 mam 1 oraz mam plik w moich
dokumentach który nazywa si? "1" , pó?niej mam w kolumnie A3 pozycj? 2
oraz mam plik w moich dokumentach o nazwie "2" , itd.
Mam tego kilka tysi?cy.
Pytanie jest jak to zrobi? ?eby np w kolumnie F powsta?y linki
odwo?uj?ce si? do poszczególnych plików.
Oczywi?cie wiem jak to zrobi? na piechot? po jednej pozycji , pytanie
jest jak to zrobi? dla kilku tysi?cy?

Tomek,

a moze potrzebujesz podejsc do problemu od drugiej strony,
tj. miec hiperlacza do wszystkich plikow w biezacym folderze
=> bardzo ladnie te sprawy rozwiazuje dodatek
Power Utility Pak v6
do sciagniecia z
http://www.j-walk.com/ss/pup/pup6/index.htm

Jak juz zainstalujesz to w menu PUP v6
odszukaj polecenie
Workbook Tools | Filename Lister...

__________
Stanislaw

[Tomek]

Bardzo dziękuje !!!!!