GoldenLine
Zaloguj się

konto usunięte

Temat: Pobieranie nazwy arkusza

Cz istnieje sposób aby pobrać nazwy poszczególnych arkuszy i wpisać je do komórek.
Załóżmy, że mam 30 arkuszy i potrzebuję mieć ich nazwy w jednej tabelce.
Thx za pomoc
Link do wypowiedziLink
Andrzej R.

Andrzej R. analityk, Agora SA

Temat: Pobieranie nazwy arkusza

Sub xxx()

For Each sh In ActiveWorkbook.Worksheets
Selection.Value = sh.Name
Selection.Offset(1, 0).Select
Next sh
End Sub
Link do wypowiedziLink

konto usunięte

Temat: Pobieranie nazwy arkusza

A czy jest możliwość nie używania VBA
Link do wypowiedziLink
Andrzej R.

Andrzej R. analityk, Agora SA

Temat: Pobieranie nazwy arkusza

30 razy zaznaczać nazwę arkusza ctrl+c i ctrl+v w odpowiedniej komórce...
można też przepisać
:D
Link do wypowiedziLink
Zbigniew Zubowicz

Zbigniew Zubowicz analityk, DLS

Temat: Pobieranie nazwy arkusza

albo w dowolnej komórce arkusza taka formuła:
=FRAGMENT.TEKSTU(KOMÓRKA("filename");ZNAJDŹ("]";KOMÓRKA("filename");1)+1;DŁ(KOMÓRKA("filename"))-ZNAJDŹ("]";KOMÓRKA("filename");1))
Link do wypowiedziLink

konto usunięte

Temat: Pobieranie nazwy arkusza

Dzięki za pomoc, nawet nie wiedziałem, że to może byc takie skomplikowane
Link do wypowiedziLink
Zbigniew Zubowicz

Zbigniew Zubowicz analityk, DLS

Temat: Pobieranie nazwy arkusza

jak wpiszesz samo =KOMÓRKA("filename")
to bedziesz miał nie tylko nazwe arkusza, ale nazwę pliku, oraz ścieżkę gdzie znajduje się plik.
Pozostałe słuzyło tylko do wyodrębnienia fragmentu tekstu zawierającego nazwę arkusza.
Link do wypowiedziLink

konto usunięte

Temat: Pobieranie nazwy arkusza

Nie do końca o to chodziło, ale dzięki. Chyba jednak ten kawałek kodu jest najlepszy.
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

Pobieranie nazwy arkusza




Wyślij zaproszenie do
Anuluj