Excel Kitabındaki Sayfaları Başka Kitaba Kopyalama

[gurkancuvitoglu1]

Merhaba,

İçinde 100 sayfa olan ve tüm sayfa yapıları, formülleri vs aynı olan bir excel kitabım var. Okuttuğum program java hatası veriyor GC, heap space gibi. Bu yüzden Bu kitabı 4 ayrı kitaba bölmek istiyorum. Forumda buna benzer bir kod buldum ama pek anlamadım. Kitabın adı 2.xslx. Sayfalar da 1, 1(2), 1(3), ... 1(100).

Yardımcı olursanız sevinirim.

İyi günler..

 

[alicimri]

Sayın gurkancuvitoglu
Eğer dosyanızdaki sayfa sayınız tam olarak 100 değilse kırmızı olan satırdaki say değerini ona göre değiştirin

Sub aa()
[COLOR="Red"]say = 100[/COLOR]
ad = 1
For i = 1 To say
If i Mod 25 = 1 Then
Sheets(i).Copy
Else
Workbooks(1).Sheets(i).Copy after:=Workbooks(2).Sheets(Sheets.Count)
End If
If i Mod 25 = 0 Or i = say Then
 Workbooks(2).SaveAs Filename:= _
        ThisWorkbook.Path & "\" & "Yeni" & ad & ".xls"
    Workbooks(2).Close
    ad = ad + 1
End If
Next
End Sub

 

[gurkancuvitoglu1]

alicimri çok teşekkür ederim. Emeğinize sağlık.