エクセル　VBAでサーバ内フォルダを開く

エクセルVBAで社内設置のサーバー内の特定のフォルダを開きたい

下記のような記述（一部抜粋）になっていますが、実行するとフォルダが開きません。
以前は（数年前？）は開いたそうです。

'開いた out_商品登録DATA.xltをアクティブにします
Windows(Open_Workbook_Name).Activate
ActiveSheet.Paste
' MsgBox ("out_商品登録DATA.xltシートに商品登録DATAをコピー終了")

'out_商品登録DATA.xlt の結果を商品登録DATA.xlsに保存してクローズします
Windows(Open_Workbook_Name).Activate

Worksheets(ActiveSheet.Name).Name = "商品登録DATA" & Right$(CSV_Sheet_Name, 8)
ActiveWorkbook.SaveAs Filename:=Left(FileNamePath1, 1) & _
    ":\一般共有\Web\00在庫情報更新\商品登録DATA" & Right$(CSV_Sheet_Name, 6) & ".xls", _
    FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
    False, CreateBackup:=False

ActiveWorkbook.SaveAs Filename:=Left(FileNamePath1, 1) & _
    ":\一般共有\Web\00在庫情報更新\商品登録DATA" & Right$(CSV_Sheet_Name, 6) & ".txt", _
FileFormat:=xlText, CreateBackup:=False

'メッセージ表示を戻す
Application.DisplayAlerts = True

'商品登録DATA*.CSV を変更しないでクローズします
Windows(CSV_Workbook_Name).Close (False)

ActiveWindow.Close

ttyp03

2020/02/12 04:54

「フォルダを開く」処理自体がありませんが。フォルダを開くではなく、ファイル（ワークブック）を開くことか？と読み直してみましたが、開く処理もありません。正しいコードを貼りなおすか、質問の内容を修正してください。

m.ts10806

2020/02/12 05:12

コードはマークダウンのcode機能を利用してご提示ください

行動規範の内容に同意します

回答1件

すくなくとも
開きたい場所の指定がないですね。

VBA
1
2    Set Folder = CreateObject("Shell.Application"). _
3    BrowseForFolder(0, "フォルダを選択してください", 0, 0)
4
5    If Not Folder Is Nothing Then
6        strPath = Folder.Items.Item.Path
7    Else
8        Exit Sub
9    End If
10