以下内容为程序代码:
Dim dr As Row = Tables("运费明细表").Current
Dim pth As String = ProjectPath & "Reports\凯达运输队\"
If FileSys.DirectoryExists(pth) = False Then
FileSys.CreateDirectory(pth)
End If
Dim nb As String = dr("结算单编号")
Dim allshet As String = pth & "00-凯达运输队总表.xls"
Dim bok As New XLS.Book()
If FileSys.FileExists(allshet) = False Then
Bok.Save(allshet)
End If
'=========================
Dim b1 As DataTable = DataTables("运费明细表")
Dim nm As List (of String) = b1.GetValues("结算单编号","结算单编号 is not null")
For i As Integer = 0 To nm.Count - 1
Dim Book As New XLS.Book(ProjectPath & "Attachments\G215-运费-凯达运输队-明细表-模板.xls") '打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet.Name = "KD" & nm(i) Sheet(4,22).Value = "<结算单编号 = '" & nm(i) & "'>"
Book.Build()
Book.Save(ProjectPath & "Reports\凯达运输队\" & nm(i) &".xls")
Dim Book1 As New XLS.Book(ProjectPath & "Reports\凯达运输队\" & nm(i) &".xls")
Dim pSheet = Book1.Sheets(0)
Dim Book2 As New XLS.Book(ProjectPath & "Reports\凯达运输队\00-凯达运输队总表.xls")
Book1.Sheets.Remove(pSheet)
Book2.Sheets.Add(pSheet)
Book2.Save(ProjectPath & "Reports\凯达运输队\00-凯达运输队总表.xls")
Next
代码已经大体完成了,老师麻烦指导,也可以给入门的朋友一个参考……
现在余下一个问题就是:
Sheet.Name = "KD" & nm(i)
这一句,为什么不可以直接使用
nm(i)
做名称?前边不加字符串就报错
[此贴子已经被作者于2018/12/27 16:02:08编辑过]