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

【補充】試用梧桐版主的「另存igs格式代碼」，情況如下…(是否代碼編寫不當所造成？)
1.第一次可以執行成功。再選擇其他(單一，非複選)資料夾，還是只有對前次所選資料夾內的檔案動作。
   即使重新開機，依舊如此--->難道有記憶的問題？
2.複選資料夾，執行宏代碼，依然只針對第一次選擇的資料夾動作，除非在每個資料之後加上"\"
   此時，會對全部所選資料夾動作，但是轉存igs格式的結果，只會放存在第一次選取的資料夾…
   而不是依個別的資料夾存放。
3.若是依悶哥教程中的代碼不添加任何動作語法(即結果是遍歷所選資料夾中所有零件，打開後直接存檔)
   則沒有任何問題。執行動作是成功的。(因為檔案日期有更新。)

梧桐加上了另存成igs格式的代碼，執行起來是有小問題的。
我就沒有添加任何代碼了，直接執行悶大的代碼(等於打開重新存檔)。
操作如下，請悶哥指導~~



另外，請問悶哥，為什麼這段新增的代碼無法在2012版執行呢？{:soso_e132:}

gt.adan 发表于 2014-11-18 10:46
梧桐加上了另存成igs格式的代碼，執行起來是有小問題的。
我就沒有添加任何代碼了，直接執行悶大的代碼(等 ...

另外，請問悶哥，為什麼這段新增的代碼無法在2012版執行呢？

請問執行的情況是怎樣？有沒有錯誤提示？

gt.adan 发表于 2014-11-18 10:46
梧桐加上了另存成igs格式的代碼，執行起來是有小問題的。
我就沒有添加任何代碼了，直接執行悶大的代碼(等 ...

还请阿丹附上 宏  
我昨晚在家里修改过几次，阿丹现有的我也记不清是那个版本了{:soso_e107:}

还有一种可以执行的情况
打开目标文件夹的一个零件，另存为IGS，（关闭或不关闭零件）
再执行宏，能够完成另存
重启SW后，宏不能完成另存

Francis 发表于 2014-11-18 11:07
請問執行的情況是怎樣？有沒有錯誤提示？

回悶哥，不用執行…代碼貼上就亮紅了…(如下圖，2012版次)
也請悶哥指導，怎麼會如梧桐的情況，另存成igs格式時，
會將不同資料夾的檔案全部存到同一個…

gt.adan 发表于 2014-11-18 14:00
回悶哥，不用執行…代碼貼上就亮紅了…(如下圖，2012版次)
也請悶哥指導，怎麼會如梧桐的情況，另存成ig ...

回家我又测试了一下
昨天的文件夹还是会出现不选择也同样执行的现象。（查看了VB的监视窗口，在执行完已经选择的文件夹后不知道为什么就跳到诡秘的文件夹了。这时PartFileName的值指向诡秘文件夹，PartPaths的值没有指向诡秘文件夹，见鬼了）
重新弄两个文件夹后没有出现执行和选择不一致的现象。
还请阿丹删除昨天的文件夹后再重新试验一下

修改代码
TextBox1 = TextBox1 & myPath & "\" & Chr(13)

gt.adan 发表于 2014-11-18 14:00
回悶哥，不用執行…代碼貼上就亮紅了…(如下圖，2012版次)
也請悶哥指導，怎麼會如梧桐的情況，另存成ig ...

悶人不清楚為什麼會這樣，希望阿丹找出原因，並請告知，期待中。

wutong490 发表于 2014-11-18 20:43
回家我又测试了一下
昨天的文件夹还是会出现不选择也同样执行的现象。（查看了VB的监视窗口，在执行完 ...

分別下載了梧桐的兩個宏，奇怪內容差距很大，而且內含亂碼，是不是悶人錯過了一些事請？
而且，到現時為止，還是搞不清梧桐打算具體加入什麼功能。

Francis 发表于 2014-11-18 21:54
分別下載了梧桐的兩個宏，奇怪內容差距很大，而且內含亂碼，是不是悶人錯過了一些事請？
而且，到現時為 ...

回闷大
宏内的代码都是复制闷大提供的，乱码可能是简体和繁体转换的原因。
因为后来的宏是用闷大提供的代码，所以和先前的有差别
宏的功能是把文件夹中的零件全部另存为igs格式。





开始MyFileName的值还在选择的文件夹，但是这个文件夹搜索完成后就跳到了另外一个当前未被选择的文件夹。