Excel kitablarını fayllara ayırmaq

Bu gün mənə 80 kitabı olan bir Excel faylını təcili ayrıca fayllara ayırmaq lazım idi. Bunu bir-bir etmək üçün saatlarımı ala bilərdi. Yaxşıki Excel-də VBA skript işlətmək mümkündür.

Addım 1: İlk öncə ayırmaq istədiyimi Excel faylını açıb ALT + F11 düymələrini sıxırıq.

Addım 2: Açılacaq Microsoft Visual Basic for Applications pəncərəsində Insert > Module kimi keçirik.

Addım 3: Açılmış mətn redaktoruna aşağıdakı kodu kopyalıyıb yapışdırın və F5 düyməsini sıxın. Əsas faylın yanında yeni faylların excel kitabının adına uyğun olaraq yaranacaqdır.

Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
    Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Xüsusi qeyd: Diqqət edin ki Excel kitablarının adı latın hərfləri ilə olsun. Diqər şriftlərdə xəta çıxma ehtimalı vardır.