以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  MergeCell 合并单元格无效  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158164)
--  作者：tld
--  发布时间：2020/11/10 10:42:00
--  MergeCell 合并单元格无效

老师，我在命令窗口执行下面的代码，没有合并单元格。怎么回事呢？谢谢指点！

Dim Book As New XLS.Book("e:\\测试20201110.xlsx")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Proc As New Process 
Proc.File = ("e:\\测试20201110.xlsx")
Proc.Start() 
Sheet.MergeCell(8,18,3,1)
output.show(sheet(8,0).value)

而 sheet(8,0).value  可以正常返回数据。
--  作者：有点蓝
--  发布时间：2020/11/10 10:45:00
--  

Dim Book As New XLS.Book("e:\\测试20201110.xlsx")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet.MergeCell(8,18,3,1)
output.show(sheet(8,0).value)
Book.save("e:\\测试20201110.xlsx")
Dim Proc As New Process 
Proc.File = ("e:\\测试20201110.xlsx")
Proc.Start() 
--  作者：tld
--  发布时间：2020/11/10 11:26:00
--  
老师，上面的代码对于没有打开的Excel文档可以实现合并，如果已经打开，弹窗对话框必须关闭。能不能实现不用关闭打开的文档，对打开的Excel文档实现合并呢？谢谢！！！
--  作者：有点蓝
--  发布时间：2020/11/10 11:28:00
--  
不能
--  作者：tld
--  发布时间：2020/11/10 11:29:00
--  
老师，book中，如何用代码关闭打开的Excel？如果可以关闭，我可以先用代码关闭，然后再执行上面的代码。
[此贴子已经被作者于2020/11/10 11:35:16编辑过]
--  作者：有点蓝
--  发布时间：2020/11/10 11:43:00
--  
要这样：http://www.foxtable.com/webhelp/topics/2713.htm
--  作者：tld
--  发布时间：2020/11/10 13:30:00
--  
老师，我执行下面的代码，Excel关闭不了 
。。。。。。。。。。。。。

    Book.Build()
    Dim path As String = (ProjectPath & "明细单\\" & name_fk & st &  ".xlsx")
    Book.Save(path)
    Dim Proc As New Process
    Proc.File = path
    Proc.Start()

msgbox(path)
ShowAppWindow(path, 5)

 请老师 指点  。谢谢！
--  作者：有点蓝
--  发布时间：2020/11/10 13:39:00
--  
请先仔细看帮助

语法：

ShowAppWindow(Caption, State)

  • Caption
    字符型，查找窗口标题包括的字符。
ShowAppWindow("订单.xls",2)