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 
    * 取消全屏显示 *
    .DisplayFullScreen = .F.
    .CommandBars(1).Enabled = .T.
    .CommandBars("Full Screen").Reset
    WITH .ActiveWindow
        .DisplayHeadings = .T.
        .DisplayHorizontalScrollBar = .T.
        .DisplayVerticalScrollBar = .T.
        .DisplayWorkbookTabs = .T.
    ENDWITH 
    .Visible = .T.
ENDWITH 
网站地图xml地图