博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

2017年6月20日

摘要: Option Explicit ValidationMode = True InteractiveMode = im_Batch Dim mdl ' the current model ' get the current active model Set mdl = ActiveModel If ( 阅读全文

posted @ 2017-06-20 14:35 徐正柱- 阅读(272) 评论(0) 推荐(0) 编辑

摘要: Option Explicit Dim mdl ' the current model Set mdl = ActiveModel If (mdl Is Nothing) Then MsgBox "There is no Active Model" End If Dim HaveExcel Dim 阅读全文

posted @ 2017-06-20 14:32 徐正柱- 阅读(668) 评论(0) 推荐(0) 编辑