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

gt.adan 发表于 2014-11-15 12:19
悶哥請別生氣呀~剛才在上音樂課，所以沒能即時回覆，勿怪~
由於電腦重灌尚未安裝gif軟體，不得已只 ...

找到原因了。
由於VBA某些函數不兼容Unicode，閱讀中文字的時候就會分拆為2個Byte（字節）來處理。
這些函數在BIG5內碼的環境分拆簡體字會出現衝碼（分拆出不兼容檔案名稱的字節），導致報錯。
解決方法有2
1. 採用兼用Unicode函數傳回檔案名稱。（並不容易）
2. 借助其他兼用Unicode的軟件傳回檔案名稱。（例如 Excel）
3. 系統設定為GB內碼。

ps：
1. 在GB內碼的環境分拆正體字是不會出現衝碼的。
2. 設定內碼環境的方法是：控制台》時鐘、語言和區域》地區及語言》系統管理》非 Unicode 程式的語言》變更系統地區設定（設定後需要重啟電腦的）

Francis 发表于 2014-11-15 13:19
找到原因了。
由於VBA某些函數不兼容Unicode，閱讀中文字的時候就會分拆為2個Byte（字節）來處理。
這 ...

太專業了！謝謝悶哥的說明~~^^

我個人覺得這個代碼還是好用的，它是個基礎，是個開始進入批次修改的領域。
要自行加入的代碼內容，就看大家的工作需求了~~

gt.adan 发表于 2014-11-15 14:27
太專業了！謝謝悶哥的說明~~^^

我個人覺得這個代碼還是好用的，它是個基礎，是個開始進入批次修改的領 ...

謝謝阿丹回覆，是的，這段代碼簡短，容易入門。
贈阿丹一個包作為下午茶之用。{:soso_e113:}

gt.adan 发表于 2014-11-13 22:30
謝謝梧桐，期待悶哥繼續開課~~^^

回想一下，可能阿丹對6樓那個對話框依然感興趣，就繼續說說吧。
由於SW-API沒有提供『選取資料夾對話框』的函數，那就需要用到 Windows-API 其中的 shell32.dll 來實現，
做法是，在宏內再加多一個模組（模塊），加入以下語句：

1. Private Const BIF_RETURNONLYFSDIRS As LongPtr = &H1
   
2. Private Const BIF_DONTGOBELOWDOMAIN As LongPtr = &H2
   
3. Private Const BIF_RETURNFSANCESTORS As LongPtr = &H8
   
4. Private Const BIF_BROWSEFORCOMPUTER As LongPtr = &H1000
   
5. Private Const BIF_BROWSEFORPRINTER As LongPtr = &H2000
   
6. Private Const BIF_BROWSEINCLUDEFILES As LongPtr = &H4000
   
7. Private Const MAX_PATH As Long = 260
   
8. 
   
9. Type BrowseInfo
   
10.     hOwner As LongPtr
    
11.     pidlRoot As LongPtr
    
12.     pszDisplayName As String
    
13.     lpszINSTRUCTIONS As String
    
14.     ulFlags As LongPtr
    
15.     lpfn As LongPtr
    
16.     lParam As LongPtr
    
17.     iImage As LongPtr
    
18. End Type
    
19. 
    
20. Type SHFILEOPSTRUCT
    
21.     hwnd As LongPtr
    
22.     wFunc As LongPtr
    
23.     pFrom As String
    
24.     pTo As String
    
25.     fFlags As Integer
    
26.     fAnyOperationsAborted As Boolean
    
27.     hNameMappings As LongPtr
    
28.     lpszProgressTitle As String
    
29. End Type
    
30. 
    
31. Declare PtrSafe Function SHBrowseForFolderA Lib "shell32.dll" _
    
32.   (lpBrowseInfo As BrowseInfo) As LongPtr
    
33.   
    
34. Declare PtrSafe Function SHGetPathFromIDListA Lib "shell32.dll" _
    
35.   (ByVal pidl As LongPtr, ByVal pszPath As String) As Boolean
    
36. 
    
37. Function BrowseFolder(Optional Caption As String = "") As String
    
38.      
    
39.     Dim BrowseInfo As BrowseInfo
    
40.     Dim FolderName As String
    
41.     Dim ID As LongPtr
    
42.     Dim Res As Boolean
    
43.      
    
44.     With BrowseInfo
    
45.         .hOwner = 0
    
46.         .pidlRoot = 0
    
47.         .pszDisplayName = String$(MAX_PATH, vbNullChar)
    
48.         .lpszINSTRUCTIONS = Caption
    
49.         .ulFlags = &H1
    
50.         .lpfn = 0
    
51.     End With
    
52.     FolderName = String$(MAX_PATH, vbNullChar)
    
53.     ID = SHBrowseForFolderA(BrowseInfo)
    
54.     If ID Then
    
55.         Res = SHGetPathFromIDListA(ID, FolderName)
    
56.         If Res Then
    
57.             BrowseFolder = Left$(FolderName, InStr(FolderName, _
    
58.             vbNullChar) - 1)
    
59.         End If
    
60.     End If
    
61.      
    
62. End Function
    

复制代码

這就可以生成了自己的『選取資料夾對話框』的函數：BrowseFolder 了。


再回到自訂表單（用戶窗體）見5樓，建立多一個按鈕，
雙擊新增的按鈕，貼上以下代碼：

1. Private Sub CommandButton2_Click()
   
2. myPath = BrowseFolder("TEST")
   
3. TextBox1 = TextBox1 & myPath & Chr(13)
   
4. End Sub

复制代码

需注意，宏程序的名稱 必須與 按鈕的名稱“CommandButton？”一致。
修改2個按鈕的Caption，可讓用起來更便利，
例如：按鈕 CommandButton1的Caption叫做『處理資料夾內所有零件的瑣事』及 按鈕 CommandButton2的Caption叫做『選取資料夾』。

注意：由於這個做法存在3個致命弱點：
1. 在某情況有衝碼現象。
2. 瀏覽資料夾不能設定默認路徑，及不會記憶之前的路徑位置，導致每次都要從『我的電腦』點選下去，非常繁瑣。
3. 資料夾內不一定所有零件檔案都需要處理瑣事的，執行前要把例外檔案移開，非常不便。

加上採用Excel作為界面的課題已經開展，感到這課題繼續下去的意義不大，
但又顧慮到做事需有始有終，故此作出上述說明。

如各位有興趣，是可繼續討論這課題下去的。

还请检验一下。
有如下问题，当我录制一个存为igs的宏后 ，我做的宏可以执行另存零件为igs，更换文件夹后还处理第一次选择文件夹的零件。
当关闭SW再开启的时候，宏就不处理零件了


（测试宏已经删除）

繼續期待阿丹跟進這課題，不希望又出現另一宗半途而廢的事件。

Francis 发表于 2014-11-17 23:07
繼續期待阿丹跟進這課題，不希望又出現另一宗半途而廢的事件。

悶哥請放心！「半途而廢」就請您寬心了，這一點阿丹絕無可能讓您失望~
尤其這還是阿丹主動要求悶哥繼續指導的呢！

請給阿丹一點點時間，忙完專案或是其間有較完整的時間一定立刻練習、回覆！

Francis 发表于 2014-11-17 23:07
繼續期待阿丹跟進這課題，不希望又出現另一宗半途而廢的事件。

{:soso_e115:}
插嘴了，见谅

wutong490 发表于 2014-11-17 21:24
还请检验一下。
有如下问题，当我录制一个存为igs的宏后 ，我做的宏可以执行另存零件为igs，更换文件夹后 ...

1. longstatus = Part.SaveAs3("C:\Users\Administrator\Desktop\闸板\顶密封销.IGS", 0, 0)

复制代码

以上這句錄製回來的，打開什麼文件也好，都只會保存到代碼中的文件位置及名稱。

需使用GetPathName傳回整個文件名稱，可參考如以下代碼：

1. MyFileName=Part.GetPathName
   
2. MyFileNameL=LEN(MyFileName)
   
3. MyFileNameIGS=Left(MyFileName, MyFileNameL - 6) & "IGS"
   
4. Part.SaveAs3 MyFileNameIGS, 0, 0
   

复制代码

wutong490 发表于 2014-11-17 23:51
插嘴了，见谅

梧桐，謝謝你提醒我還有功課沒交。回覆一下你的問題…
使用你分享的另存igs代碼 ，樓上所說的情況，在我測試是ok的！
沒有重啟程序就不存檔的問題~
請繼續熱情參與討論，求教於悶哥，一同學習！