List export to Excel

Question

I want to export a nested list to Excel. However when I try to do that every column in my list gets exported to a different sheet. I used {} already in the Export statement to combine all colums and have them on one excel sheet. However then my format gets messed up.

When I use Flatten to remove the extra brackets the dates and vales are shown correctly but all data is in one column.

What I would like it to look like is:

How can I fix this?

My input is:

Thanks!

Answer 1

I'm sure that's not the most efficient way, but to get you started...

First I simulate your data:

data = {{{{2016, 4, 1}, 100}, {{2016, 4, 4}, 200}}, {{{2016, 4, 1}, 
     300}, {{2016, 4, 5}, 400}}};
data // MatrixForm

Then after proper flattening etc:

exp = Flatten[{DateObject@#[[1]], #[[2]]} & /@ #] & /@ Transpose@data
(* {{DateObject[{2016, 4, 1}], 100, DateObject[{2016, 4, 1}], 
  300}, {DateObject[{2016, 4, 4}], 200, DateObject[{2016, 4, 5}], 
  400}} *)
Export["somefile.xlsx", exp]

or you can use Apply instead of one Map

exp = Flatten /@ Apply[{DateObject@#1, #2} &, Transpose@data, {2}]