在 Excel 中经常因为会需要利用到编程进行辅厅喊助统计,这个时候需要打开VBA,VBA在Excel的默认设置中是关闭的需要我们自行桥答打开,下面是由我分享的excel2010打开vba的 方法 ,希望对你有用。
excel2010打开vba的方法:
打开VBA步骤2:点击敏伏慧“选项”按钮
打开VBA步骤3:出现“excel选项”对话框
打开VBA步骤4:点击“自定义功能区”
打开VBA步骤5:在“开发工具”前面打上对号,点击确定完成设置。
打开VBA步骤6:在功能区选择,“开发工具”-“Visual Basic”
一、打开word文件代码:Set wo = CreateObject("Word.Application")\x0d\x0awo.Documents.Open ThisWorkbook.Path &"\流程.doc"\x0d\x0awo.Visible = True\x0d\x0a二、打开ppt文件代码:方法1:\x0d\x0aSet wo = CreateObject("Powerpoint.Application")\x0d\x0awo.Visible = True\x0d\x0awo.Presentations.Open ThisWorkbook.Path &filename方法2:Sub dd()Dim filepath$, filename$\x0d\x0afilepath = Chr(34) &ThisWorkbook.Path &filename &Chr(34)\x0d\x0aShell "POWERPNT.EXE " &filepathEnd Sub附:双击打搏袭裂开PPS文件,在演示完后退出PPS时并没有PowerPoint主窗口保留,但在Excel中使用VBA打开的PPS文件,在演示完PPS退出后,PowerPoint主窗口仍然打开。\x0d\x0a这基闭里使用一个循环判断演示窗口是否存在,加上错误捕捉程序来处理上面这个问题。\x0d\x0aPrivateSub CommandButton1_Click()\x0d\x0aDim wo AsObject Dim app AsObject\x0d\x0a' 创建PowerPoint应用实例\x0d\x0aSet app = CreateObject("Powerpoint.Application")\x0d\x0a' 使PowerPoint可见\x0d\x0aapp.Visible = True ' 打开PPS文件\x0d\x0aSet wo = app.Presentations.Open(ThisWorkbook.Path &"\a.pps")\x0d\x0a' 当PPS演示结束时,wo对象的SlideShowWindow不存在,捕捉禅册到错误\x0d\x0aOnErrorGoTo errHandle\x0d\x0a' PPS演示时全屏欢迎分享,转载请注明来源:内存溢出
评论列表(0条)