تقسیم سریع فایل های اکسل به فایل های 150 رکوردی

به کمک این نوشته به راحتی میتوانید فایل های اکسل را به فایل های با رکورد کمتر تبدیل نمایید

تقسیم سریع فایل‌های اکسل به فایل‌های 150 رکوردی

فایل‌های اکسل یکی از پرکاربردترین ابزارها برای مدیریت داده‌ها و اطلاعات در محیط‌های کاری و شخصی هستند. گاهی ممکن است نیاز داشته باشید یک فایل اکسل بزرگ را به فایل‌های کوچک‌تر تقسیم کنید تا مدیریت یا ارسال آن‌ها آسان‌تر شود. در این مقاله، راهکارهایی ساده و عملی برای تقسیم فایل‌های اکسل به فایل‌های 150 رکوردی ارائه می‌دهیم. این راهنما مناسب افرادی است که به دنبال روش‌های سریع و کارآمد برای این کار هستند.

سامانه استعلامات شبانیک

📞 شماره تماس پشتیبانی شبانیک: ۰۹۱۵۶۰۱۲۶۷۹ 

چرا فایل‌های اکسل را به فایل‌های کوچک‌تر تقسیم کنیم؟

تقسیم فایل‌های اکسل به فایل‌های کوچک‌تر می‌تواند مزایای زیادی داشته باشد:

1. ارسال آسان‌تر: ارسال فایل‌های کوچک‌تر از طریق ایمیل یا پیام‌رسان‌ها راحت‌تر است.

2. بهبود سرعت پردازش: نرم‌افزارهای پردازش داده معمولاً با فایل‌های کوچک‌تر سریع‌تر کار می‌کنند.

3. مدیریت بهتر: دسته‌بندی داده‌ها در فایل‌های کوچک‌تر، مدیریت و تحلیل اطلاعات را ساده‌تر می‌کند.

4. رفع محدودیت‌ها: برخی ابزارها یا سیستم‌ها ممکن است محدودیت در تعداد رکوردها یا حجم فایل داشته باشند.

سامانه استعلامات شبانیک

📞 شماره تماس پشتیبانی شبانیک: ۰۹۱۵۶۰۱۲۶۷۹ 

1. لطفا فایل اکسلی را که میخواهید در سامانه آپلود نمایید را باز کنید.
2. کلید های Alt + F11  را در محیط اکسل فشار دهید تا محیط توشعه VB (عکس زیر) باز شود.
3. کد موجود در کادر زیر را کپی نمایید و در محیط توسعه paste نمایید.
4. برروی گزینه Run Macro (مثلث سبز رنگ) کلیک نمایید.
5. در مسیری که فایل اکسل شما قرار دارد فایل های با تعداد 150 رکورد ایجاد خواهد شد.

Sub SplitDataIntoNewFiles()
    Dim ws As Worksheet
    Dim rng As Range
    Dim startRow As Long
    Dim endRow As Long
    Dim batchSize As Long
    Dim fileCount As Integer
    Dim newWorkbook As Workbook
    Dim savePath As String
    Set ws = ThisWorkbook.Sheets(1)
    batchSize = 150
    startRow = 2
    fileCount = 1
    savePath = ThisWorkbook.Path
    If Right(savePath, 1) <> "\" Then savePath = savePath & "\"
    endRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    Do While startRow <= endRow
        Set newWorkbook = Workbooks.Add
        With newWorkbook.Sheets(1)
            ws.Rows(1).Copy Destination:=.Rows(1)
            ws.Rows(startRow & ":" & Application.Min(startRow + batchSize - 1, endRow)).Copy Destination:=.Rows(2)
        End With
        newWorkbook.SaveAs Filename:=savePath & "Batch_" & fileCount & ".xlsx", FileFormat:=xlOpenXMLWorkbook
        newWorkbook.Close SaveChanges:=False
        startRow = startRow + batchSize
        fileCount = fileCount + 1
    Loop
    
    MsgBox "Success All Records To New Files", vbInformation
End Sub