Dim jbxx As DataTable = DataTables("基本信息")
Dim wfcl As DataTable = DataTables("违法及处理情况")
Dim Book As New XLS.Book(ProjectPath & "Attachments\测试.xlsx")
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
For i As Integer = 0 To jbxx.DataRows.Count - 1
此主题相关图片如下:未声明名称.png

Sheet(i + 2, 9).Value = wfcl.GetComboListString("违法事实",案件编号 = jbxx.DataRows(i)("案件编号"))
Next
Book.Save("c:\reports\test.xlsx") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = "c:\reports\test.xlsx"
Proc.Start()