Dim str2 As Integer
str2 = 100 (由于发的报错,这里简化了一下,实际这里是用SQL语句求出来项目数据行数)
Dim Book As New XLS.Book(ProjectPath & "Attachments\SHLB.xls")
Dim Sheet As XLS.Sheet = Book.Sheets("B22211") '引用工作簿的第一个工作表
Dim fl As String = ProjectPath & "Reports\SHLB.xls"
Book.Build(0)
Sheet.MergeCell(5,1,str2,1)
Book.Save(fl)
Dim App As New MSExcel.Application
……