| |
教えてください。
次のルーチン(過去の投稿を参考にさせていただきましたが、見よう見まねで意味はまったくわかりません)を実行しました。自宅では、うまくいったのですが、職場ではうまくいきません。
Sub folder_close()
Dim ws As Object
Dim cpath As String
With CreateObject("shell.application")
For Each ws In .Windows
cpath = Replace(Replace(Replace(ws.Locationurl, "%20"," "),"file:///",""),"/","\")
if Right(cpath,1) = "\" then
cpath = Left(cpath,Len(cpath) - 1)
End if
If ThisWorkbook.Path = cpath Then
ws.Quit
Exit For
End If
Next
End With
End Sub
以上ですが、
If ThisWorkbook.Path = cpath Then
のところで、内容をみると、
ThisWorkbook.Path −> "\\Caresvr\WINCAREV"\Csv\郵便振替"
cpath −> "file:\\Caresvr\WINCAREV"\Csv\郵便振替"
となり、クローズできません。(自宅のパソコンでは一致しており、クローズできたのですが??)
どう修正すればいいのでしょうか。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
