以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教导出EXCEL报表同列合并代码如何写？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121086)
--  作者：wakai
--  发布时间：2018/6/29 0:13:00
--  请教导出EXCEL报表同列合并代码如何写？
table窗体代码合并代码会写
With Tables("包材检验报告编辑_检验明细")
    .MergeMode = MergeModeEnum.Standard \'标准合并模式
    .MergeCols.Clear() \'清除原来的合并列
    .MergeCols.Add("检验项目") \'加入要合并的列
    .MergeCols.Add("类别")


    .MergeSort = "类别,检验项目" \'设置合并模式下的排序方式
    .AllowMerge = True \'启用合并模式
End With

希望导出EXCEL文件后也是同列合并单元格的，请教老师怎么写呢
Dim Book As New XLS.Book(ProjectPath & "templets\\包材检验报告.xls")
Dim r As Row = Forms("包材检验").controls("包材检验表").Table.Current
Dim fl As String = "\\\\192.168.1.18\\$fill$\\PG\\BCJianNianDan\\" & r("检验编号")& r("供应商").replace("*","X")  & "检验报告.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
--  作者：有点甜
--  发布时间：2018/6/29 8:56:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/1530.htm

 

写代码的话，加上属性，如

 

book.MergeFree = true \'自由合并
--  作者：湛江智
--  发布时间：2018/10/24 16:38:00
--  回复：（有点甜）参考?http://www.foxtable....
 可以了，谢谢


[此贴子已经被作者于2018/10/24 16:38:45编辑过]