老师,我想实现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