如题
代码如下
Dim dt As Table = Tables("分配表")
Dim Book As New XLS.Book("e:\我的文档\工作表\配货单.xls") '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets("分货表")
Dim r As Integer = 4
For Each cc As Row In dt.rows
If cc.Isnull("合计") = False And cc("店铺") <> "到货明细" And cc("店铺") <> "订单明细" Then
r = r + 1
Output.Show(r)
For c As Integer = 1 To 22
If cc(c) = Nothing Then
Sheet(r, c - 1).Value = ""
Else
Sheet(r, c - 1).Value = cc(c)
End If
Next
End If
Next
Book.Save("e:\我的文档\工作表\配货单.xls")
Dim Proc As New Process
Proc.File = "e:\我的文档\工作表\配货单.xls"
Proc.Start()
[此贴子已经被作者于2013-4-6 16:02:02编辑过]