2018年9月11日
生成类似零部件3
摘要： Sub 获取模板信息() Call sw初始化("") FilePathName = swModel.GetPathName If swFileTYpe = 2 Then ' ElseIf swFileTYpe = 3 Then ' Dim vDepend As Variant vDepend = 阅读全文
posted @ 2018-09-11 16:29 老小鱼 阅读(349) 评论(0) 推荐(0) 编辑
生成类似零部件2
摘要： Public 禁止改变 As Boolean Public 表头行 As Integer Public 首行 As Integer Public 末行 As Long ' Public 首列 As Integer Public 末列 As Integer Public 配置列 As Integer 阅读全文
posted @ 2018-09-11 11:16 老小鱼 阅读(281) 评论(0) 推荐(0) 编辑