Tworzenie kopi skoroszytu i nadanie nazw tworzonych kopi według podanej listy
otwarty rozpoczął: FUTek
postów: 4
napisał: Trebor postów: 1209
umieszczony: 7 lipca 2012 09:08
Popraw ścieżkę do miejsca docelowego:
Sub kopie() Dim i AsInteger With Sheets("Index") For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
ThisWorkbook.SaveCopyAs "C:\TEMP\" & .Cells(i, 1) Next i EndWith EndSub
Wygląda na to ze coś źle zrobiłem. załączam skoroszyt z moja próba.
napisał: Trebor postów: 1209
umieszczony: 6 lipca 2012 17:24
edytowany: 6 lipca 2012 17:25
Nie jest to trudne zadanie ponieważ może zamykać się w kilku linijkach np.
Sub kopie() Dim i AsInteger With Sheets("Index") For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & .Cells(i, 1) Next i EndWith EndSub
Jednak w komórkach z nazwami powinno być już prawidłowe rozszerzenie nazwy. Nazwa pliku nie może zawierać znaków, które będą powodowały błędy. Oczywiście te rzeczy może wykonywać makro, jednak to trochę skomplikuje kod.
napisał: FUTek postów: 18
umieszczony: 5 lipca 2012 20:37
Witam.
Mam skoroszyt który musze powielić w X ilości.
Jak zrobić by nadać nazwę tworzonych kopi według listy znajdującej się w arkuszu "Index" aktywnego skoroszytu? Lista nazw lezy w kolumnie "A" i zaczyna się od 2 wiersza "A2".
Ilość kopi równa jest ilości wierszy proponowanych nazw znajdujących się w arkuszu Index
wstecz 1 dalej
otwarty rozpoczął: FUTek
postów: 4
MassCopy.rar