Dim St2 As XLS.Style = Book.NewStyleSt2.Format = "yyyy-MM-dd"Sheet.Cols(dt.Cols("日期").Index).Style = st2
建议多看帮助说明