Makro do kopiowania danych z wielu plików do arkuszy I L - IX L

Mam makro, które kopiuje ze wskazanego pliku kolumny A:N i wkleja do odkrywanego arkusza w pliku z makrem. Takich plików, z których są kopiowane kolumny może być do 9 (może być mniej). Arkusze do których są kopiowane kolumny mają nazwy 'I L", "II L" itd do "IX L". Jak zrobić, żebym nie musiał każdorazowo uruchamiać makra do każdego pliku. Chodzi mi o to, żeby po zaznaczeniu kilku plików (z których mają być kopiowane kolumny), makro wpierw wyczyściło wszystkie arkusze ("I L" do "IX L"), następnie jeżeli to możliwe wg alfabetycznej nazwy plików otwierało by mi pierwszy plik, odkrywało arkusz "I L" i kopiowało kolumny A:N, później przy drugim pliku ta sama procedura z "II L" itd..Następnie we wszystkich odkrytych arkuszach (od 'I L" do ostatniego odkrytego) byłaby wykonana procedura, która jest w moim makrze i odbywa się po zamknięciu kopiowanego pliku. Poniżej przykładowy kod dla pierwszego pliku kopiowanego do arkusza "I L".

Nie analizowałem całości makra, ale nawiązując do tematu związanego z sortowaniem przy FileDialog.AllowMultiSelect=True, wyglądałoby to tak:
Gdzie do 'wkb2' przypisywane są kolejne wybrane pliki (elementy kolekcji).

Stworzyłem coś takiego, ale nie mogę sprawdzić, bo gdzie jest błąd i pokazuje się komunikat Block If without End If, ale nie potrafię znaleźć tego błędu.

Nie zamknąłeś bloku 'With fd'. Dodaj na końcu 'End With' (lub tam, gdzie uważasz że powinien być zamknięty).

P.S. Sam byś na to wpadł piorunem, gdybyś stosował wcięcia

To też, ale brakowało też zamknięcia If. Pokazuje mi jednak błąd 438 i podświetla mi linijki kodu:

Zobacz z wcięciami

Oznaczyłem komentarzami dlaczego 'with fd-end with' tak, a nie inaczej
wyszło dodatkowo:
-otwarty blok if Show = -1 (zbędne w tej postaci)
-wyłączone odświeżanie (brak linii z przełącznikiem = True)

Bloków nie można przeplatać. Jeśli otwierasz w jakiejś kolejności, zamykasz w odwrotnej, Np

With Sheets(1): For i = 1 To 2: Do
coś sie tu dzieje
Loop: Next: End With

Dzięki. Niestety podświetla mi błąd w tych linijkach, o których napisałem powyżej. Chyba coś żle zdefiniowałem. Chodziło o to, aby przed pętlą wyczyściło wszystkie arkusze od I L do IXL i zdjęło ewentualny filtr

Zmienna 'tblArkusze' jest tablicą przecież. Musisz w pętli

Teraz pokazuje mi błąd w tej linijce Odrzuciłem na razie sprawę formuł i sprawdzania poprawności. Teraz to makro wygląda j.n.
Jednak pokazuje mi błąd w linijce wymienionej powyżej.Wiem, że coś jest źle, ale nie potrafię znaleźć błędu. Makro powinno kolejno odkrywać arkusze od "I L" do "IX L"i wklejać do nich kolumny A:N z otwieranych plików.

Witam


Masz błąd bo musisz określić którego skoroszytu to dotyczy

clubs napisał:

Witam


Masz błąd bo musisz określić którego skoroszytu to dotyczy

Kod: VB.net

Zaloguj się, aby zobaczyć kod

Dzięki. Rzeczywiście to pomogło. Dodatkowo okazało się, że musi być > Zauważyłem natomiast, że makro nie kopiuje z plików, w których jest ustawiony widok podziału stron. Jak jest ustawiony normalny widok to kopiuje. Jak można zrobić, aby przed koiowaniem makro sprawdziło jaki jest ustawiony widok i ustawiało na widok normalny przed kopiowaniem

Dodano po 1 [godziny] 50 [minuty]:

Wszystko jednak ok. To coś komputer wywinął figiel. Dzięki wszystkim. Zamykam temat. Sprawa rozwiązana