[Inventor] Inventor vba中判断excel是否打开

JUMU实名认证 发表于 2020-01-21 16:25 | 显示全部楼层 | 复制链接分享      上一主题  翻页  下一主题
  1. Public appWorld As Excel.Application
  2. Public wbWorld As Excel.Workbook'
  3. ' Public shtWorld As Excel.Worksheet

  4. Sub Setup()
  5. On Error Resume Next '忽略错误
  6. Set appWorld = GetObject(, "Excel.Application") '查找一个正在运行的 Excel 拷贝
  7. If Err.Number <> 0 Then '如果 Excel 没有运行则
  8. Set appWorld = CreateObject("Excel.Application") '运行它
  9. End If
  10. Err.Clear ' 清除发生错误的 Err 对象

  11. On Error GoTo 0 '保留普通错误进程

  12. Set wbWorld = appWorld.Workbooks.Open(App.Path & "world.xls")
  13. End Sub
复制代码


相关主题

  距米网  

找到您想要的设计

工程师、学生在线交流学习平台
关注我们

手机版- 距米网 |苏公网安备32041102000587号

© 2017-2024 常州居居米智能技术有限公司 苏ICP备18040927号-1