| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1281 人关注过本帖
标题:大神们,讲解一下这个代码为什么不执行!
取消只看楼主 加入收藏
suzhanpeng
Rank: 4
等 级:业余侠客
威 望:7
帖 子:72
专家分:248
注 册:2016-9-28
结帖率:75%
收藏
已结贴  问题点数:20 回复次数:0 
大神们,讲解一下这个代码为什么不执行!
可以执行的代码
Private Sub MSHFlexGrid1_DblClick()
ipath = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.MouseRow, 8)
Set swApp = CreateObject("SldWorks.Application")
Set swModelDoc = swApp.ActiveDoc
Set Part = swApp.OpenDoc6("C:\Users\Administrator\Desktop\DB123.001 圆盘111.SLDPRT", 1, 0, "", longstatus, longwarnings)
End Sub


不执行的代码,用msgbox 显示 ipath=C:\Users\Administrator\Desktop\DB123.001 圆盘111.SLDPRT
Private Sub MSHFlexGrid1_DblClick()
ipath = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.MouseRow, 8)
Set swApp = CreateObject("SldWorks.Application")
Set swModelDoc = swApp.ActiveDoc
Set Part = swApp.OpenDoc6(ipath, 1, 0, "", longstatus, longwarnings)
End Sub
搜索更多相关主题的帖子: 讲解 代码 执行 Sub Set 
2017-11-30 15:56
快速回复:大神们,讲解一下这个代码为什么不执行!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.020232 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved