excel中如何通过VBA打开word文件和ppt文件?

excel中如何通过VBA打开word文件和ppt文件?,第1张

一、打开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演示时全屏

打开文件如下:

Workbooks.Open ("C:\对账单\对帐单.xlsx")

这里你可以把“C:\对账单\”换成你的绝对路径,

你可以用:a = ThisWorkbook.Path

a = ThisWorkbook.Path

Workbooks.Open ("" &a &"&" \ "&对帐单.xlsx")

来获取你当前表的绝对路径,然后再打开,因为不知行友道你的具体情况,如果有问题可以hai我

如果当前文件夹下还有A文件夹可以用代码:

Workbooks.Open ("" &液敬 a &"&" \ A\"&b.xlsx")

Microsoft Excel是Microsoft为使用Windows和Apple Macintosh *** 作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图档埋槐表工具,再加上成功的市场营销,使Excel成为最流行的个人计算机数据处理软件。在1993年,作为Microsoft Office的组件发布了5.0版之后,Excel就开始成为所适用 *** 作平台上的电子制表软件的霸主。


欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/tougao/12231615.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-22
下一篇 2023-05-22

发表评论

登录后才能评论

评论列表(0条)

保存