Attribute VB_Name = "Module1"
'■　マクロ５００連発＜第２段＞
'
'　共有フォルダ上のファイル名を取得する
'
'  Copyright(C) 2000 Sunago
'
'     GetOpenFilenameメソッドの既定フォルダを指定するには
'   カレントドライブ、カレントディレクトリを設定します。
'   このサンプルではカレントドライブ、カレントディレクトリ
'   の設定にWIN32APIのSetCurrentDirectory関数を用います。
'
'   ※VBA関数の"ChDrive"ではネットワーク上の共有フォルダに
'     対応していないため。
'

Private Declare Function SetCurrentDirectory _
        Lib "kernel32" Alias "SetCurrentDirectoryA" _
            (ByVal lpPathName As String) As Long

Sub Macro1()
Dim sFile
Dim nret

    'ネットワーク上の共有フォルダを設定する
    'nret = SetCurrentDirectory("\\<NetworkPC>\<ShareFolder>")
    nret = SetCurrentDirectory("\\SRV01\Share")
    
    If nret <> 0 Then
        sFile = Application.GetOpenFilename _
            ("CSVファイル (*.csv), *.csv")
      Else
        MsgBox "既定のドライブ、フォルダが見つかりません"
    End If
    '取得ファイル名を表示する
    If sFile <> "" Then MsgBox sFile
End Sub