主题：求老师帮忙了！

For r As Integer = sheet.Rows.Count To dt.Rows.Count+sheet.Rows.Count - 1 '填入数据

    For c As Integer = 0 To dt.Cols.Count -1

messagebox.show(r)

messagebox.show(sheet.Rows.Count)

        Sheet(r +1, c).Value = dt.rows(r-sheet.Rows.Count)(c)

    Next

    Dim St2 As XLS.Style = Book.NewStyle

    St2.Format = "yyyy-MM-dd"

    Sheet.Cols(dt.Cols("结束时间").Index).Style = st2

Next

这样的话：也只显示2个5   

 Sheet(r +1, c).Value = dt.rows(r-sheet.Rows.Count)(c)这里过不去