老师，我想实现EXCEL模板的表数据列合，但是下面加粗的代码不管用，请老师指导应该怎么加。
Dim str2 As String
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)
Book.Save(fl)
Sheet.MergeCell(5,1,str2,1) （说明：其中str2是求出一共有多少行数据行，得出要合并的行数）
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("B22211")
App.Visible = True
ShowAppWindow("SHLB",2)
Ws.PrintPreview
App.Quit
加好友 
发短信
Post By：2021/4/21 23:44:00 [只看该作者]
