关于用VBA打开word文件的问题
雪儿
收藏于2020-01-21
转藏1次
|
关于用VBA打开word文件的问题 ━━━━━━━━━━━━━━━━━━━━━━━━━ 我用代码来打开word文件， Sub ADO_SQL() Dim wdApp As Object Set wdApp = CreateObject("word.application") wdApp.Documents.Open ("D:\EXCEL讲座\EXCEL资料库\ADO + SQL.doc") wdApp.Visible = True End Sub 这样调用打开word文件是没有问题的，但是如果同时同时打开了两个或两个以上的word文件，在关闭他们的时候就会报错，如下， ━━━━━━━━━━━━━━━━━━━━━━━━━ 使用两个Word程序进程之间共享模板会引起冲突。你可以使用下面的方法先获取当前Word程序进程，如果没有打开Word程序，则创建新的Word程序。 你买的那本VBA精粹中也有这样的例子的。Set wdApp = GetObject(, "word.application")这一句是获取当前Word程序的。 Sub ADO_SQL() Dim wdApp As Object Set wdApp = GetObject(, "word.application") If wdApp Is Nothing Then Set wdApp = CreateObject("word.application") wdApp.Visible = True End If wdApp.Documents.Open ("D:\EXCEL讲座\EXCEL资料库\ADO + SQL.doc") Set wdApp = Nothing End Sub ━━━━━━━━━━━━━━━━━━━━━━━━━ 我用 Shell "WINWORD.EXE " & ThisWorkbook.Path & "\XXX.doc" 這樣也行，不過不知道會不會有什麼缺點？ ━━━━━━━━━━━━━━━━━━━━━━━━━ |
特别重申：本篇文档资料为 “好网角收藏夹” 注册用户(收藏家)上传共享，仅供参考之用，请谨慎辨别，不代表本站任何观点。
好网角收藏夹为网友提供资料整理云存储服务，仅提供信息存储共享平台。
信息删除举报或发邮件到：dongye2016@qq.com
好网角收藏夹为网友提供资料整理云存储服务，仅提供信息存储共享平台。
信息删除举报或发邮件到：dongye2016@qq.com
类似文章
最新转藏文章
文档下载
下载连接中...
返回
TOP