VBA.Left 執行階段錯誤

小小誠

下面這段就是有問題的語法

'只取檔名，如:"Part"
myFileName = Left(swModel.GetTitle, InStrRev(swModel.GetTitle, ".") - 1)

VBA.Left 執行階段錯誤，這問題不一定每台電腦都會出現~
以我舉例，在我電腦打好一個巨集並且執行，沒有問題~ "Part"
但是把 swp 丟到另一台電腦就會出現 Left 錯誤...


我不清楚也懶得查證是什麼原因，以下就是 SolidWorks 避開使用 Left 的語法


'-----------------------------------------------------------------------------
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2

Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc

    Dim myFileName_Extension, myFileName As String

    '取得檔名與副檔名，如:"Part.SLDPRT"
    myFileName_Extension = Right(swModel.GetPathName, (Len(swModel.GetPathName) - InStrRev(swModel.GetPathName, "\")))

    '只取檔名，如:"Part"
    myFileName = Mid(myFileName_Extension, 1, InStrRev(myFileName_Extension, ".") - 1)

    MsgBox ("檔名+副檔名：" & myFileName_Extension & vbCrLf & "檔名：" & myFileName): Exit Sub
End Sub
'-----------------------------------------------------------------------------


很奇怪... Right & Mid 竟然沒事...不是三兄弟嗎...
當然~ 有更好的寫法，依需求也可以用 StrReverse 寫~
我只是單純證明 Right & Mid 可以使用...

comelon

可能是你第一個程式是用GetTitle的方式? 我猜測的，統一用getPathName方式看看~

Francis

檔案總管的“隱藏已知檔案類型的副檔名”選項選上了，導致GetTitle傳回Part1而不是Part1.SLDPRT，InStrRev(swModel.GetTitle, ".")就會傳回0，Left(swModel.GetTitle, -1)當然會出錯。

小小誠

Francis 發表於 2014/10/29 15:41
檔案總管的“隱藏已知檔案類型的副檔名”選項選上了，導致GetTitle傳回Part1而不是Part1.SLDPRT，InStrRev( ...

嗯嗯~ 剛好這個方式我也試過了，但是~我單獨用下面方式

myFileName = swModel.GetTitle

也是出現一樣錯誤...

comelon

悶大，不知道是和我一樣感覺.... " 無言以對"

hoisee

小小誠 發表於 2014/10/30 08:05
嗯嗯~ 剛好這個方式我也試過了，但是~我單獨用下面方式

myFileName = swModel.GetTitle

悶大已經講了很清楚了, 你再仔細研究一下, 試著去偵錯, 看看變數的值, 找出問題所在。
要取檔名不要用 GetTitle, 就像 comelon 說的 : 用 GetPathName
我以前也遇過這個問題

小小誠

hoisee 發表於 2014/10/30 20:33
悶大已經講了很清楚了, 你再仔細研究一下, 試著去偵錯, 看看變數的值, 找出問題所在。
要取檔名不要用 Ge ...

我不懂耶? 為什麼取檔名不要用 GetTitle ?如同之前所說，下面這個張圖的方法我也試過了，取消或打勾，都是正常的...
(VBA 跟 資料夾選項 會有關係嗎? 是否可舉例說明，以後我會更加注意)



我電腦跑下面這隻程式完全正常，但是在另一台電腦跑，又會在 Left 出現錯誤
(真的很抱歉...我真的不懂你們的意思...)

1. Dim swApp As SldWorks.SldWorks
   
2. Dim swModel As SldWorks.ModelDoc2
   
3. 
   
4. Sub main()
   
5.     Set swApp = Application.SldWorks
   
6.     Set swModel = swApp.ActiveDoc
   
7. 
   
8.     Dim FileName As String
   
9.     Dim Left_FileName As String
   
10. 
    
11.     Dim Right_FileName As String
    
12.     Dim Mid_FileName As String
    
13. 
    
14.     FileName = swModel.GetTitle
    
15.     Left_FileName = Left(swModel.GetTitle, InStrRev(swModel.GetTitle, ".") - 1)
    
16. 
    
17.     Right_FileName = Right(swModel.GetPathName, (Len(swModel.GetPathName) - InStrRev(swModel.GetPathName, "")))
    
18. 
    
19.     Mid_FileName = Mid(Right_FileName, 1, InStrRev(Right_FileName, ".") - 1)
    
20.     'MsgBox ("使用Mid：" & MidFileName)
    
21. 
    
22.     MsgBox ("使用GetTitle 取檔名+副檔名：" & FileName & vbCrLf & _
    
23.             "使用Left 取檔名-副檔名：" & Left_FileName & vbCrLf & vbCrLf & _
    
24.             "使用Right 取檔名+副檔名：" & Right_FileName & vbCrLf & _
    
25.             "使用Mid 取檔名-附檔名：" & Mid_FileName)
    
26. End Sub

複製代碼

Francis

GetTitle是用來獲取軟體標題列內的文字，這些文字是受到系統的設定所影響的，比對以下兩張圖片就可明白：

由於軟體標題列內的文字，是按照開啟文件那一刻的系統設定，開啟檔案後才修改才設定，標題列內的文字是不會隨之變改的，導致樓主的誤解。

小小誠

Francis 發表於 2014/10/30 23:27
GetTitle是用來獲取軟體標題列內的文字，這些文字是受到系統的設定所影響的，比對以下兩張圖片就可明白：

...

正解!!!
原來 GetTitle 有這種危險存在...(不知道適合用在什麼時候!)

因為我個人是習慣 [顯示] 副檔名~ 根本想不到這問題...
謝謝 悶哥~ 以後還請您多多指教~

jbkndron

Francis 發表於 2014/10/30 23:27
GetTitle是用來獲取軟體標題列內的文字，這些文字是受到系統的設定所影響的，比對以下兩張圖片就可明白：

...

這張圖真是一目了然

jbkndron

Francis 發表於 2014/10/30 23:27
GetTitle是用來獲取軟體標題列內的文字，這些文字是受到系統的設定所影響的，比對以下兩張圖片就可明白：

...

這張圖讓問題一目了然，雖然還沒遇過這個坑
但還是受教了，如果改天程式帶到別台電腦出錯
至少還知道從什麼地方開始除錯

BobSun

你把left的命名空间写全就可以了