setScience("PerformanceRights")

f.in <- ingest.p("AJEDI", "22Jul2016_201501_1023.csv")
DT <- fread(f.in)

if (all(is.na(DT$V1)))
  DT[, V1 := NULL]

N <- 200000
its <- ceiling(nrow(DT) / N)
for (i in seq.int(its)) {

  inds <- seq.int(N) + ((i-1) * N)
  inds <- inds[inds <= nrow(DT)]

  nm.pt <- sprintf("pt_%02i_of_%02i", i, its)
  f.out <- paste0("AJEDI_pt_", i, "_of_", its) %>% out.p(ext="xlsx")
  exportXLS.usingXLConnect(f.out=f.out, DT=as.list(setNames(nm=nm.pt, obj=list(DT[inds]))))
}