| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 158 人关注过本帖
标题:请求解决用VFP代码在excel中使用ExecuteExcel4Macro方法出错的问题
只看楼主 加入收藏
yangmz
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2013-4-2
结帖率:57.14%
  已结贴   问题点数:20  回复次数:4   
请求解决用VFP代码在excel中使用ExecuteExcel4Macro方法出错的问题
我想隐藏excel2010的所有界面,只保留表格,百度了一下,以下这句在excel2010的VBA中可以实现,
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"

我改为VFP代码,均运行出错,请高手帮忙改一下代码。下面这句虽然没有出错,但没有产生效果
excelobj = Createobject("Excel.Application")

代码:
WITH excelobj
    .Visible =.T.
    .WORKBOOKS.add
    .ExecuteExcel4Macro('"SHOW.TOOLBAR(""Ribbon"",.f.)"')    &&没反应,没效果
endwith
2019-03-13 11:31
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:179
帖 子:7526
专家分:18142
注 册:2012-2-5
  得分:10 
VFP 控制 EXCEL2003 之 003、真正的全屏显示数据
https://blog.bccn.net/sdta/65830
是否有帮助

坚守VFP最后的阵地
2019-03-13 11:59
yangmz
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2013-4-2
  得分:0 
这个可能对2003有用,经测试,在2010中没有用。
2019-03-13 12:39
antony521
Rank: 3Rank: 3
等 级:论坛游侠
威 望:1
帖 子:145
专家分:116
注 册:2009-8-20
  得分:10 
EXCEL2016有用.改一下就能看到效果了.
oExcel=Createobject("Excel.Application")
With oExcel
    .WorkBooks.Add
    .DisplayFullScreen = .T.
    .CommandBars(1).Enabled = .F.
    .CommandBars("Full Screen").Controls(1).Onaction = "RestoreWindow"
    With .ActiveWindow
        .DisplayHeadings = .F.
        .DisplayHorizontalScrollBar = .F.
        .DisplayVerticalScrollBar = .F.
        .DisplayWorkbookTabs = .F.
    Endwith
    .Visible = .T.
Endwith
2019-03-13 13:09
yangmz
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2013-4-2
  得分:0 
有用,但是,一按“ESC”键就恢复原形了。
我试着去除这句后    .CommandBars("Full Screen").Controls(1).Onaction = "RestoreWindow"
还是一按“ESC”键就恢复原形了。

希望EXCEL一直能保持这种“干净”的状态,或者能在下次打开EXCEL时再恢复原形也行。
2019-03-13 13:24







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.041954 second(s), 8 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved