大侠：是多个excel文件里面的sheet合并,不是一个excel里面的多个sheet合并。多个excel文件，根据下面代码生成。
Dim dt As Table = Tables("表A")
If MessageBox.show("即将输出.继续吗?","请确认!",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then
Dim zzbhs As List(Of String)
zzbhs = DataTables("表A").GetValues("组织编号")
For Each zzbh As String In zzbhs
dt.Filter="[组织编号]='" & zzbh & "' and [发货]='Y'"
If dt.Rows.Count>0
Dim Book As New XLS.Book(ProjectPath & "Attachments\发货标签.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build()
Sheet = Book.Sheets(0)
Dim fs As String
fs=ProjectPath & "Reports\" & zzbh & "标签.xls"
Book.Save(fs)
Dim Proc As New Process
Proc.File = fs
Proc.Start()
Else
dt.Filter =""
End If
Next
MessageBox.Show("标签已输出!")
End If
加好友 
发短信
Post By：2018/11/8 17:13:00 [只看该作者]
