Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 7全般 : Excel 2013)
エクスプローラで指定のネットワークフォルダを開きたい。
投稿日時: 19/05/14 16:36:52
投稿者: 真下まゆ

いつもお世話になりますm(_ _)m
 
エクスプローラを立ち上げて、ネットワーク上の HDD のフォルダを開きたいです。
 
エクスプローラの窓が開き、その指定のフォルダが表示されるだけでいいのですが。。。
 
 
自分のパソコンであれば、このコードで開くのですが、
 
Public Sub OpenExplorer()
    Dim sPath As String
     
    sPath = "D:\"
     
    If Dir(sPath, vbDirectory) <> "" Then Shell "C:\Windows\Explorer.exe " & sPath, vbNormalFocus
End Sub
 
 
ネットワーク上のパスを↓こんな風に指定しても開きません。
 
 
Public Sub OpenExplorer()
    Dim sPath As String
     
    sPath = "\\999.99.999.999\Test\"
     
    If Dir(sPath, vbDirectory) <> "" Then Shell "C:\Windows\Explorer.exe " & sPath, vbNormalFocus
End Sub
 
どのように書いたらネットワーク上のフォルダを開くことができますか?

回答
投稿日時: 19/05/14 17:53:37
投稿者: sk

引用:
Public Sub OpenExplorer()
    Dim sPath As String
      
    sPath = "\\999.99.999.999\Test\"
      
    If Dir(sPath, vbDirectory) <> "" Then Shell "C:\Windows\Explorer.exe " & sPath, vbNormalFocus
End Sub

Public Sub OpenExplorer()
     
    Dim fso As Object
    Dim sPath As String
      
    sPath = "\\999.99.999.999\Test\"
     
    Set fso = CreateObject("Scripting.FileSystemObject")
         
    If fso.FolderExists(sPath) Then
        Shell """C:\Windows\Explorer.exe"" """ & sPath & """", vbNormalFocus
    Else
        MsgBox "指定されたフォルダが見つかりません。", vbExclamation
    End If
 
    Set fso = Nothing
 
End Sub
----------------------------------------------------------------
 
とりあえず、以上のコードを試してみて下さい。

回答
投稿日時: 19/05/14 17:59:00
投稿者: WinArrow
投稿者のウェブサイトに移動

>999.99.999.999
の部分をコンピュータ名に変更してみては?

投稿日時: 19/05/15 08:34:41
投稿者: 真下まゆ

sk様
WinArrow様
 
いつもお世話になっております。
ご連絡が大変遅くなり申し訳ありませんでした。
 
結論から申し上げますと、sk様の方法も、WinArrow様の方法も
うまくいきました。ありがとうございましたm(_ _)m
 
 
そして、私の質問に書いた方法でも問題はありませんでした。
 
私が単純に "\\999.99.999.999\Test\" ←ココを間違えており、
"\\999.99.999.999\ABCD\Test\" が正しいところ、
真ん中の ABCD の記述漏れでございました。
 
最近益々ボケが酷くなり・・・(-"-;
お恥ずかしい限りでございます。
ご丁寧にご回答くださりありがとうございましたm(_ _)m