专家坐堂-合报EXCEL关联表列Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  合报EXCEL关联表列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=163047)

--  作者：hopestarxia
--  发布时间：2021/4/21 23:44:00
--  合报EXCEL关联表列

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

--  作者：有点蓝
--  发布时间：2021/4/22 9:41:00
--

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
……

--  作者：hopestarxia
--  发布时间：2021/4/23 7:49:00
--
谢谢老师！