1
view-button 34
Excel kitablarını fayllara ayırmaq

Yazı haqqında xəbər ver

Əgər yazıda qeyri etik və ya təhqir xarakerli sözlər varsa bizə xəbər verməyiniz rica olunur.

Excel kitablarını fayllara ayırmaq

elvinhuseynov

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.

Elvin Huseynov

CodeX layihəsinin təsisçisi. PM

Rəylər

0 comments
Rəy yazan olmayıb
Rəy yazmaq üçün lütfən sayta Telegram hesabınızla daxil olun