excel VBA 批量更改solidworks 属性及名字工具

只看该作者 · 发表于 2016-8-30 09:55:41

厉害，太厉害了

只看该作者 · 发表于 2016-8-30 10:11:35

有 64 位的吗

只看该作者 · 发表于 2016-9-22 23:35:31

谢谢楼主

只看该作者 · 发表于 2016-9-24 00:43:07

非常感谢大师分享啦。

只看该作者 · 发表于 2016-9-24 14:23:27

干什么呢

只看该作者 · 发表于 2016-9-25 00:08:20

我的使用说明及帮助除了注册控件，其他都没有，能帮忙解决吗，谢谢

只看该作者 · 发表于 2016-10-5 18:38:08

2016/9/28更新的64位版本会有如图警告。

只看该作者 · 发表于 2016-10-15 16:51:47

楼主我要下载哪个版本啊，9月28号更新的那2个？

只看该作者 · 发表于 2016-10-28 14:52:42

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next

Set fso = CreateObject("Scripting.FileSystemObject")

If FrmNavi.OptionButton1.Value = True Then

  If [a1] = "1" And fso.FileExists(Range("D" & Target.Row).Text & Range("G" & Target.Row).Text & ".slddrw") Then

  ViewSWmodel

  Else
  FrmNavi.Hide
  FrmNavi.EModelViewControl1.FileName = ""

  End If
Else
If [a1] = "1" And fso.FileExists(Range("D" & Target.Row).Text & Range("G" & Target.Row).Text & "." & Range("H" & Target.Row).Text) Then

  ViewSWmodel

  Else
  FrmNavi.Hide
  FrmNavi.EModelViewControl1.FileName = ""

End If
End If

这段代码中EModelViewControl1报方法和数据成员未找到，不知道怎么解决。sw2013和sw2016都有这个问题，工具引用中已经根据丢失添加了对应sw版本的EModelView 20** type library版本。

工具可以再添加批量图号名称分离宏和属性更改后工程图自动更新功能。因为很多人的文件名称是以零件号+零件名称命名的。

只看该作者 · 发表于 2016-10-28 14:58:36

tmyjsb 发表于 2016-1-3 23:48
烦请楼主帮忙

这个问题已经找到解决方法了吗？

[原创] excel VBA 批量更改solidworks 属性及名字工具

本帖子中包含更多资源