Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

30535 / 76738

←次へ　｜　前へ→


	【51468】フォルダを閉じる

acch - 07/9/20(木) 9:19 -


	引用なし

	パスワード

教えてください。
次のルーチン(過去の投稿を参考にさせていただきましたが、見よう見まねで意味はまったくわかりません)を実行しました。自宅では、うまくいったのですが、職場ではうまくいきません。

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\郵便振替"
となり、クローズできません。(自宅のパソコンでは一致しており、クローズできたのですが??)
どう修正すればいいのでしょうか。

0 hits

▼

【51468】フォルダを閉じる acch 07/9/20(木) 9:19

≪