宏例子: 打開指定目錄逐一處理所有零件的瑣事

僅供參考:

1. Sub Test()
   
2. Set swApp = Application.SldWorks
   
3. PartPath = "D:\Project" '設定目錄
   
4. PartFileName = Dir(PartPath & "*.sldprt") '搜尋首個零件檔案名稱
   
5. Do Until PartFileName = "" '直至搜尋到空值
   
6.     Set Part = swApp.OpenDoc(PartPath & PartFileName, 1) '開啟零件
   
7.     '加入所需語句
   
8.     '.
   
9.     '.
   
10.     '.
    
11.     '.
    
12.     Part.Save '保存
    
13.     swApp.CloseDoc (PartFileName) '關閉零件
    
14.     PartFileName = Dir '搜尋下一個零件檔案名稱
    
15. Loop '循環搜尋
    
16. End Sub

复制代码

wutong490 发表于 2014-11-18 23:29
知道了。
还请闷大测试，看能否遇到gif中的情况。

用您的宏略作修改：
1. 更正所有亂碼為GB碼
2. 補充"\"字符
3. 加上輸出位置的選項
4. 在3個對話框加上了具意義的標題

愛玩家 发表于 2014-11-20 11:59
估计是系统版本的问题。既有新的版本，旧的语法就让它过去吧!
俺自己有一些XP时代的宏拿来现在的系 ...

这是系统不同所引起，但不是版本，而是位元，32bit和64bit之别，欲兼容，可微调，详见连接：
https://msdn.microsoft.com/en-us ... v=office.15%29.aspx

感谢分享，很不错

zyf0732 发表于 2014-11-19 21:46
非常感谢梧大侠的无私奉献，我通过修改梧大侠的代码生成了一个批量给文件加指定自定义属性的宏，一下子工 ...

可以分享一下吗？

好复杂，好厉害

.0.0.0.

很好的学习的贴子

闷大：您好！
    看过许多您的贴子，对我帮助极大，感谢您的无私付出。
    刚刚这个代码我试了一下，完全可用，但是却只能打开零件，对装配体和工程图无用，麻烦您抽空帮忙改一下吗？再次拜谢！！

闷大：您好！
    看过许多您的贴子，对我帮助极大，感谢您的无私付出。
    刚刚这个代码我试了一下，完全可用，但是却只能打开零件，对装配体和工程图无用，麻烦您抽空帮忙改一下吗？再次拜谢！！

谢谢各位大师的无私奉献

此『瑣事宏』在別處給丹大說成了「批量****」，不解？

Francis 发表于 2014-11-13 23:36
12樓有回复，這個主題是為了『外部批次修改屬性』或『利用Excel作為用戶界面 ...

闷大您好。
你这帖子第一个链接中的那个”無需運行SW程序, 批量修改工程圖檔案屬性“这个帖子中的附件，因为没有注册，无法下载。现在的情况是我无法注册，不知是因为是TW网站所以被屏蔽了些东西还是什么原因，我用IE浏览器打开那个网站，点击注册，同样还是在那个”验证问答“那里卡了壳，不显示问题，我没法做”验证问答“这一步，注册不了。下载了附件，但是找不到解压密码。能否请告知下解压密码？万分感激。