I have a master worksheet that I would like to split into individual files according to every nth row (say 50). Essentially, the first file would have the first 50 rows of data, the second file would have the second 50 rows of data, and so on. Also, I'd like the header row in the master worksheet to be the header row for each of the split files. (yikes!)
The VBA code pasted below accomplishes this in Excel (minus the recurring header row) but I would would much rather continue to use Calc in the process. Unfortunately, I don't know enough to either "translate" this code for use in OpenOffice or to create a new script from scratch. Any help would be greatly appreciated.
Thanks!
Code: Select all
Sub Macro1()
Dim rLastCell As Range
Dim rCells As Range
Dim strName As String
Dim lLoop As Long, lCopy As Long
Dim wbNew As Workbook
With ThisWorkbook.Sheets(1)
Set rLastCell = .Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious)
For lLoop = 1 To rLastCell.Row Step 50
lCopy = lCopy + 1
Set wbNew = Workbooks.Add
.Range(.Cells(lLoop, 1), .Cells(lLoop + 50, .Columns.Count)).EntireRow.Copy _
Destination:=wbNew.Sheets(1).Range("A1")
wbNew.Close SaveChanges:=True, Filename:="Reservations_" & lLoop + 49
Next lLoop
End With
End Sub