Dim Style As XLS.Style = Book.NewStyle() '定义新样式Style.Format = "yyyy-m-d"
--------
sheet1(i+1,j).Style = style