-
本版专家分：3444结帖率 94.44%
-
- 签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
-
-
问题1、在Execl2013中，使用Application.Visible = False是隐藏Execl程序，当前打开的其它Execl文档也不可见。
如何只隐藏当前的工作薄，不影响其它的工作薄？
问题2、Execl2013不同的工作薄不在一个窗口内，点击右上角的“x”就会关闭当前的工作薄。如果在点“x”后不想直接关闭工作薄，而是把当前工作薄隐藏，怎么做？
-
本版专家分：40 -
楼主你好，关于两个问题，请试试我的方法
1. 因为Application指代的是Excel本体，所以如果把它的Visible改成False，就会造成Excel被隐藏，所有的文档也都会看不到，所以咱们如果要隐藏一个Workbook，只能对ActiveWindow这个Object进行隐藏，语句是ActiveWindow.Visible = False
2.要实现这点就需要知道点击那个X之后，Excel做了什么，当用户点击后，Excel会出发一个Before Close时间。因为这个动作是Excel自己提供的，咱们要想干预它的动作，就需要在想要隐藏的Workbook的ThisWorkbook的Object中，写入一个过程
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
ActiveWindow.Visible = False
End Sub
首先要讲关闭的动作取消掉，所以Cancel = True，其次，将点击的那个窗口隐藏掉。
如果疑问，请继续发帖。
- jacob Hiding the application window is not allowed
设置隐试打开PPT报错 Hiding the application window is not allowed
- delphi excelApplication示例
ExcelApplication1.Visible[0]:=True; ExcelApplication1.Caption:='Excel Application'; ExcelApplication1.Workbooks.Add(Null,0); ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]); ...
- ppt_to_pdf.py
大量ppt转换pdf自动脚本 def init_powerpoint(): powerpoint = comtypes.client.CreateObject("Powerpoint.Application") powerpoint.Visible = 1 return powerpoint
- Delphi Word.Application将Word文档转换为txt格式.rar
MSWord := CreateOLEObject('Word.Application'); MSWord.Documents.Open (f,false); MSWord.Visible := 0; pp := MSWord.activedocument; pp.saveas('C:\pp1.txt', wdFormatDOSText); MSWord.quit;
- 自动生成VBA窗体菜单
.Visible = True End With If MenuCount = 1 Then MenuLeft = DISTANCE Else With .Controls("BackMenu_Caption" & MenuCount - 1) MenuLeft = .Left + .Width End With End If MenuWidth = BackMenu_...
- pb快速导出excel
测试过 7W多条100列只要不到5S excelserver.Workbooks.Open(ls_path)//打开 //ExcelServer.ActiveSheet.rows(2).insert //显示数据库列名时启用 ll_colnum = long(dw_1...excelserver.Application.Visible = TRUE NEXT
- vb操作word2003的例子
Wordapp.Visible = True '可见 'Wordapp.ScreenUpdating =False '屏幕刷新 Dim WordD As Word.Document '定义word类 Set WordD = Wordapp.Documents.Add '新建文档 ‘Set WordD = Wordapp.Documents.open...
- Delphi 将Excel表存入到html中的源码.rar
ExApph.visible := True; ExApph.WorkBooks.Open(Edit1.Text); ExApph.ActiveWorkbook.SaveAs(Extractfilepath(Application.ExeName) 'mm.htm',xlHtml); ExApph.quit; ExApph := unassigned; end else...
- VFP操作EXCEL
myexcel=createobject('excel.application') &&创建一个对象 myexcel.visible=.t.&&可见 &&bookexcel=myexcel.workbooks.add bookexcel=myexcel.workbooks.open("C:\Documents and Settings\Administrator\桌面\学习...
- Delphi7 向Excel文件中插入多种图表.rar
Excel.Visible := true; ChartObject := WorkSheet.ChartObjects.Add(100, 100, 400, 300); ChartObject.Chart.ChartType :=temp; ChartObject.Chart.SetSourceData(WorkSheet.Range['A1:E5']); end
- winfrom Microsoft.Office.Interop.Word.dll 打印
object visible = Type.Missing; object openRepair = Type.Missing; object docDirection = Type.Missing; object notEncoding = Type.Missing; object xmlTransform = Type.Missing; object missing = ...
- Delphi 生成Excel表的简单实现.rar
Delphi 生成Excel表的简单实现，貌似类似的源码有很多，这个觉得过于简单了，调用的是Excel.Application，需要生成一个新的CreateOleObject对象，下面来看看代码： begin ExcelID:=CreateOleObject('Excel....
- DataGridView转Excel
excel.Visible = false; //新增加一个工作簿，Workbook是直接保存，不会弹出保存对话框，加上Application会弹出保存对话框，值为false会报错 excel.Application.Workbooks.Add(true); //生成Excel中列头名称 ...
- Delphi 打开Excel表的方法演示.rar
Delphi 打开已有的Excel表，本例子可学习Delphi中的CreateOleObject对象中的Excel.Application的使用方法，用此方法可对Excel文件进行简单的操作，代码初始化如下： begin try if f<>'' then begin ...
- Delphi 打开已有的word文档.rar
Delphi 打开已有的word文档，如果你的电脑上安装有Word，则会通过Word打开用户选择的文档。... MSWord := CreateOLEObject('Word.Application'); MSWord.Documents.Open (f,false); MSWord.Visible := 1; end;
- Delphi 创建Word文档 不使用三方控件.rar
这个Delphi源码主要实现创建一个Word文档，且不使用任何的第三方控件，运行效果截图所示。... word := createoleobject('word.application');//ComObj单元 word.visible := True; word.documents.add; end;
- PB透明文本的实现 statictext
2、 建立一个应用（application），取名为：transparent_st。 3、 建立一个可视用户对象，uo_transparent_st，类型为statictext，定义下列变量： boolean ib_painting 4、 编写uo_transparent_st的Constructor事件...
- VB6.0 将数据库数据传给Word.rar
Set wdapp = CreateObject("Word.Application") '在word中添加一个新文档 Set wddoc = wdapp.Documents.Add With wdapp .Visible = True .Activate '在word中增加一个表格 Set atable = ....
- VBS连接EXCEL及其操作
oExcel = CreateObject( "Excel.Application" ) 1) 显示当前窗口： oExcel.Visible = True 2) 更改 Excel 标题栏： oExcel.Caption = "应用程序调用 Microsoft Excel" 3) 添加新工作簿： oExcel.WorkBooks.Add 4) ...
- PB操作Excel
ll_rc = lo_excelapp.connecttonewobject("Excel.Application") if ll_rc <> 0 then destroy(lo_excelapp) return end if 1) 显示当前窗口: ExcelApp.Visible := True; 2) 更改 Excel 标题栏: ExcelApp.Caption...