Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek dla www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

VBA Excel - Kopiowanie arkuszy do nowo utworzonego pliku

17 Lip 2013 21:37 4077 7
  • Poziom 10  
    Witam Wszystkich;

    Za pomocą komendy Workbooks.Add tworzę nowy plik, chcę skopiować wszystkie arkusze z poprzedniego do nowo utworzonego. Próbuję zrobić to tak:
    Kod: vb
    Zaloguj się, aby zobaczyć kod

    Wykrzacza się w ostatniej linijce kiedy wskazuje "newName" jako workbook do którego mają być skopiowane arkusze.
    Jak wpiszę z ręki "nazwa_pliku.xls" to makro działa.

    Proszę o pomoc.
    Pozdrawiam Piotr
  • Pomocny post
    Moderator Programowanie
    Zdaje się, że przypisujesz źle do newName. Nazwa różni się od newPath, pod którą zapisujesz plik. Sprawdź krokowo.

    Nie będzie prościej zapisać plik (me.SaveAs) z inną nazwą? Zawartość ma być przecież identyczna.

    P.S. Kod umieszczaj w znacznikach syntax. Post poprawiłem [mod].
  • Poziom 10  
    adamas_nt dzięki za pomoc, faktycznie znalazłem prostszy sposób na osiągnięcie celu:

    Kod: vb
    Zaloguj się, aby zobaczyć kod


    Pozdrawiam :)
  • Poziom 4  
    Proszę Was o poradę dot. wstawiania/kopiowania arkusza na koniec istniejących arkuszy w skoroszycie bez względu na ilość arkuszy.

    Sheets("C").Copy After:=Workbooks("A").Sheets(11)
  • Poziom 22  
    Może tak: Sheets("C").Copy After:=Workbooks("A").Sheets(sheets.count-1)
  • Poziom 4  
    Ten zapis sprawia, że arkusz pojawia się przed innymi arkuszami na początku.
  • Poziom 33  
    Kod: vbscript
    Zaloguj się, aby zobaczyć kod
  • Poziom 4  
    Dziękuję "clubs".
    Ten kod się sprawdza. Kopiowany arkusz wstawia się zawsze na końcu, niezależnie od ilości obecnych arkuszy.