Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - odwołanie do arkusza na innym dysku

matmir · Wysłany: 25-01-2007, 21:12 **odwołanie do arkusza na innym dysku**

Jak wygląda odwołanie do komórki w arkuszu znajdującym się na innym dysku? Dla przykładu przyjmijmy, że do komórki A1 arkusza bieżącego chcę wpisać podwojoną zawartość komórki A1 akusza Sheet znajdującego się w pliku File w katalogu Dir na dysku G.
Jak wygląda takie przypisanie?

Cells(1,1)=ścieżka_dostępu_Sheet!Cells(1,1)*2 ??????

Tajan · **Pomógł:** 5633 razy Posty: 12168

Niestety, nie ma możliwości odwołania się bezpośrednio do komórek zamkniętego skorosztu. Jeżeli to tylko jedna komórka, to możesz wstawić odwołanie zewnętrzne w komórce w aktywnym skoroszycie i kodem VBA pobierać jej wartość. W bardziej skomplikowanych przypadkach należy otworzyć skororoszyt lub użyć specjalnych metod dostępu do danych (np. ADO).

matmir · Wysłany: 25-01-2007, 21:55

To trochę mnie martwi. Bo właściwie rzecz ma się następująco. Mam kilka takich samych arkuszy z danymi znajdujących się w różnych katalogach na innym dysku. Do każdego arkusza ma dostęp inny użytkownik. Ilość danych w arkuszach zmienia się w czasie. Te wszystkie dane muszę okresowo zbierać w jednym arkuszu o takiej samej strukturze jak arkusze cząstkowe. Jak to zrobić skoro nie można odwoływać się do zamkniętych skoroszytów?
Jeśli chodzi o VBA to jestem początkujący.

Tajan · **Pomógł:** 5633 razy Posty: 12168

Skoro budowa jest identyczna, to może zamiast VBA użyć konsolidacji (menu Dane) lub tabel przestawnych z konsolidacją wielu zakresów?

matmir · Wysłany: 25-01-2007, 22:20

Dzięki. To jest jakiś pomysł. Spróbuję.

matmir · Wysłany: 26-01-2007, 08:02

Jeszcze jedno pytanie. Jak wygląda odwołanie do komórki znajdującej sie w innym arkuszu w tym samym skoroszycie? Przyjmijmy przykład taki jak na początku wątku.

Tajan · **Pomógł:** 5633 razy Posty: 12168

Jest wiele sposobów. Najczęściej używany to:

Kod:

Cells(1,1)=Worksheets("Nazwa_arkusza").Cells(1,1)*2

lub

Kod:

Range("A1")=Worksheets("Nazwa_arkusza").Range("A1")*2