Foxtable(狐表)用户栏目专家坐堂 → MergeCell 合并单元格无效


  共有3494人关注过本帖树形打印复制链接

主题:MergeCell 合并单元格无效

帅哥哟,离线,有人找我吗?
tld
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:739 积分:7694 威望:0 精华:0 注册:2017/2/3 10:29:00
MergeCell 合并单元格无效  发帖心情 Post By:2020/11/10 10:42:00 [显示全部帖子]


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

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  可以正常返回数据。

 回到顶部
帅哥哟,离线,有人找我吗?
tld
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:739 积分:7694 威望:0 精华:0 注册:2017/2/3 10:29:00
  发帖心情 Post By:2020/11/10 11:26:00 [显示全部帖子]

老师,上面的代码对于没有打开的Excel文档可以实现合并,如果已经打开,弹窗对话框必须关闭。能不能实现不用关闭打开的文档,对打开的Excel文档实现合并呢?谢谢!!!

 回到顶部
帅哥哟,离线,有人找我吗?
tld
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:739 积分:7694 威望:0 精华:0 注册:2017/2/3 10:29:00
  发帖心情 Post By:2020/11/10 11:29:00 [显示全部帖子]

老师,book中,如何用代码关闭打开的Excel?如果可以关闭,我可以先用代码关闭,然后再执行上面的代码。
[此贴子已经被作者于2020/11/10 11:35:16编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
tld
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:739 积分:7694 威望:0 精华:0 注册:2017/2/3 10:29:00
  发帖心情 Post By: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)

 请老师 指点  。谢谢!



 回到顶部