主题：[求助]如何用代码实现写入excel报表数据？

下面代码供你参考

Select Case e.Book.TempLate
    Case "铝箔未完成合同清单模版"
        If e.DataRow IsNot Nothing AndAlso e.Region = "订单" Then
            Dim Arys As List(Of String()) = DataTables("铝箔退火炉").GetUniqueValues("合同序号 = '" & e.DataRow("合同序号") & "'", "炉号","出炉时间","进炉量")
            Dim S As String
            For Each Ary As String() In Arys
                S = S & Ary(0) & " | " & Ary(1) & " | " & Ary(2) & "          "
            Next
            e.Book.Marks("进炉明细") = S
        End If
End Select