我不懂耶? 為什麼取檔名不要用 GetTitle ?如同之前所說,下面這個張圖的方法我也試過了,取消或打勾,都是正常的...
(VBA 跟 資料夾選項 會有關係嗎? 是否可舉例說明,以後我會更加注意)
我電腦跑下面這隻程式完全正常,但是在另一台電腦跑,又會在 Left 出現錯誤
(真的很抱歉...我真的不懂你們的意思...)
- Dim swApp As SldWorks.SldWorks
- Dim swModel As SldWorks.ModelDoc2
- Sub main()
- Set swApp = Application.SldWorks
- Set swModel = swApp.ActiveDoc
- Dim FileName As String
- Dim Left_FileName As String
- Dim Right_FileName As String
- Dim Mid_FileName As String
- FileName = swModel.GetTitle
- Left_FileName = Left(swModel.GetTitle, InStrRev(swModel.GetTitle, ".") - 1)
- Right_FileName = Right(swModel.GetPathName, (Len(swModel.GetPathName) - InStrRev(swModel.GetPathName, "")))
- Mid_FileName = Mid(Right_FileName, 1, InStrRev(Right_FileName, ".") - 1)
- 'MsgBox ("使用Mid:" & MidFileName)
- MsgBox ("使用GetTitle 取檔名+副檔名:" & FileName & vbCrLf & _
- "使用Left 取檔名-副檔名:" & Left_FileName & vbCrLf & vbCrLf & _
- "使用Right 取檔名+副檔名:" & Right_FileName & vbCrLf & _
- "使用Mid 取檔名-附檔名:" & Mid_FileName)
- End Sub
複製代碼
|