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

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 徐正柱- 阅读(278) 评论(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 徐正柱- 阅读(718) 评论(0) 推荐(0)