ΠΑΤΗΣΤΕ ΓΙΑ ΝΑ ΔΕΙΤΕ ΤΟ ΜΕΝΟΥ
Ακολουθήστε μας στο Facebook!
Generic selectors
Ακριβή αποτελέσματα
Αναζήτηση στους τίτλους
Αναζήτηση στο περιεχόμενο
Αναζήτηση σε άρθρα
Αναζήτηση σε σελίδες
Φίλτρο ανά κατηγορία
Css
Editor's Blog
jQuery
Linux
Microsoft Excel
Microsoft SQL
MySQL
PHP
Prestashop
Projects
Software
VB.net
Wordpress
Διαδίκτυο
Τεχνολογία

Πως σπάμε ένα μεγάλο αρχείο Excel με πολλές γραμμές σε πολλά αρχεία

Περνάμε στις μακροεντολές VB και την τρέχουμε.

Sub DigiSpot()
  Dim wb As Workbook
  Dim ThisSheet As Worksheet
  Dim NumOfColumns As Integer
  Dim RangeToCopy As Range
  Dim WorkbookCounter As Integer
  Dim RowsInFile
  Dim Prefix As String

  Application.ScreenUpdating = False

  'Initialize data
  Set ThisSheet = ThisWorkbook.ActiveSheet
  NumOfColumns = ThisSheet.UsedRange.Columns.Count
  WorkbookCounter = 1
  RowsInFile = 100                   'Κάθε πόσες γραμμές θέλουμε να σπάσει το excel
  Prefix = "DigiSpot"                    'Όνομα αρχείου

  For p = 1 To ThisSheet.UsedRange.Rows.Count Step RowsInFile
    Set wb = Workbooks.Add

    Set RangeToCopy = ThisSheet.Range(ThisSheet.Cells(p, 1), ThisSheet.Cells(p + RowsInFile - 1, NumOfColumns))
    RangeToCopy.Copy wb.Sheets(1).Range("A1")

    wb.SaveAs ThisWorkbook.Path & "\" & Prefix & "_" & WorkbookCounter
    wb.Close

    WorkbookCounter = WorkbookCounter + 1
  Next p

  Application.ScreenUpdating = True
  Set wb = Nothing
End Sub

Advertisement

Θεόδωρος Τασσόπουλος
Αρθρογράφος: Θεόδωρος Τασσόπουλος
Ηλεκτρονικός Μηχανικός - MSc in Networking & Data Communications - Ασχολούμαι με το Web Design και τον προγραμματισμό από τις αρχές του 2000. Δεν δίνω ούτε μια δεκάρα για προϊόντα της apple και καταναλώνω αρκετές ώρες καθημερινά στο gaming. Ξεκινάω συνεχώς νέα project χωρίς να υπάρχει τις περισσότερες φορές η προοπτική του κέρδους. Μισώ του δημοσιογράφους. Όλους. Έναν προς έναν.